


SECTION 4 - PART 1 OF 6 

FORTRAN EOITOR INFORMATION 

MASTER RECORD CARD = F0620000 
ENTRY POINT » 112 
FIRST LOCATION « 30 
LAST LOCATION * 1327 



00030 



00030 +0O000000000Q 

00031 +000000000001 

00032 -000000000004 

00033 +000000000000 

00034 +000000000005 

00035 +000000000002 

00036 +000000000003 

00037 +Q0000O0OO0G7 

00040 00001 00000 

00041 00000 00310 

00042 O 00000 00312 

00043 00000 00372 

00044 00000 0Q374 

00045 00000 01300 

00046 00000 01750 

00047 00000 01750 

00050 01750 00000 

00051 +170000000000 

00052 +377777777777 

00053 +000000700000 

00054 +077777000000 

00055 +000060000000 

00056 +000070000000 

00057 +000000777777 

00060 -300000000000 

00061 -370000000000 

00062 -230000000000 

00063 76100 00000 

00064 +035121000000 

00065 +001146000000 

00066 +000454000000 

00067 +000162000000 

00070 +042363000000 

00071 -024000000000 

00072 +027642000000 

00073 +030000000000 

00074 +034743000000 

00075 02000 00135 

00076 02000 00435 

00077 02000 00125 



ORG 24 

CONSTANTS AND VARIABLES 
THROUGHOUT SECTION 4») 
ERRBX DEC 
LAI DEC 1 
MINUS4 DEC -4 
L0...= DEC 
L5.««= DEC 5 
TIFLAB DEC 2 
TRALAB DEC 3 
FRELAB DEC 7 
LD1.»= HTR 0»0»1 
LZTIF= ZTIFRD 
LZTF2= ZTIFRD+2 
LAZFT* ZFRET= 
LAFT2= ZFRET=+2 
LZTR4= ZTRA+4 
FRETY= FRTADD 
Y TIFADD 

LXFRT= OtO»XFRET= 
OCTAL OCT 170000000000 
ENDMK= OCT 377777777777 
TAGMRK OCT 700000 
OPMSK= OCT 77777000000 
PSEMK= OCT 60000000 
PSTMK= OCT 70000000 
TGMSK= OCT 777777 
NMASK= OCT -300000000000 
1STLT= OCT -370000000000 
1STT.= OCT -230000000000 
LN0P#= NOP 
LTRA.= OCT 35121000000 

OCT 1146000000 

OCT 454000000 
LTROP= OCT 162000000 

OCT 42363000000 

OCT -24000000000 

OCT 27642000000 
LPCOPs OCT 30000000000 
LTPL»= OCT 34743000000 
LTRAA TRA AA+1 
LOUT TRA STTIF= 
LBEG TRA BEGCLA 



tTHE 1ST THREE REMAIN IN CORES 
COUNTER FOR READING ERRORS 



DRUM ADDRESS FOR FRET 
DRUM ADDRESS FOR TIFRD 



PROGRAM CONSTANT 

TRA 

TSX-TRA 

TXL-TSX 

T2E-TXL 

DCT 

RTT-DCT 

MSE-RTT 

PSE-MSE 



F44010S0 
F4401090 
F4410010 
F4410020 
F4410030 
F44 10040 
F4410050 
F4410060 
F44 10070 
F4410080 
F4410090 
F441010O 
F4410TTO 
F4410120 
F4410130 
F4410140 
F4410150 
F4410160 
F4410170 
F4410180 
F4410190 
F4410200 
F4410210 
F4410220 
F4410230 
F4410240 
F4410250 
F4410260 
F4410270 
F4410280 
F4410290 
F4410300 
F4410310 
F 44 10 320 
F4410330 
F4410340 
F4410350 
F 44 10 360 
F4410370 
F4410380 
F4410390 
F4410400 
F4410410 
F4410420 
F4410430 
F4410440 
F4410450 
F4410460 
F441047C 
F4410480 
F4410490 
F4410500 
F4410510 
F4410520 



IN 



00100 





02000 


00135 


LXRDN 


TRA 


AA+1 


00101 





02000 


01262 


LMPY 


TRA 


MPY 


00102 





02000 


01235 


LSTQ 


TRA 


STQOTG 


00103 


+002000000000 


CONSTA 


OCT 


2000000000 


00104 


2 


00000 1 


00406 


CNST2A 


TIX 


CLAB»1»0 


00105 





00000 


00000 


ERAS1= 






00106 





00000 


00000 


ERAS2= 






00107 





00000 


00000 


ERAS3= 












00107 


FRTBX= 


SYN 


ERAS3= 


00110 





00000 


00000 


OPCO 






00111 





00001 


00000 


DVf08= 


HTR 


0»0»1 

THIS SCANS THE 
KNOWN AS BBLIST 
FIRST INSTRUCTI 


00112 





77200 


00224 


PASS1 


REW 


INSTTP 


00113 





50000 


00052 




CLA 


ENDMK= 


00114 





60100 


07773 




STO 


BBLIST 


00115 


-0 


75400 


ooooo 




PXD 




00116 





60100 


07774 




STO 


BBOX«= 


00117 





60100 


07775 




STO 


0OB0X= 


00120 





60100 


07776 




STO 


SSB0X= 


00121 





60100 


07777 




STO 


TTBOX= 


00122 





50000 


00077 




CLA 


LBEG 


00123 





62100 


00342 




STA 


XRDIN 


00124 





02000 


00310 




TRA 


RDINSA 


00125 





50000 


00100 


BEGC'LA 


CLA 


LXRDN 


00126 





62100 


00342 




STA 


XRDIN 


00127 





53400 2 


00031 




LXA 


LA1»2 


00130 





53400 1 


00031 




LXA 


LA1.1 


00131 


1 


00014 1 


00132 


LD12.= 


TXI 


LD12.=+1»1»12 


00132 





50000 1 


06024 




CLA 


INST«A#1 


00133 





07400 4 


00356 




TSX 


STB.4 


00134 


2 


04230 1 


00310 


AA 


TIX 


RDINSAtliNOINS 


00135 





50000 1 


06024 




CLA 


INST«A»1 


00136 





10000 


00153 




TZE 


OTHER 


00137 


-0 


50000 1 


06023 




CAL 


INST.A-1*1 


00140 





62200 


00110 




STD 


OP CD 


00141 


-0 


32000 


00061 




ANA 


1STLT= 


00142 





60200 


00105 




SLW 


ERAS1= 


00143 





50000 


00105 




CLA 


ERAS1= 


00144 





40200 


00062 




SUB 


1STT.= 


00145 





10000 


00160 




TZE 


TRCS 


00146 





50000 


00110 




CLA 


OPCD 


00147 


-0 


53400 4 


00220 




LXD 


LD4««=»4 


0015C 





40200 4 


00074 


PSUB 


SUB 


LPC0P=+1»4 


00151 





10000 4 


00160 




TZE 


PTRA+1»4 


00152 


2 


00001 4 


00150 




TIX 


PSUB»4»1 


00153 


1 


00004 1 


00134 


OTHER 


TXI 


AA»1»4 


00154 





02000 


00266 




TRA 


TSTCS 


00155 





02000 


00266 




TRA 


TSTCS 


00156 





02000 


00266 




TRA 


TSTCS 


00157 





02000 


00262 


PTRA 


TRA 


PSECS 



F4410530 
F4410540 
F4410550 
F4410560 
F4410570 
F4410580 
F4410590 
F4410600 
F4410610 
F4410620 
F4410630 
F4410640 
COMPILED INSTRUCTIONS AND COMPILES A LIST F4410650 
OF THE COMPILED INSTRUCTION NUMBER OF THE F4410660 
ON OF EACH BASIC BLOCK OF THE OBJECT PROGRAM. F4410670 

F4410680 
F4410690 

STORE MARK FOR END OF B B LIST F4410700 

F4410710 
F4410720 
F4410730 
F4410740 
F4410750 
F4410760 

SET EXIT ADDRESS F4410770 

TRANSFER TO ROUTINE TO READ IN 1ST F4410780 
BLOCK OF COMPILED INSTRUCTIONS F4410790 

RESTORE USUAL EXIT ADDRESS F4410800 

F4410810 
F4410820 
F4410830 
F4410840 
F4410850 
F4410860 
F4410870 
F4410880 



INITIALIZE INDEX REGISTERS 



IF FIRST LETTER IS A TtGO TO TRCS 



PUT INSTRUCTION NUMBER OF FIRST 
INSTRUCTION IN BBLIST 

TEST FOR END OF INSTRUCTION BLOCK 

IF THERE IS NO LOCATION SYMBOL* 

THIS INST. NEED NOT BE CONSI DEREDF4410890 

F4410900 
F4410910 
F4410920 
F4410930 
F4410940 
F4410950 
F4410960 
F4410970 
F4410980 
F4410990 
F4411000 
F4411010 
F4411020 
F4411030 
F4411040 
F4411050 
F4411060 



FOUR INTO INDEX REGISTER C 
LOOK FOR A TEST INSTRUCTION 
THIS IS A TEST 

NO TRANSFER EXISTS 

DCT 

RTT 

MSE 

PSE 



*-/' / 



D 



O 



o 



00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
5017J 
00174 
00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 



50000 
53400 
40200 
10000 
00001 
50000 
40200 
10000 
50000 
40200 
10000 

jO 50000- i 
07400 4 
50000 
07400 
00010 
02000 
02000 
02000 
02000 
50000 
32000 
10000 

•0 50000 

•0 32000 
10000 
50000 
07400 
00004 
50000 
73400 
00001 
00004 
04230 
50000 
63400 
07400 
53400 
00001 
00004 
53400 
00002 
50000 
60100 
50000 
60100 
63400 
07400 
50000 
07400 
00004 
50000 

-0 32000 
40200 



00110 
00220 
00070 
00204 
00162 
06022 
00051 
00153 
06024 
06022 
00153 
4J6022 
00356 
06016 
00356 
00134 
00204 
00153 
00230 
00243 
06021 
00057 
00215 
06022 
00060 
00153 
06022 
00356 
00134 
06021 
00000 
00220 
00221 
00306 
06022 
00106 
00356 
00106 
00220 
00134 
07775 
00232 
06024 
06501 
06022 
06500 
07775 
00356 
06020 
00356 
00134 
06017 
00054 
00074 



TRCS CLA OPCD 

LXD LD4..=»4 
P2SUB SUB LTR0P=+1»4 
TZE P2TRA+lt4 
TJX P2SUB»4tl 
CLA INST.A-2»1 
SUB OCTAL 
TZE OTHER 
CLA INST.A*1 
SUB INST.A-2»1 
TZE OTHER 
2WYTR 4LA +NSTA*-2^1 
TSX STB»4 
CLA INST.A-6»1 
TSX STB*4 
TXI AA»1»8 
TRA TRACSA 
TRA OTHER 
TRA OOCSA 
P2TRA TRA 1F3CSA 
TRACSA CLA INSTA-3#1 
ANA TOMSK* 
TNZ OOTOVA 
CAL INST.A-2tl 
ANA NMASK= 
TNZ OTHER 
CLA JNST»A-2»1 
TSX STB*4 
TXI AA»1»4 
GOTOVA CLA INST.A-3»1 

PDX 0*4 
SELF1 TIX SELFl + l»4a 
LD4..= TXI 4TIX*1»4 
4TIX TIX RDIN»1#N0INS 
CLA INST.A-2.1 
SXD ERAS2=»4 
TSX STB»4 
LXD ERAS2=»4 
TIX LD4..=»4»1 
TXI AA»1»4 
DOCSA LXD DOBOX=»4 
SELF2 TXI SELF2+lt4»2 
CLA INST.A»1 
STO D0LIST+1»4 
CLA INST.A-2»1 
STO D0LISTf4 
SXD DOBQX=»4 
TSX STB»4 
CLA INST.A-4»1 
TSX STB»4 
TXI AA»1»4 
IF3CSA CLA INST.A~5«1 
ANA OPMSK= 
SUB LTPL.= 



FIND WHAT KIND OF TRANSFER THIS IS F^JIOJO 
FOUR INTO INDEX REGISTER C F4411080 

HAVE FOUND TYPE OF TRANSFER F4411100 
NOT FOUND YET F4411110 

IS THIS A TRANSFER WITH A SYMBOLIC F4411120 
ADDRESS = SPECIAL MARK F4411130 

YEStlONORE AS NOT REAL TRANSFER F4411140 

F4411150 
F4411160 
F4411170 
A<GmmQHA± TRANSFER* PUT ITSF4411180 



FS .. 

ADDRESS AND THE ADDRESS OF THE 
NEXT INSTRUCTION IN THE BASIC 
BLOCK LIST 

LOOK AT NEXT INSTRUCTION 

TRA IS THE OPERATION CODE 

TSX 

TXL 

TZE 

IS INSTRUCTION TAGGED 

YES * IS A GO TO VECTOR 

TEST FOR A GO TO N 

IS ADDRESS IN N-BLOCK 

YES»THIS IS A GO TO N» IGNORE NOW 

NOT TAGGED j IS A STRAIGHT TRANSFER 

STORE ADDRESS IN BASIC BLOCK LIST 

LOOK AT NEXT INSTRUCTION 

THIS IS A GO TO VECTOR 

PUT NUMBER OF BRANCHES INTO IR C 
SET FOR NEXT INSTRUCTION 



F4411190 
F4411200 
F4411210 
F4411220 
F4411230 
F4411240 
F4411250 
F4411260 
F44U270 
F4411280 
F4411290 
F4411300 
F4411310 
F4411320 
F4411330 
F4411340 
F4411350 
F4411360 
F4411370 
F4411380 
F4411390 



READ IN MORE INSTRUCTIONS IF NEEDEDF4411400 



F4411410 
F4411420 
F4411430 
F4411440 
F4411450 
F4411460 
F4411470 
F4411480 
F44 11490 
F4411500 
F4411510 
F4411520 
STORE DO LIST ADDRESS F4411530 

PUT ADDRESS OF TRA BACK IN TRA TABLF4411540 

F4411550 
PUT LOC OF NEXT INST. IN TRA F4411560 
LOOK AT NEXT INST. F4411570 

THIS INSTRUCTION IS A TZE F4411580 

F4411590 

IS IT FOLLOWED BY BOTH A TPL AND F4411600 



GET ADDRESS OF THIS INSTRUCTION 

SAVE INDEX REGISTER C 

PUT ADDRESS IN BASIC BLOCK LIST 

RESTORE INDEX REGISTER C 

HAVE ALL BRANCHES BEEN DONE 

YES»LOOK AT NEXT INSTRUCTION 

THIS IS THE END OF A DO 

SET DOLIST ADDRESS FOR NEXT ENTRY 

PUT LOCATION OF TRANSFER AND 

ADDRESS OF TRANSFER INTO DO LIST 



i/"/V 



jo v 



00246 


-0 


10000 





00173 




TNZ 


2WYTR 


00247 





50000 


1 


06013 




CLA 


INST.A-9* 1 


00250 


-0 


32000 





00054 




ANA 


OPMSK= 


00251 





40200 





00064 




SUB 


LTRA.= 


00252 


-0 


10000 





00173 




TNZ 


2WYTR 


00253 





50000 


1 


06022 




CLA 


INST.A-2.1 


00254 





07400 


4 


00356 




TSX 


STB»4 


00255 





50000 


1 


06016 




CLA 


INST.A-6.1 


00256 





07400 


4 


00356 




TSX 


STB.4 


00257 





50000 


1 


06012 




CLA 


INST#A-10»1 


00260 





07400 


4 


00356 




TSX 


STB. 4 


00261 


1 


00014 


1 


00134 




TXI 


AA.1.12 


00262 





50000 


1 


06021 


PSECS 


CLA 


INSTA-3.1 


00263 


-0 


32000 





00056 




ANA 


PSTMK= 


00264 





40200 





00055 




SUB 


PSEMK* 


00265 


-0 


10000 





00153 




TNZ 


OTHER 


00266 





50000 


1 


06017 


TSTCS 


CLA 


INSTA-5.1 


00267 


-0 


32000 





00054 




ANA 


OPMSK= 


00270 





40200 





00064 




SUB 


LTRA.= 


00271 


-0 


10000 





00153 




TNZ 


OTHER 


00272 





50000 


1 


06016 




CLA 


INST.A-6.1 


00273 





07400 


4 


00356 




TSX 


STB»4 


00274 





50000 


1 


06013 




CLA 


INST.A-9.1 


00275 


-0 


32000 





00054 




ANA 


OPMSK= 


00276 





40200 





00064 




SUB 


LTRA.= 


00277 


-0 


10000 





00303 




TNZ 


SLOC 


00300 





50000 


1 


06012 




CLA 


INST.A-10.1 


00301 





07400 


4 


00356 




TSX 


STB* 4 


00302 


1 


00014 


1 


00134 




TXI 


AA.1.12 


00303 





50000 


1 


06014 


SLOC 


CLA 


INSTA-8»1 


00304 





07400 


4 


00356 




TSX 


STB. 4 


00305 


1 


00010 


1 


00134 


t 


TXI 


AA.1.8 

THIS ROUTINE 
STORAGE FROM 


00306 





50000 





00063 


RDIN 


CLA 


LNOP.= 


00307 





60100 





00342 




STO 


XRDIN 


00310 





50000 





00032 


RDINSA 


CLA 


MINUS4 


00311 





60100 





00030 




STO 


ERRBX 


00312 





76200 





00224 


ROSEL 


RDS 


INSTTP 


00313 


-0 


63400 


1 


00105 




SXD 


ERAS1=»1 


00314 


-o 


53400 


1 


00131 




LXD 


LD12«=»1 


00315 





50000 


1 


01574 


RCLA 


CLA 


BGINS.l 


00316 





60100 


1 


06024 




STO 


INST.A.l 


00317 


2 


00001 


1 


00315 




TIX 


RCLA.1.1 


00320 


-0 


63400 


1 


00106 




SXD 


ERAS2=.l 


00321 





70000 


1 


06010 


RCPY 


CPY 


INSTA-12.1 


00322 


1 


00001 


1 


00321 




TXI 


RCPY.1.1 


00323 


1 


77777 


1 


00334 




TXI 


RDEND.l.-l 


00324 





76600 





00333 


TPTST 


WRS 


219 


00325 


-0 


76000 





00012 




RTT 




00326 





02000 





00346 




TRA 


RDERR 


00327 





50000 





00032 




CLA 


MINUS4 


00330 





60100 





00030 




STO 


ERRBX 



A TRA. IF NOT. TREAT IT AS A F4411610 
TWO-WAY TRANSFER F4411620 

F44U630 

F4411640 

F4411650 

PUT ADDRESSES OF THE THREE BRANCHESF4411660 



INTO THE BASIC BLOCK LIST 



LOOK AT INSTRUCTION AFTER THESE 3. 
INSTRUCTION IS A PSE 



NOT A SKIP. LOOK AT NEXT INST. 
THIS IS A TEST INSTRUCTION 
IS IT FOLLOWED BY A TRA 

NO.GO TO NEXT INSTRUCTION 
YES* IS USED FOR SKIPPING 

IS TEST INSTRUCTION FOLLOWED BY 
TWO TRAS 

NO. STORE LOCATION OF 2ND INST. 
YES»STORE ADDRESS OF 2ND TRA 

DO INSTRUCTION AFTER 2ND TRA NEXT 
STORE LOCATION OF 2ND INSTRUCTION 

AFTER TEST 
LOOK AT 2ND INSTRUCTION AFTER TEST 

READS A BLOCK OF COMPILED INSTRUCTIONS INTO 
TAPE 4. FILE 1. 

STORE EXIT ADDRESS FROM RDINS 

INITIALIZE ERROR BOX 



SELECT INSTRUCTION TAPE 



MOVE EXTRA INSTRUCTIONS 



SAVE INDEX IN CASE OF ERROR 
READ IN BLOCK OF INSTRUCTIONS 

END OF FILE 

TEST FOR TAPE ERROR 

ERROR 

INITIALIZE ERROR BOX 



F4411670 
F4411680 
F4411690 
F4411700 
F4411710 
F4411720 
F4411730 
F44 11740 
F4411750 
F4411760 
F4411770 
F4411780 
F44U790 
F4411800 
F4411810 
F44U820 
F4411830 
F4411840 
F4411850 
F4411860 
F4411870 
F4411880 
F4411890 
F4411900 
F4411910 
F4411920 
F4411930 
F4411940 
F4411950 
F4411960 
F4411970 
F4411980 
F4411990 
F4412000 
F4412010 
F4412020 
F4412030 
F4412040 
F4412050 
F4412060 
F4412070 
F4412080 
F4412090 
F4412100 
F4412110 
F4412120 
F4412130 
F4412140 



i; rl 



L 



U 



r\ 



n 





00331 


3 


04230 


1 


00341 


LNOINS 


TXH 


XRDIN-1*1»N0INS 




00332 





76200 





00224 




RDS 


INSTTP 




00333 





02000 





00320 




TRA 


RCPY-1 




00334 


-0 


75400 


1 


00000 


RDEND 


PXD 


0*1 




00335 





40000 





00131 




AOO 


LD12«= 




00336 





62200 





00134 




STD 


AA 




00337 





50000 





00076 




CLA 


LOUT 




00340 





62100 





00134 




STA 


AA 




00341 


-o 


53400 


1 


00105 




LXD 


ERAS1=»1 




00342 





02000 





00135 


XRDIN 


TRA 


AA+1 




00343 





50000 





00075 


RDIN2 


CLA 


LTRAA 




00344 





60100 





00342 




STO 


XROI- 




0034* 


«-0£OO0-O-OO2i* 




fRfr-*Tt**i: 




00346 





50000 





00030 


RDERR 


CLA 


ERRBX 




00347 


-0 


12000 





00351 


SKIP1 


TMI 


SKIP1+2 




00350 





07400 


4 


00004 




TSX 


RDF0RT#4 




00351 





40000 





00031 




AOO 


LAI 




00352 





60100 





00030 




STO 


ERRBX 




00353 





76400 





00224 




BST 


INSTTP 




0O354 


-0 


53400 


1 


00106 




LXD 


ERAS2=»1 




00355 





02000 





00332 




TRA 


LNOINS+1 

THIS ROUTINE STORES* 
THE COMPILED INSTRUC 
BASIC BLOCK. 




00356 





60100 





00107 


STB 


STO 


ERAS3= 




00357 


-0 


63400 


1 


00105 




SXD 


ERAS1=»1 




00360 


-0 


75400 


2 


00000 




PXD 


0»2 




00361 





62200 





00421 




STD 


8 TXH 




00362 





62200 





00*25 




STD 


BTXL 




00363 





62200 





00*01 




STD 


PLACEA 




00364 





77100 





00001 




A3S 


1 




00365 





30000 





00033 




FAD 


kO»#«= 




00366 





77100 





000 33 




ARS 


i. * 




00367 





40200 





000^0 




SUB 


** */ X * • "" 




00370 





62100 





00372 




STA 


Ar «■ . 




00371 





50000 





00103 




CLA 


COiN^A 


A 


00372 





77100 





00000 


ARS 


ARS 






00373 





56000 





00104 




LDQ 


CNST2A 




00374 


-0 


73400 


1 


00000 




PL* 


0*1 




00375 





77100 





00001 


ARSB 


ARS 


1 




00376 





62200 





00403 




STD 


f M3B 




00377 





62200 





00405 




STD 


TlXSd 




00400 





50000 





00107 




CLA 


ERAS3= 




00401 


3 


00000 


1 


00405 


PLACEA 


TXH 


TIXBB»1*XXXXXX 




00402 





34000 


1 


07774 




CAS 


BBLIST+1»1 


D 


00403 


1 


00000 


1 


00406 


TXIBB 


TXI 


CLAB»1 




00404 





02000 


c 


00432 




TRA 


BOUT 


D 


00405 


2 


00000 


1 


00406 


TIXBB 


TIX 


CLABtl 




00406 





50000 





00405 


CLAB 


CLA 


TIXBB 




00407 





04000 





00375 




TLQ 


ARSB 




00410 





50000 





00107 




CLA 


ERAS3= 




00411 


3 


01273 


2 


00434 




TXH 


BTSX*2*ZBB-1 




00412 





56000 


1 


07774 




LDQ 


BBLIST+1*! 



END OF RECORD— SEE IF IT IS END OF F^12150 

BLOCK GOING INTO STORAGE F4412160 

READ NEXT BLOCK F4412170 

StORE NUMBER OF REMAINING INSTRUC- F4412180 

F4412190 
F4412200 
F4412210 
F4412220 
F4412230 
F4412240 



TIONS FOR TEST 
STORE FINAL EXIT ADDRESS* 



NO ERROR*RESTORE INDEX REGISTER 
RETURN TO MAIN ROUTINE 
RESTORE USUAL EXIT ADDRESS IN RDINSF4412250 

F4412260 

RETURN TO 14ATN HOUTTWE 



HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
NO* TRY READING AGAIN 



RESET INDEX REGISTER 

AND TRY TO READ AGAIN 

IN ORDER AND ELIMINATING DUPLICATIONS* 
TION NUMBER OF THE BEGINNING OF EACH 



X WAS NOT FOUND* ENTER IT 
TEST FOR OVERFLOW OF BBLIST 



T44T2T70 

F4412280 

F4412290 

F4412300 

F4412310 

F4412320 

F4412330 

F4412340 

F4412350 

F4412360 

F4412370 

F4412380 

F4412390 

F4412400 

F4412410 

F4412420 

F4412430 

F4412440 

F44 12450 

F4412460 

F4412470 

F4412480 

F4412490 

F4412500 

F4412510 

F4412520 

F4412530 

F4412540 

F4412550 

F4412560 

F4412570 

F4412580 

F4412590 

F4412600 

F4412610 

F4412620 

F4412630 

F4412640 

F4412650 

F 44 12 660 

F4412670 

F4412680 



00413 





04000 


00415 




TLQ 


TXI2 




00414 





02000 


00417 




TRA 


BLDQ+1 




00415 


1 


00001 


1 00416 


TXI2 


TXI 


BLDQ»1»1 




00416 





56000 


1 07774 


BLDQ 


LDQ 


BBLIST+1*1 




00417 




60100 


1 07774 




STO 


BBLI5T+i»i 




00420 


1 


00001 


1 00421 




TXI 


BTXH»1»1 




00421 


3 


ooooo 


1 00430 


BTXH 


TXH 


BSTQ»1 




00422 





50000 


1 07774 




CLA 


BBLIST+ltl 




00423 


-0 


60000 


1 07774 




STQ 


BBLIST+1»1 




00424 


1 


00001 


1 00425 




TXI 


BTXL*1»1 




00425 


-3 


00000 


1 00416 


BTXL 


TXL 


BLDQ»1 




00426 





60100 


1 07774 




STO 


BBLIST+1»1 




00427 


1 


00001 


2 00432 




TXI 


B0UT»2»1 




00430 


-o 


60000 


1 07774 


BSTO 


STQ 


BBLIST+1*1 




00431 


1 


00001 


2 00432 




TXI 


80UT»2*1 




00432 


-0 


53400 


1 00105 


BOUT 


LXD 


ERAS1=»1 




00433 





02000 


4 00001 




TRA 


1»4 




00434 





07400 


4 00004 


BTSX 


TSX 


RDF0RT*4 

THIS ROUTINE READS 


T 














ELIMINATING UNWANTED 


00435 





50000 


00032 


STTIF= 


CLA 


MINUS4 




00436 





60100 


00030 




STO 


ERRBX 




00437 





76400 


00222 




BST 


TBLTAP 




00440 





76400 


00222 




BST 


TSLTAP 




00441 





76200 


00222 




RDS 


TBLTAP 




00442 





70000 


00105 




CPY 


ERASl* 




00443 


-0 


53400 


1 00105 




LXD 


ERAS1=»1 




00444 


1 


00014 


1 00445 


TXITF 


TXI 


TXITF+ltlfl2 




00445 





76400 


00222 


BSTA 


BST 


TBLTAP 




00446 


2 


00001 


1 00445 


SELF3 


TIX 


SELF3-1»1»1 




00447 





76200 


00222 




RDS 


TBLTAP 




00450 





70000 


00106 




CPY 


ERAS2= 




00451 





70000 


00105 




CPY 


ERAS1= 




00452 





70000 


1 06024 


CPYTF 


CPY 


TIFRD»1 




00453 





02000 


00456 




TRA 


CLATFA 




00454 





07400 


4 00004 




TSX 


RDF0RT*4 




00455 


1 


77777 


1 00476 




TXI 


CHECK, l.-l 




00456 





50000 


1 06024 


CLATFA 


CLA 


TIFRD»1 




00457 


-0 


12000 


00451 




TMI 


CPYTF-1 




00460 


-0 


32000 


00057 




ANA 


TGMSK= 




00461 





40200 


00031 




SUB 


LAI 




00462 





70000 


1 06023 




CPY 


TIFRD-1»1 




00*63 





10GO0 


00467 




TZE 


GOTONA 




00464 





40200 


00034 




SUB 


L5...= 




00465 


-0 


10000 


00452 




TNZ 


CPYTF 




00466 


1 


00002 


1 00452 


ASSN 


TXI 


CPYTF»1»2 




00467 





50000 


1 06023 


GO TON A 


CLA 


TIFRD-ltl 




00470 





62200 


00105 




STD 


ERAS1= 




00471 





73400 


4 00000 




PAX 


0*4 




00472 


-0 


75400 


4 00000 




PXD 


Oi4 




00473 





40200 


00105 




SUB 


ERAS1= 




00474 





62200 


00475 


SELF4 


STD 


SELF4+1 




00475 


1 


00000 


1 00466 




TXI 


ASSN*1»XXXXXX 





F4412690 
F4412700 

F4412710 

X SHOULD BE ENTERED HEREi SAVE NEXTF44I2 720 



ENTRY AND STORE X 
IS THIS LAST ENTRY IN TABLE. 
YES* TRANSFER 
NO* SHIFT NEXT ENTRY 



IS THIS LAST ENTRY IN TABLE 
YES* STORE LAST ENTRY 

STORE LAST ENTRY 

RESTORE INDEX REGISTER 

TRANSFER BACK. 

BBLIST IS FULL WITHOUT THIS ENTRY 

IFGO FROM TAPE 2* FILE 5* RECORD 6» 
PARTS OF TIFGO. 

INITIALIZE ERROR BOX 

POSITION TAPE. TO READ TIFGO 



GET NO. OF RECORDS IN DOTAG 
BACKSPACE OVER COUNT* END FILE* 
DOTAG* END FILE* 9 TABLES 



COPY TABLE NUMBER 

COPY NO OF WORDS IN TABLE 

COPY WORD OF TIFGO 

REGULAR EXIT FROM COPY 

END OF FILE SHOULD NOT OCCUR 

END OF RECORD - GIVE RTT* SET 

LOOK AT THIS WORD OF TIFGO 



F44I2 730 
F4412 740 
F4412750 
F4412760 
F4412770 
F4412780 
F4412790 
F4412800 
F4412810 
F4412820 
F4412830 
F4412840 
F4412850 
F4412860 
F4412870 
F4412880 
F4412890 
F4412900 
F4412910 
F4412920 
F4412930 
F4412940 
F4412950 
F4412960 
F4412970 
F4412980 
F4412990 
F4413000 
F4413010 
F4413020 
F4413030 
F*413Q40 
F^*»13020 
INDEXF4413060 
P4413070 



- MEANS AN IF. GIVE 2ND COPY* IGNOREF4413080 
IS THIS A GO TO N ENTRY F4413090 

F4413100 
F4413110 
F4413120 
F4413130 
F4413140 
F4413150 
F4413160 
F4413170 
F4413180 
F4413190 
F4413200 
F4413210 
F4413220 



COPY SECOND WORD OF ENTRY 

THIS IS A GO TO N ENTRY 

NOT A GO TO N — IS IT AN ASSIGN 

NO* LOOK AT NEXT ENTRY* DONT SAVE 

AN ASSIGN»KEEP ENTRY IN TIFRD 

A GO TO N» SAVE ENTRY AND ALSO 

LEAVE ENOUGH SPACE FOR CORRES- 
PONDING ENTRIES IN TRAD 



LOOK AT NEXT ENTRY IN TIFRD 



U 



o 



00476 


76600 00333 


CHECK 


IOD 




00477 


-0 76000 00012 




RTT 




00500 


02000 00515 




TRA 


ERRORA 


00501 


50000 00106 




CLA 


ERAS2= 


00502 


40200 00035 




SUB 


T I FLAB 


00503 


-0 10000 00524 




TNZ 


BADPOS 


00504 


-0 75400 1 00000 




PXD 


0*1 


00505 


62200 00570 




STD 


ABOX 


00506 


77100 00022 




ARS 


18 


00507 


60100 00106 




STO 


ERAS2= 


00510 


-0 10000 00525 




TN2 


RDTRAD-2 


00511 


76200 00222 


R0S6 


RDS 


TBLTAP 


00512 


TT7777 2 00513 




TXI 


RDS6+2»2»-l 


00513 


-0 63400 2 07774 




SXD 


BB0X«-«2 


00514 


02000 00637 




TRA 


LXA6 


00515 


50000 00030 


ERRORA 


CLA 


ERRBX 


00516 


-0 12000 00520 


SKIP2 


TMI 


SKIP2+2 


00517 


07400 4 00004 




TSX 


RDF0RT*4 


00520 


40000 00031 




ADO 


LAI 


00521 


60100 00030 




STO 


ERRBX 


00522 


-0 53400 1 00040 




LXD 


LD1..=»1 


00523 


02000 00445 




TRA 


BSTA 


00524 


07400 4 00004 


BADPOS 


TSX 


RDF0RT«4 

THIS ROUTINE READS T 
ENTERS ALL WORDS OF 


00525 


50000 00032 




CLA 


MINUS4 


00526 


60100 00030 




STO 


ERRBX 


00527 


53400 1 00031 


RDTRAO 


LXA 


LA1»1 


00530 


76200 00222 




RDS 


TBLTAP 


00531 


70000 00105 




CPY 


ERAS1= 


00532 


70000 1 03711 




CPY 


TRAD«=+1*1 


00533 


1 77777 1 00532 


SELF5 


TXI 


SELF5-1»1»-1 


00534 


07400 4 00004 




TSX 


RDF0RTt4 


00535 


76600 00333 




IOD 




00536 


-0 76000 00012 




RTT 




00537 


02000 00551 




TRA 


ERR2TD 


00540 


50000 00105 




CLA 


ERAS1= 


00541 


40200 00036 




SUB 


TRALAB 


00542 


-0 10000 00524 




TNZ 


BADPOS 


00543 


-3 00000 1 00560 


TXLTRD 


TXL 


TXITRD»1»0 


00544 


50000 1 03710 




CLA 


TRAD«=»1 


00545 


76700 00022 




ALS 


18 


00546 


60100 1 03710 




STO 


TRAD.=*1 


00547 


07400 4 00356 




TSX 


ST8»4 


00550 


1 0O001 1 00543 




TXI 


TXLTRD«1»1 


00551 


50000 00030 


ERR2TD 


CLA 


ERRBX 


00552 


-0 22000 00554 


SKIP3 


TMI 


SKIP3+2 


00553 


07400 4 00004 




TSX 


RDF0RTf4 


00554 


40000 00031 




ADD 


LAI 


00555 


60100 00030 




STO 


ERRBX 


00556 


76400 00222 




BST 


TBLTAP 


00557 


02000 00527 




TRA 


RDTRAD 


00560 


1 77777 2 00561 


TX1TRD 


TXI 


TXITRD+1»2#-1 



F4413230 
F4413240 
F4413250 
F44 13260 
F4413270 
F4413280 
F4413290 
F4413300 
F4413310 
F4413320 
F4413330 
F4413340 
S IN TTFW-5KTP PR0CESSTNGF44T335O 

F4413360 
F4413370 
F4413380 
F4413390 
F44 13400 
F4413410 
F4413420 
F4413430 
F4413440 
F4413450 
F4413460 
F4413470 
F4413480 
F4413490 
F4413500 
F4413510 
F4413520 
F4413530 
F4413540 
F4413550 
F4413560 
F4413570 
F4413580 
F4413590 
F4413600 
F4413610 
F4413620 

ALL OF TRAD NOW IN BASIC BLOCK LISTF4413630 
NO ERROR— ENTER IN BASIC BLOCK L1STF4413640 

F4413650 



TEST FOR TAPE ERROR 

ERROR 

CHECK FOR POSITIONING OF TAPE 



SAVE LENGTH OF TABLE FOR TESTS 



TIFGO IS NOT EMPTY 



NO ENTRIi 



HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 

RESET INDEX REGISTER 

TAPE POSITIONED INCORRECTLY 

RAD FROM TAPE 2. FILE 5» RECORD 7. AND 
TRAD INTO THE BASIC BLOCK LIST. 
INITIALIZE ERROR BOX 

SET INDEX 

COPY TABLE NUMBER 

COPY NUMBER OF WORDS AND TABLE 

COPY NEXT WORD 

END OF FILE SHOULD NOT OCCUR 

END OF RECORD— TEST FOR ERROR 

ERROR 

CHECK FOR POSITIONING OF TAPE 



SHIFT WORD OF TRAD 



SET FOR NEXT WORD IN TRAD 

HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 



F4413660 
F4413670 
F4413680 
F4413690 
F4413700 
F4413710 
F4413720 
F4413730 
F4413740 
F4413750 
F4413760 



cr r i- 



00561 -0 63400 2 07774 



SXD BBQX # =»2 















THIS COMBINES 


TIFGO 


00562 


53400 


1 


00031 


CMBNE 


LXA 


LA1»1 




00563 


50000 


1 


06024 


CLATF 


CLA 


TIFRD*1 




00564 


-0 32000 





00057 




ANA 


TGMSK= 




00565 


40200 





00031 




SUB 


LAI 




00566 


10000 





00572 




TZE 


60TN2 




00567 


1 00002 


1 


00570 




TXI 


AB0X»1*2 




00570 


-2 00000 


1 


00563 


ABOX 


TNX 


CLATF* 1 




00571 


02000 





00605 




TRA 


CLAER 




00572 


50000 


1 


06023 


G0TN2 


CLA 


TIFRD-1»1 




00573 


-0 73400 


2 


00000 




PDX 


0*2 




00574 


76700 





00022 




ALS 


18 




00575 


62200 





00603 




STD 


TXH 




00576 


50000 


2 


04303 


CLATR 


CLA 


TRAD«=+251»2 




00577 


-0 76000 





00003 




SSM 






00600 


60100 


1 


06022 




STO 


TIFRD-2»1 




00601 


1 77777 


2 


00602 




TXI 


TXIA»2»-1 




00602 


1 00001 


1 


00603 


TXIA 


TXI 


TXH»1»1 




00603 


3 00000 


2 


00576 


TXH 


TXH 


CLATRt2 




00604 


1 00002 


1 


00570 




TXI 


AB0X»1*2 
THIS ROUTINE 


WRITES 


00605 


50000 





00106 


CLAER 


CLA 


ERAS2= 




00606 


-0 12000 





00643 




TMI 


RFRET 




00607 


40200 





00041 




SUB 


LZTIF= 




00610 


-0 12000 





00637 


TMI 


TMI 


LXA6 




00611 


53400 


1 


00041 




LXA 


LZTIF=#1 




00612 


60100 





00106 




STO 


ERAS2= 




00613 


76600 





00301 


WR5TIF 


WRS 


T I FORM 




00614 


-0 75400 


1 


00000 




PXO 


0* 1 




00615 


60100 





00107 




STO 


£RAS3= 




00616 


36100 


1 


06024 


ACLF 


ACL 


TIFRD»1 




00617 


2 00001 


1 


00616 




TIX 


ACLF»1»1 




00620 


60200 





00105 




SLW 


ERAS1= 




00621 


46000 





00047 




LDA 


Y 




00622 


-0 53400 


1 


00107 




LXD 


ERAS3=»1 




00623 


70000 





00107 




CPY 


ERAS3= 




00624 


70000 


1 


06024 


CPY7FT 


CPY 


TIFRDtl 




00625 


2 00001 


1 


00624 


SELF9 


TIX 


SELF9-l»lfl 




00626 


70000 





00105 




CPY 


ERAS1= 




00627 


-0 50000 





00616 




CAL 


ACLF 




00630 


40200 





00041 




SUB 


LZTIF= 




00631 


62100 





00616 


STA6 


STA 


ACLF 




00632 


62100 





00624 




STA 


CPY7FT 




00633 


50000 





00047 




,:la 


Y 




00634 


40000 





00042 




ADD 


LZTF2= 




00635 


62100 





00047 




STA 


Y 




00636 


02000 





00605 




TRA 


CLAER 




00637 


53400 


1 


00106 


LXA6 


LXA 


ERAS2=»1 




00640 


50200 





00033 




CLS 


L0...= 




00641 


60100 





00106 




STO 


ERAS2= 




00642 


02000 





00613 




TRA 


WRSTIF 





SAVE LENGTH OF BB TABLE 

AND TRAD INTO TIFRD 

COMBINE TRAD WITH TIFGO 
LOOK FOR A GO TO N ENTRY 



IN TIFRD 



IS THIS END OF TIFRD 

YES* STORE TIFRD ON DRUM 

GO TO Nf PUT IN ENTRIES FROM TRAD 

SET INDEX FOR FIRST WORD 

STORE INDEX FOR LAST WORD 
STORE WORD FROM TRAD INTO TIFRD 



F4413770 
F4413780 
F4413790 
F4413800 
F4413810 
F4413820 
F4413830 
F4413840 
F4413850 
F4413860 
F4413870 
F4413880 
F4413890 
F4413900 
F4413910 
F4413920 
F4413930 
F4413940 
F4413950 
F4413960 



SET INDEX FOR TRAD 

SET INDEX FOR TIFRD 

CHECK FOR LAST WORD FOR THIS GO TO F4413970 

SET FOR NEXT ENTRY IN TIFRD F4413980 

F4413990 
F4414000 
F4414010 
F4414020 
F4414030 
F4414040 
F4414050 
F44 14060 
F44 14070 

PUT LENGTH OF BLOCK IN ACCUMULATOR F4414080 



TIFRD ON DRUM 1 IN BLOCKS OF 200 WORDS. 
HOW MANY WORDS ARE LEFT TO COPY 
NONE 

ONLY A PARTIAL BLOCK 

FULL 

STORE NO OF WORDS LEFT AFTER THIS 



AND IN ERAS3= 
COMPUTE CHECKSUM 

STORE CHECK SUM 

LOCATE DRUM ADDRESS 

SET INDEX 

COPY NO OF WORDS IN BLOCK 

COPY TABLE 

COPY CHECK SUM 
SET ADDRESSES FOR COMPUTING 
CHECK SUM AND COPY 



SET DRUM ADDRESS 



F4414090 
F4414100 
F4414110 
F4414120 
F4414130 
F4414140 
F4414150 
F4414160 
F4414170 
F4414180 
F4414190 
F4414200 
F4414210 
F4414220 
F4414230 
F4414240 
F4414250 
F4414260 
F4414270 



DO NEXT BLOCK 
PUT LENGTH IN INDEX 
PUT MINUS IN ERAS2= AS LENGTH LEFT F4414280 

F4414290 
TRA TO WRITE BLOCK AND COMPUTE CKSMF4414300 



o 









THIS ROUTINE READS 


FRET 








CHANGES FREQUENCIES 


TO 


00643 


50000 00032 


RFRET 


CLA MINUS4 




00644 


60100 00030 




STO ERRBX 




00645 


53400 4 00034 




LXA L5...=.4 




00646 


76200 00222 


RDSFTP 


RDS TBLTAP 




00647 


2 00001 4 00646 




TIX RDSFTP»4»1 




00650 


70000 00106 




CPY ERAS2= 




00651 


70000 00105 


RDINF 


CPY ERAS1= 




00652 


-0 53400 2 00105 




LXD ERAS1=»2 




00653 


-3 00000 2 01012 




TXL EMPTY*2»0 




©0654 


© 53400 1 OW3T 




LXA LAl»l 




00655 


-0 53400 4 00050 




LXD LXFRT=*4 




00656 


70000 4 06023 


CPYF 


CPY FRET. =#4 




00657 


50000 4 06023 




CLA FRET.=»4 




00660 


-0 12000 00665 




TMI TNX 




00661 


40O00 4 06022 


ADD 


ADD FRET«=-1»4 




00662 


60100 4 06023 




STO FRET.=»4 




00663 


-2 00001 2 00724 




TNX ALDNE»2»1 




00664 


1 77777 4 00656 




TXI CPYF.4«-1 




00665 


-2 00001 2 00711 


TNX 


TNX ERRFN »2»1 




00666 


1 77777 4 00667 


SELF10 


TXI S£LF10+1»4.-1 




00667 


70000 4 06023 


CPY3FT 


CPY FRET.=»4 




00670 


-2 00001 2 00706 




TNX D0END.2»1 




00671 


1 77777 4 00672 


SELF11 


TXI SELF11+1»4»-1 




00672 


70000 4 06023 




CPY FRET«=»4 




00673 


50000 4 06023 




CLA FRET«=»4 




00674 


12000 00661 




TPL ADO 




00675 


50000 4 06021 


DOCSFT 


CLA FRET.--2#4 




00676 


60100 1 06023 




STO DVFQ*=»1 




00677 


50000 4 06022 




CLA FRET.=-1»4 




00700 


60100 1 06022 




STO DVFGU=-1>1 




00701 


1 00002 1 00702 




TXI CLAFT»1»2 




00702 


50000 4 06023 


CLAFT 


CLA FRET«=*4 




00703 


60100 4 06021 




STO FRET«=-2>4 




00704 


-2 00001 2 00711 




TNX ERRFN»2»1 




00705 


1 00001 4 00667 




TXI CPY3FT»4»1 




00706 


50000 00663 


DOEND 


CLA ADD+2 




00707 


62100 00704 




STA CLAFT+2 




00710 


02000 00675 




TRA DOCSFT 




00711 


07400 4 00004 


ERRFN 


TSX RDF0RT»4 




00712 


50000 00665 




CLA TNX 




00713 


62100 00704 




STA CLAFT+2 




00714 


50000 00030 


ERRORF 


CLA ERRBX 




00715 


-0 12000 00717 


SKIP4 


TMI SKIP4+2 




00716 


07400 4 00004 




TSX RDF0RT»4 




00717 


40000 00031 




ADD LAI 




00720 


60100 00030 




STO ERRBX 




00721 


76400 00222 




BST TBLTAP 




00 722 


76200 00222 




RDS TBLTAP 




00723 


02000 00650 




TRA RDSFTP+2 




00724 


76600 00333 


ALDNE 


IOD 




00725 


-0 76000 00012 




RTT 





F4414310 
F4414320 
F4414330 
F4414340 
F4414350 
F4414360 
F4414370 
F4414380 
F4414390 
F4414400 
F4414410 
F4414420 
F4414430 
F4414440 

COPY WORDS INTO STORAGE F4414450 

IS THIS WORD THE FORMULA NUMBER OF F4414460 

A NEW ENTRY—YES. TRANSFER F4414470 

NO. ADD THIS FREQUENCY TO PREVIOUS F4414480 

SUM TO GET CUMULATIVE FREQUENCY F4414490 



FROM TAPE 2. FILE 5. RECORD 12* AND 
PROBABILITIES. 

INITIALIZE ERROR BOX 

SPACE TO FRET 



COPY TABLE NUMBER 

COPY NUMBER OF WORDS IN TABLE 

PUT NUMBER OF WORDS INTO INDEX B 

INITIALIZE INDEX REGISTERS A AND C 



IS TABLE ALL COPIED 
NO • COPY NEXT WORD 



F4414500 
F4414510 



THIS IS FORM* NO* — SHOULDNT END TABF4414520 
INDEX PLACE IN STORAGE F4414530 

COPY FIRST FREQUENCY IN ENTRY F4414540 
TEST FOR END OF TABLE ON TAPE F4414550 
INDEX PLACE IN STORAGE F4414560 

COPY NEXT WORD — IS IT NEXT FREQ ORF4414570 



IS IT NEW FORMULA NUMBER 
NEXT FREQUENCY .GO TO ADD 
NEW FORMULA NUMBER »ENTRY JUST 

COPIED WAS FOR A DO* MOVE TO 

DVFQ 



F4414580 
F4414590 
F4-4 14600 
F44I4610 
F4414620 
F4414630 

INDEX POSITION IN DVFQ TABLE F4414640 
PUT NEW FORMULA INTO FRET IN PLACE F4414650 
OF ENTRY JUST MOVED F4414660 

THIS SHOULD BE END ONLY IF WAS DOCSF4414670 
COPY NEXT WORD F4414680 

THIS DO ENTRY IS END OF TABLE F4414690 
RESTORE ADDRESS F4414700 

ERROR EXIT F4414710 

THE TAPE RECORD ENDS WITH A FORMULAF4414720 



NUMBER WITH NO FREQUENCIES 
RESTORE ADDRESS 

HAVE 5 TRIES AT READING BEEN MADE 
YES» 60 TO DIAGNOSTIC ROUTINE 
NO* TRY READING AGAIN 



SET TO READ FRET AGAIN. 
TRY AGAIN 



TEST FOR TAPE ERROR 



F4414730 
F4414740 
F4414750 
F4414760 
F4414770 
F4414780 
F4414790 
F4414800 
F4414810 
F4414820 
F4414830 
F4414840 



O '/ 



00726 





02000 





00714 




TRA 


ERRORF 


00727 





50000 





00106 




CLA 


ERAS2= 


00730 





40200 





00037 




SUB 


FRELAB 


00731 


-0 


10000 





00524 




TNZ 


BADPOS 


00732 


1 


77777 


4 


00733 




TXI 


C0NTN»4t-l 


00733 


-0 


63400 


1 


01274 


CONTN 


SXD 


DVFTST«1 


00734 


-0 


63400 


4 


00107 




SXD 


FRTBX=.4 


00735 


1 


00001 


4 


00736 




TXI 


CLAl»4tl 


00736 





50000 


4 


06023 


CLA1 


CLA 


FRET.=»4 


00737 





60100 





00105 




STO 


ERAS1= 


00740 





50000 





00052 




CLA 


ENDMK= 


00741 





60100 


4 


06023 




STO 


FRET.=«4 


00742 


1 


00001 


4 


00743 




TXI 


CLAD»4»1 


00743 





50000 


4 


06023 


CLAD 


CLA 


FRET.=»4 


00744 


-0 


12000 





00753 




TMI 


NEWFM 


00745 





56000 





00033 




LDQ 


L0...= 


00746 





22100 





00105 




DVP 


ERAS1= 


00747 





76000 





00012 




DCT 




00750 





56000 





00052 




LDQ 


ENDMK= 


00751 


-0 


60000 


4 


06023 




STQ 


FRET. =#4 


00752 


1 


00001 


4 


00743 




TXI 


CLAD»4»1 


00753 


1 


00001 


4 


00754 


NEWFM 


TXI 


NEWFM+lt4tl 


00754 


-2 


01750 


4 


00736 




TNX 


CLA1»4#XFRET= 

THIS ROUTINE WRITES 


00755 





50200 





00107 


DONE 


CLS 


FRTBX= 


00756 





40000 





00050 




ADD 


LXFRT= 


00757 


-0 


73400 


4 


00000 




PDX 


0*4 


00760 


-2 


00372 


4 


01006 


LZFRT" 


TNX 


LSTBLKt4»ZFRET= 


00761 


-0 


53400 


3 


00760 




LXD 


LZFRT=»3 


00762 





50000 





00043 




CLA 


LAZFT* 


00763 





40100 





00771 


ADM 


ADM 


ACLA 


00764 





62100 





00771 




STA 


ACLA 


00765 





62100 





00776 




STA 


CPYFT 


00766 





76600 





00302 




WRS 


FRTDRM 


00767 


-0 


75400 


2 


00000 




PXD 


Gt2 


00770 





60100 





00106 




STO 


ERAS2= 


00771 





36100 


2 


04053 


ACLA 


ACL 


FRETN=t2 


00772 


2 


00001 


2 


00771 




TIX 


ACLA»2»1 


0O773 





60200 





00105 




SLW 


ERAS1* 


00774 





46000 





00046 




LDA 


FRETY* 


00775 





70000 





00106 




CPY 


ERAS2= 


00776 





70000 


1 


04053 


CPYFT 


CPY 


FRETN=»1 


00777 


2 


00001 


1 


00776 




TIX 


CPYFT»1»1 


01000 





70000 





00105 




CPY 


ERAS1= 


01001 


3 


01750 


4 


01014 




TXH 


0UTA»4»XFRET= 


01002 





50000 





00046 




CLA 


FRETY= 


01003 





40000 





00044 




ADD 


LAFT2= 


01004 





62100 





00046 




STA 


FRETY= 


01005 





02000 





00760 




TRA 


LZFRT= 


01006 


-0 


75400 


4 


00000 


LSTBLK 


PXD 


0t4 


01007 


-0 


73400 


3 


ooooo 




PDX 


0*3 


01010 





77100 





00022 




ARS 


18 


01011 


1 


01750 


4 


00763 




TXI 


ADMf4tXFRET= 



ERROR 

CHECK FOR POSITIONING OF TAPE 



SAVE 
SAVE 



LENGTH OF DVFQ TABLE 

LENGTH OF FRET TABLE IN ST0R» 

(LAST WD) 



F4414850 
F4414860 
F4414870 
F4414880 
F4414890 
F4414900 
F4414910 
F44 14920 
F4414930 
F4414940 
F4414950 
F4414960 
F4414970 
F4414980 
F4414990 
F4415000 
F4415010 
F4415020 
F 4415030 
F4415040 
F4415050 
F4415060 
F4415070 
F4415080 
F4415090 
F4415100 
F4415110 
PUT NO« OF WORDS IN FRET INTO INDEXF4415120 
IS THERE ONLY A PARTIAL BLOCK LEFT F4415130 
NO» FULL BLOCK — SET INDEX REGS. F4415140 



TAKE TOTAL FREQ OF ENTRY 

STORE AS DIVISOR 

STORE HIGHEST NO AS TOTAL PROB. 

INDEX PLACE IN FRET 
LOOK AT NEXT WORD 

FORMULA NUMBER—END OF THIS ENTRY 
ANOTHER CUMULATIVE FREQUENCY 
DIVIDE BY TOTAL FREQUENCY TO GET 
CUMULATIVE PROBABILITY 



LOOK AT NEXT WORD 
IS THIS END OF TABLE 
NO — LOOK AT NEXT ENTRY 

FRET ON DRUM 2 IN BLOCKS OF 250 WORDS 



GET LENGTH OF BLOCK 
SET ADDRESSES FOR BLOCK 



SELECT DRUM 

STORE LENGTH OF BLOCK 
FIND CHECKSUM 

STORE CHECKSUM 

COPY NO OF WORDS IN BLOCK 
COPY BLOCK 



F4415150 
F4415160 
F4415170 
F4415180 
F4415190 
F44152O0 
F4415210 
F4415220 
F4415230 
F4415240 
F4415250 
F4415260 
F4415270 
F4415280 
F4415290 
F4415300 



COPY CHECK SUM 

IS THIS END OF TABLE 

NO»SET DRUM ADDRESS FOR NEXT BLOCK F4415310 

F4415320 
F4415330 
F4415340 
LEFT F4415350 

INDICES F4415360 
F4415370 
F4415380 



DO NEXT BLOCK 

ONLY A PARTIAL BLOCK 

LENGTH OF BLOCK INTO 



,& 



01012 





76600 





00302 


EMPTY 


WRS 


FRTDRM 




01013 





46000 





00046 




LDA 


FRETY* 




01014 





70000 





00033 


QUTA 


CPY 


L0.#.= 




01015 





77200 





00224 




REW 


INSTTP 

THIS ROUTINE SORTS 


THE 


01016 


-0 


53400 


1 


07775 


SRTDO 


LXD 


D0B0X=»1 




01017 


-3 


00000 


1 


01305 




TXL 


CLTRA=-3*1»0 




01020 


-0 


63400 


1 


00106 




SXD 


ERAS2=il 




01021 





50000 


1 


06500 


CLADO 


CLA 


D0LIST»1 




01022 





56000 


1 


06501 




LDQ 


D0LIST+1»1 




01023 


-3 


00002 


1 


01046 


TXLDQ 


TXL 


STQR£A>1*2 




01024 





34000 


1 


06502 




CAS 


D0LIST+2»1 




01025 


1 


77776 


1 


01023 




TXI 


TXLD0»l»-2 




01026 





02000 





01040 




TRA 


COMPR 




01027 





60100 





00105 




STO 


ERAS1= 




01030 





50000 


1 


06503 




CLA 


D0LIST+3»1 




01031 


-0 


60000 


1 


06503 


STQDO 


STQ 


D0LIST+3»1 




01032 





56000 





00105 




LDQ 


ERAS1= 




01033 





60100 





00105 




STO 


ERAS1= 




01034 





50000 


1 


06502 




CLA 


D0LIST+2»1 




01035 


-0 


60000 


1 


06502 




STQ 


D0LIST+2*1 




01036 





56000 





00105 




LDQ 


ERAS1= 




01037 


1 


77776 


1 


01023 




TXI 


TXLD0»1*~2 




01040 





60100 





00105 


COMPR 


STO 


5RAS1= 




01041 





50000 


1 


06503 




CLA 


D0LIST+3#1 




01042 





04000 





01044 




TLQ 


CLA2 




01043 





02000 





01031 




TRA 


s r ioo 




01044 





50000 





00105 


CLA2 


CLA 


ERAS1= 




01045 


1 


77776 


1 


01023 




TXI 


TXLDC-tl»-2 




01046 


-0 


53400 


1 


00106 


STOREA 


LXO 


ERAS:* »1 




01047 





60100 


1 


06500 




STO 


i^vi, » .3 ) t 1- 




01050 


-0 


60000 


1 


06501 




STQ 


DOi-l £1+1*1 




01051 


1 


77776 


1 


01052 


SELF13 


TXI 


SELF13+1* lt-2 




01052 


-0 


63400 


1 


00106 




SXD 


ERAS2=#1 




01053 


3 


0000 2 


1 


01021 




TXH 


CLADOt 1»2 





F4415390 
F4415400 
F4415410 

REWIND COMPILED INSTRUCTION TAPE F4415420 

F4415430 

LIST OF TXL INSTRUCTIONS BY ADDRESS F4415440 

PUT TOTAL LNGTH OF DOLIST IN ERAS2=F4415450 

IF NO DOS* OMIT ROUTINES WITH DOS F4415460 

F4415470 
TAKE LAST ENTRY NOT ALREADY SORTED F4415480 



PUT ADDRESS IN AC* LOC IN MQ 
IS T^6R€ ANOTHER £NT«¥ TO BE 

COMPARED 
YES* COMPARE ADDRESSES 
STORED ADDRESS SMALLER* LOOK AT 

NEXT WORD 



01054 
01055 
01056 
01057 
01060 
01061 
01062 
01063 
O1064 
01065 
01066 
01067 



53400 
50000 
62200 
53400 
00000 
50000 
34000 
00001 
02000 
77777 
75400 
60100 



THIS ROUTINE REPLACES 
BY BASIC BLOCK NUMBERS 

2 00033 LXA L0»««=*2 

07775 CLA DOBOX= 

01060 STD TIXDO 

1 00031 LXA LA1»1 

1 01102 TIXDO TIX RDDOT.l 

06477 CLA DOLIST-i il 

07773 LDQ CAS BBLIST*2 

01062 TXI LDQ*2»1 

01066 TRA LDQ+4 

01066 TXI LDQ+4»2»-l 

00000 LDQP4 PXD 0*2 

06477 STO D0L1ST-1»1 



THE 



F4415490 
F441£50O 
F4415510 
F4415520 
F4415530 
F4415540 



ADDRESSES ARE EQUAL* COMPARE LOCATNF4415550 



STORED ADDRESS LARGER* EXCHANGE 
ENTRIES 



ADDRESSES EQUAL *COMPARE LOCATIONS 

STORED LARGER »DO NOT EXCHANGE 
STORED LOC SMALLER* EXCHANGE 
RESTORE ACCUMULATOR 



F4415560 
F4415570 
F4415580 
F4415590 
F4415600 
F4415610 
F4415620 
F4415630 
F4415640 
F4415650 
F4415660 
F4415670 
F4415680 
F**15690 
F^415700 
F*4l5710 
F4415720 



NOW HAVE HIGHEST OF ENTRIES NOT 
PREVIOUSLY SORTED* STORE JUST 
BEFORE THOSE ALREADY SORTED AND F4415730 
SET INDEX TO AVOID THIS ENTRY ASF4415740 
ALREADY SORTED* LOOK FOR HI6HESTF4415750 
ENTRY OF THOSE NOT YET SORTED* F4415760 
TABLE IS ENTIRELY SORTED NOW. F4415770 

F4415780 
INSTRUCTION NUMBERS IN THE DO LIST F4415790 

F4415800 
F4415810 
F4415820 



INITIALIZE INDEX REGISTERS 

PUT NUMBER OF WORDS IN LIST INTO 

DECREMENT OF TIX FOR COMPARISON F4415830 

F4415840 

HAVE ALL ENTRIES BEEN DONE 

ADD INST NO TO BE CHANGED (ADDR) 

COMPARE TO INST NO OF BEG OF BB 

BEG BB LESS* TRY NEXT 

BEG. B*B* EQUAL.FOUND 

BEG B B GREATER* PREVIOUS BB IS IT F4415900 

PUT B B NO IN DECREMENT F4415910 

REPLACE INSTR NO IN DO LIST F4415920 



F4415850 
F4415860 
F4415870 
F4415880 
F4415890 



(r> 



01070 





50000 


1 


06500 




CLA 


DOLISTtl 


01071 





34000 


2 


07773 




CAS 


BBLIST»2 


01072 


1 


00001 


2 


01071 


SELF14 


TXI 


SELF14-1»2.1 


01073 





02000 





01075 


SELF15 


TRA 


5ELF15+2 


01074 


1 


77777 


2 


01075 


SELP16 


TXI 


SELF16+1»2»-1 


01075 


-0 


75400 


2 


00000 


CASP4 


PXD 


0*2 


01076 





60100 


1 


06500 




STO 


DOLISTfl 


01077 





50000 


1 


06477 




CLA 


DQLIST-1»1 


01100 


-0 


73400 


2 


00000 




PDX 


0*2 


01101 


1 


00002 


1 


01060 




TXI 


TIXD0»1»2 
THIS ROUTINE 


01102 





50000 





00032 


RDDOT 


CLA 


MINUS4 


01103 





60100 





00030 




STO 


ERRBX 


01104 





76200 





00301 


RDSDOT 


RDS 


DOCRDR 


01105 





53400 


1 


00033 




LXA 


L0»«« S «1 


01106 





70000 





00105 




CPY 


ERAS1= 


01107 





53400 


4 


00105 




LXA 


ERAS1=#4 


OHIO 





70000 





00106 




CPY 


ERAS2= 


01111 


-2 


00002 


4 


01141 




TNX 


CLAE»4»2 


01112 





70000 


1 


04216 


CPYDOT 


CPY 


DOCARE #1 


01113 


1 


00001 


1 


01114 


SELF17 


TXI 


SELF17+1»1»1 


01H4 





70000 


1 


04363 




CPY 


D0CARE+101»1 


01115 


2 


00002 


4 


01112 




TIX 


CPYDOT«4t2 


01116 


-0 


63400 


1 


00107 




SXD 


ERAS3=»1 


01117 


-0 


53400 


2 


00107 




LXO 


ERAS3=#2 


01120 


-0 


50000 





00105 




CAL 


ERAS1= 


01121 





36100 


1 


04217 




ACL 


D0CARE+H1 


01122 


2 


00001 


1 


01121 


SELF18 


TIX 


SELF18-1»1#1 


01123 





60200 





00105 




SLW 


ERAS1= 


01124 


-0 


50000 





00106 




CAL 


ERAS2= 


01125 





36100 


2 


04363 


ACLB 


ACL 


DOCARE+101»2 


01126 


2 


00001 


2 


01125 




TIX 


ACLB»2»1 


01127 





60200 





00106 




SLW 


ERAS2= 


01130 





50000 





00106 


CHSMCR 


CLA 


ERAS2= 


01131 





40200 





00105 




SUB 


ERAS1= 


01132 





10000 





01143 




TZE 


RDDTG 


01133 





50000 





00030 




CLA 


ERRBX 


01134 


-0 


12000 





01136 


SKIPS 


TMI 


SKIP5+2 


01135 





07400 


4 


00004 




TSX 


RDF0RTt4 


01136 





40000 





00031 




ADD 


LAI 


01137 





60100 





00030 




STO 


ERRBX 


01140 





02000 





01104 




TRA 


RDSDOT 


01141 





60OOO 





0O107 


CLAE 


STZ 


ERAS3= 


01142 





02000 





01130 




TRA 


CHSMCR 

THIS ROUTINE 

IT 

TBLTAP 


01143 





76200 





00222 


RDDTG 


RDS 


01144 





76200 





00222 




RDS 


TBLTAP 


01145 





76200 





00222 




RDS 


T8LTAP 


01146 





50000 





00032 




CLA 


MINUS4 


01147 





60100 





00030 




STO 


ERRBX 


01150 


-o 


53400 


1 


00054 




LXD 


OPMSK=fl 



ADD INSTR NO OF LOC OF TXL 

COMPARE TO BB OF ADDR FIRST 

TOO SMALL — TRY NEXT 

EQUAL — FOUND 

TOO LARGE t WAS ONE PREVIOUS 

PUT BB NO INTO DOLIST IN PLACE OF 

INSTRUCTION NUMBER 
PUT BB NO OF ADDRESS OF THIS DO 

INTO IR B TO START COMPARISON 
DO NEXT ENTRY 



READS DOCARE FROM DRUM 1 

INITIALIZE ERROR BOX 

SELECT DOCARE DRUM 
ZERO INTO I.R.A 



TEST FOR EMPTY TABLE 
COPY TABLE 



COPY CHECKSUMS 
TEST FOR END 
SAVE INDEX 



SUM ENTRIES 



SUM CHECKS 



NO ERROR-DO NEXT PART OF PROGRAM 

HAVE 5 TRIES AT READING BEEN MADE 
YES» GO TO DIAGNOSTIC ROUTINE 
NOt TRY READING AGAIN 



SET SIGNAL FOR EMPTY DOCARE 



THIS ROUTINE READS DOT AG FROM TAPE 2» FILE 6» AND CONDENSES 

INITIALIZE ERROR BOX 
COMPLEMENT OF ONE INTO IR A 



F4415930 

F4415940 

F4415950 

F441S960 

F4415970 

F4415980 

F4415990 

F44 16000 

F4416010 

F4416020 

F4416030 

F4416040 

F4416050 

F4416060 

F4416070 

F4416080 

F4416090 

F4416100 

F4416110 

F4416120 

F 4416130 

F4416140 

F4416150 

F4416160 

F4416170 

F4416180 

F4416190 

F4416200 

F4416210 

F4416220 

F4416230 

F4416240 

F4416250 

F4416260 

F4416270 

F4416280 

F4416290 

F4416300 

F4416310 

F4416320 

F4416330 

F4416340 

F4416350 

F4416360 

F4416370 

F4416380 

F4416390 

F4416400- 

F4416410 

F4416420 

F4416430 

F4416440 

F4416450 

F4416460 



n 



01251 





76200 





00222 


RDSDTG 


RDS 


TBLTAP 


01152 





70000 


1 


04216 


CPY10 


CPY 


DOTAG* 1 


01153 





02000 





01156 




TRA 


CPY2D 


01154 





02000 





01203 




TRA 


NTRDO* 


01155 





02000 





01167 




TRA 


TESTDT 


01156 





70000 





00105 


CPY2D 


CPY 


ERAS1- 


01157 





700O0 





00105 




CPY 


ERAS1* 


01160 





70000 





00105 




CPY 


ERAS1= 


01161 





70000 


1 


04217 




CPY 


D0TAG+1»1 


01162 





70000 


1 


04220 




CPY 


D0TAG+2tl 


01163 





70000 


1 


04221 




CPY 


D0TAG+3»1 


©1464 





20000 


o 


©0105 




€PY 


£RASlr= 


01165 





70000 





00105 




CPY 


ERAS1= 


01166 


1 


77774 


1 


01152 




TXI 


CPYlD»l»-4 


01167 


-o 


76000 





00012 


TESTDT 


RTT 




01170 





02000 





01173 




TRA 


ERR2DT 


01171 


-0 


63400 


1 


01216 




SXD 


DTGBX *1 


01172 





02000 





01151 




TRA 


RDSDTG 


01173 





50000 





00030 


ERR2DT 


CLA 


ERRBX 


01174 


-0 


12000 





01176 


SK.IP6 


TMI 


SKIP6+2 


01175 





07400 


4 


00004 




TSX 


RDF0RT#4 


01176 





40000 





00031 




ADD 


LAI 


01177 





60100 





00030 




STO 


ERRBX 


01200 





76400 





00222 




BST 


TBLTAP 


01201 


-0 


53400 


1 


01216 




LXD 


DTGBX#1 


01202 





02000 





01151 




TRA 


RDSDTG 

THIS ROUTINE PUTS 


01203 


-0 


53400 


1 


00054 


NTRDO= 


LXD 


0PMSK=»1 


01204 





53400 


2 


00031 




LXA 


LA1»2 


01205 





53400 


4 


00033 




LXA 


L0«.«=»4 


01206 





50000 





01216 




CLA 


DTGBX 


01207 





62200 





01247 




STD 


DTGBX2 


01210 


-0 


75400 





00000 




PXD 




01211 





60100 





00105 




STO 


ERAS1= 


01212 





60100 





00106 




STO 


ERAS2= 


01213 





02000 





01216 




TRA 


NXTDO+2 


01214 


1 


00002 


2 


01215 


NXTDO 


TXI 


NXTD0+1»2»2 


01215 


1 


77774 


1 


01216 




TXI 


DTGBXtl»-4 


01216 


-3 


77777 


1 


01310 


DTGBX 


TXL 


CLTRA=»1»-1 


01217 





50000 


1 


04221 


CLADT 


CLA 


D0TAG+3»1 


01220 





12000 





01223 




TPL 


STF+2 


01221 





50000 





00053 


STF 


CLA 


TAGMRK. 


01222 


-0 


60200 


2 


06477 




ORS 


D0LIST-1»2 


01223 





50000 


1 


04216 




CLA 


DOTAG »1 


01224 


-0 


32000 





00053 




ANA 


TAGMRK. 


01225 


-0 


10000 





01266 




TNZ 


VRBLN 


01226 





50000 


1 


04220 




CLA 


D0TAG+2tl 


01227 





62100 





00105 




STA 


ERAS1= 


01230 


-0 


75400 





00000 




PXD 




01231 





56000 





00105 




LDQ 


ERAS1= 


01232 





22100 


1 


04217 




DVP 


DOTAG+ltl 


01233 





76000 





00012 




DCT 





COPY RECORD SAVING ONLY THOSE 

PARTS TO BE USED 
END OF FILE— ALL COPIED 
END OF RECORD— TEST FOR ERROR 



F4416470 

F4416480 

F44 16490 

F4416500 

F4416510 

F4416520 

F4416530 

F4416540 

F4416550 

F4416560 

F4416570 

F4446580 

F4416590 

F4416600 

F4416610 

F44 16620 

F4416630 

F4416640 

F4416650 

F4416660 

F4416670 

F4416680 

F4416690 

F4416700 

SET INDEX TO READ LAST RECORD AGAINF4416710 
oci irn^A F4416720 

F4416730 

INFORMATION FROM DOTAG AND DVFQ INTO DOLISTF4416740 



SET FOR NEXT ENTRY 
TEST REDUNDANCY 

SAVE LENGTH OF TABLE SO FAR 
COPY NEXT RECORD 

HAVE 5 TRIES AT READING BEEN MADE 
YES» GO TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 



COMPLEMENT OF ONE INTO I R A 
ONE INTO IR B 
ZERO INTO INDEX C 

PUT LENGTH OF DOTAG IN FOR TEST 



CLEAR ERAS1= AND ERAS2= 



SET FOR NEXT ENTRY 
IS DOTAG FINISHED— IF SO EXIT 
LOOK. FOR INDICATION OF AN IF 
TRANSFER IF DO HAS NO IF 
STORE IF INDICATION IN DOLIST 

LOOK FOR INDICATION OF VARIABLE 

NO OF TIMES IN LOOP 
VARIABLE tGET FROM DVFQ 
GET (N2-N1+N3) AND PUT IN MQ 

CLEAR ACCUMULATOR 
DIVIDE (N2-N1+N3) BY N3 TO GET 
NUMBER OF TIMES IN DO LOOP 



F4416750 
F4416760 
F4416770 
F4416780 
F4416790 
F4416800 
F4416810 
F4416820 
F4416830 
F4416840 
F4416850 
F4416860 
F4416870 
F4416880 
F4416890 
F4416900 
F4416910 
F4416920 
F4416930 
F4416940 
F4416950 
F4416960 
F4416970 
F4416980 
F4416990 
F4417000 



*/> 



) 1/ 



01234 





07400 


4 00004 




TSX 


RDF0RT#4 


01235 


-0 


60000 


00105 


STQDTG 


STQ 


ERAS1= 


01236 





50000 


00105 




CLA 


ERAS1= 


01237 





62100 


2 06500 




STA 


D0LIST»2 


01240 


-0 


53400 


4 00107 


NDDOT 


LXD 


ERAS3=t4 


01241 





50000 


1 04222 




CLA 


D0TA6+4tl 


01242 





34000 


4 04217 


DDCAS 


CAS 


D0CARE+1»4 


01243 





02000 


01245 




TRA 


DDTIX 


01244 


1 


77774 


1 01247 




TXI 


DTGBX2»l»-4 


01245 


2 


00001 


4 01242 


DDTIX 


TIX 


DDCAS»4»1 


01246 





02000 


01214 




TRA 


NXTDO 


01247 


-3 


00000 


1 01310 


DT6BX2 


TXL 


CLTRA=tl 


01250 





50000 


1 04216 




CLA 


D0TAG*1 


01251 


-0 


32000 


00053 




ANA 


TAGMRK 


01252 


-0 


10000 


01264 




TNZ 


VBLN2 


01253 





50000 


1 04220 




CLA 


DOTAG+2»l 


01254 





62100 


00106 




STA 


ERAS2= 


01255 


-0 


75400 


00000 




PXD 


0*0 


01256 





56000 


00106 




LDQ 


ERAS2= 


01257 





22100 


1 04217 




DVP 


DOTAG+l»l 


01260 





76000 


00012 




OCT 




01261 





07400 


4 00004 




TSX 


RDF0RTt4 


01262 





20000 


00105 


MPY 


MPY 


ERAS1= 


01263 





02000 


01235 




TRA 


STQDTG 


01264 





50000 


00101 


VBLN2 


CLA 


LMPY 


01265 





02000 


01267 




TRA 


VRBLN+1 


01266 





50000 


00102 


VRBLN 


CLA 


LSTQ 


01267 





62100 


01304 




STA 


EXIT 


01270 





50000 


1 04216 




CLA 


DOTAGtl 


01271 





77100 


00022 




ARS 


18 


01272 


-0 


76000 


00003 




SSM 




01273 


-0 


53400 


4 00111 




LXD 


DVFQB=»4 


01274 


3 


00000 


4 01300 


OVFTST 


TXH 


LDQ5»4 


01275 





34000 


4 06023 




CAS 


DVFQ.=»4 


01276 


1 


00002 


4 01274 




TXI 


DVFTST»4»2 


01277 


1 


00002 


4 01302 




TXI 


ENTER»4t2 


01 300 





56000 


00034 


LDQ5 


LDQ 


L5...= 


01301 





02000 


01303 




TRA 


ENTER+1 


01302 





56000 


4 06024 


ENTER 


LDQ 


DVFQ,=+1»4 


01303 


-0 


63400 


4 00111 




SXD 


DVFQB=»4 


01304 





02000 


00000 


EXIT 


TRA 




01305 


-0 


53400 


4 00220 




LXD 


LD4#*=#4 


01306 





76200 


00222 


RDSP 


RDS 


TBLTAP 


01307 


2 


00001 


4 01306 




TIX 


RDSP*4»1 

THIS ROUTINE CLEARS 
COUNTERS TO ZERO 


01310 





56000 


00031 


CLTRA= 


LDQ 


LAI 


01311 


-0 


75400 


00000 




PXD 


0*0 


01312 





60100 


01113 




STO 


NLIST-1 


01313 





53400 


1 00045 




LXA 


L2TR4=»1 


01314 





60100 


1 06025 




STO 


TRAM+lil 


01315 


-0 


60000 


1 06024 




STQ 


TRAM»1 


01316 


2 


00002 


1 01314 


SELF26 


TIX 


SELF26-2»1»2 



BAD DIVIDE E 44 H°i2 

F4417020 

SHIFT TO AC F4417030 

TEST FOR PND F4417040 

F4417050 

DOES NEXT ENTRY IN DOTAG CORRESPONDF4417060 

TO A TXL F4417070 

F4417080 
NO-SET FOR NEXT ENTRY AND SAME TXL F 4417090 

F4417100 
YES-LOOK AT NEXT TXL AND NEXT ENTRYF4417110 
TEST FOR END F4417120 

DOES THIS ENTRY HAVE A VARIABLE NO.F4417130 

OF TIMES IN LOOP 
YES#6ET NO. FROM DVFQ 
NO»GET N2-N1+N3 
AND PUT IN MQ 
CLEAR AC 

DIV N2-N1+N3 BY N3 TO GET NO. OF 
TIMES IN THIS DO 



BAD DIVIDE 



F4417140 
F4417150 
F4417160 
F4417170 
F4417180 
F4417190 
F4417200 
F4417210 
F4417220 
F4417230 
F4417240 
F4417250 
F4417260 
F4417270 
F4417280 
F4417290 
F4417300 
F4417310 
F4417320 
F4417330 
F4417340 
F4417350 
F4417360 
F4417370 
F4417380 
F4417390 
F4417400 
RETURN TO MAIN PART OF THIS ROUTINEF4417410 



SET EXIT ADDRESS 
SET EXIT ADDRESS 
GET FORMULA NUMBER OF DO 



TEST FOR END OF DVFQ 

COMPARE TO FORMULA NO* IN DVFQ 

DVFQ TOO SMALL * TRY NEXT 

EQUAL — SET INDEX FOR NEXT SEARCH 

FREQ NOT IN DVFQ» TAKE 5 AS FREQ 



READ DOTAG 

FIND BEGINNING OF DOTAG 

TRANSFER TABLE AND PRESETS ALL 



STORE ENDMARK FOR N-LIST 



F4417420 
F 44 17430 
F4417440 
F4417450 
F44 17460 
F44 17470 
F44 17480 
F 44 17490 
F4417500 
F4417510 
F44 17520 
F4417530 
F4417540 



'■'( 



01317 


-0 


53400 


1 


07775 


LXD 


D0B0X=»1 


01320 





50000 





00054 


CLA 


OPMSK= 


01321 





60100 


1 


06477 


STO 


D0LIST-1»1 


01322 





76200 





00221 


RDS 


SYSTAP 


01323 





60000 





01114 


STZ 


NLIST 


01324 





60000 





01115 


STZ 


NLIST+1 


01325 





60000 





01116 


STZ 


NLIST+2 


01326 





60000 





01117 


STZ 


NLIST+3 


01327 





02000 





00004 


TRA 


RDFORT 



STORE ENDMARK FOR DOLIST 
CLEAR DUMMY SENSE LIGHTS. 



SECTION 4 - PART 2 OF 6 (1ST RECORD OF 2) 

FORTRAN EDITOR INFORMATION 

MASTER RECORD CARD = F0640000 

ENTRY POINT = 4 (CONTROL GOES BACK TO FORTRAN LOADER - 

1 TO CS - IN ORDER TO READ IN NEXT RECORD 
FIRST LOCATION = 33 
LAST LOCATION ■ 1104 



00033 



ORG 27 

















CONSTANTS AND VARIABLES 


00033 





00000 





00000 


LOM 


HTR 





00034 





00000 





00006 


L6M 


HTR 


6 


00035 





00001 





00000 


LD1M 


HTR 


0*0*1 


00036 





00003 





00000 


LD3 


HTR 


0*0*3 


00037 





00007 





00000 


LD7M 


HTR 


0*0*7 


00040 





00000 





01275 


SETYM 




SETADD 


00041 





00000 





01750 


TIFY 




TIFADD 


000^2 





00000 





00311 


LZSET1 




ZSET+1 


00043 





00000 





00312 


LZTIF2 




ZTIFRD+2 


00044 





05360 





00000 


LXTRA 




0»O»XTRA 


00045 





01274 





00000 


LZTRA 




0»0*ZTRA 


00046 





00620 





00000 


LXSET 




0*0*XSET 


00047 





00310 





00000 


LZSET 




0»O*ZSET 


00050 





76664 





00000 


LNLST 




0*0*-NLIST 


00051 





76660 





00000 


LDSAN 




0*0»-NLIST-4 


00052 





00000 





03063 


LFXDN 




RDT1F-1 


00053 





02000 





00613 


LCOUT 


TRA 


OUTB 


00054 





02000 





03131 


TRNOM 


TRA 


NOMOR 


00055 


2 


00000 


4 


00705 


CNST2M 


TIX 


C3CLA»4»0 


00056 


+002000000000 


CONSTM 


OCT 


2000000000 


00057 


+000000077777 


ADRMK 


OCT 


77777 


00060 


+077777000000 


DECMKM 


OCT 


77777000000 


00061 


-300000000000 


PFXMKM 


OCT 


-300000000000 


0O062 


+000000700000 


IFMSK 


OCT 


700000 


00063 


+000770000000 


XXPSX 


OCT 


770000000 


00064 


+000140000000 


XX14X 


OCT 


140000000 


00065 


+000160000000 


XX16X 


OCT 


160000000 


00066 


+000360000000 


XX360 


OCT 


360000000 


00067 


-370000000000 


FSTLT 


OCT 


-370000000000 


00070 


-230000000000 


FSTT 


OCT 


-230000000000 


00071 


+170000000000 


OCTALM 


OCT 


170000000000 


00072 


+377777777777 


ENDMKM 


OCT 


377777777777 



DRUM ADDRESS FOR SET TABLE 
DRUM ADDRESS FOR TIFRD 



ADDRESS OF N 
ADDRESS OF SENSE LIGHT 
LAST LOCATION IN FIXDO LIST 
TRANSFER TO EXIT ROUTINE 

TO TEXT FOR END OF LOOKUP 



F4417550 
F4417560 
F4417570 
F4417580 
F4417590 
F4417600 
F4417610 
F4417620 
F4417630 
F4417640 
F#4lrT65tf 
F4420010 
F4420020 
F4420030 
F4420040 
F4420050 
)F4420060 
F4420070 
F4420080 
F4420090 
F4420100 
F4420110 
F4420120 
F4420130 
F *42Q 140 
F4420150 
F*420160 
F4420170 
F4420180 
F4420190 
F44202OO 
F4420210 
F4420220 
F4420230 
F4420240 
F4420250 
F4420260 
F4420270 
F4420280 
F4420290 
F4420300 
F4420310 
F4420320 
F4420330 
F4420340 
F4420350 
F4420360 
F4420370 
F4420380 
F4420390 
F4420400 
F4420410 
F4420420 
F4420430 



/ 



<p> 



00073 
00074 
00075 
00076 
00077 
00100 

ooroi 

00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 



00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 

00147 
00150 
00151 
00152 



-100000000000 
+300000000000 
+076225000000 
+034743000000 
+035121000000 
+001622000000 
-O0O3720O0Q00 
+035121000000 
+041104000000 
-033642000000 
-024000000000 
+027642000000 
-007100000000 
-032154000000 
+031316000000 
+000001000000 
-000001000000 
+000001000000 
-000001000000 
00312 00000 

00000 

00000 

00000 

00000 



GTNCD 

CRTCD 

LPSE 

LTPL 

LTRA 

LTROP 



00000 
00000 
OOOOO 
00000 
OOOOO 



00001 
50000 
40000 
77100 
40000 
40000 
60100 
53400 
01274 
63400 
07400 
00454 
07400 
50000 
10000 



OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 
OOOOO 



LNTOP 

SBOX 

SPBOX 

TBOX 

TPBOX 

PBOX 

BBOX 

MBOX 

ACBOX 

OUTBX 

ENTBX 

XBOX 

ERAS1M 

ERAS2M 

ERAS3M 



00131 BE6BB 

00112 

00113 

00022 

00114 

00115 

02413 

00114 

00143 

00114 

03147 

00145 FNDAS 

00763 

03703 2FNDS 

00225 



TRA 

TXL-TRA 

TTR-TXL 

TRA 

PSE-TRA 

DCT-PSE 

RTT-DCT 

MSE-RTT 

TZE-MSE 

HPR-TZE 

TSX-HPR 



F4420440 
F4420450 
F4420460 
F4420470 
F4420480 
F4420490 
F4420500 
F4420510 
F4420520 
F4420530 
F4420540 
F4420550 
F4420560 
F4420570 
F4420580 
F4420590 
F4420600 
F4420610 
F4420620 
F4420630 
F4420640 
F4420650 
F4420660 
F4420670 
F4420680 
F4420690 
F4420700 
F4420710 
F4420720 
F4420730 

THIS ROUTINE COMPLETES THE ANALYSIS OF THE COMPILED l^liltl 

INSTRUCTIONS USING THE BASIC BLOCK LIST, THE 00 LIST» AND F4420750 

TIFRD. IT COMPILES THE TABLES OF SETS AND TRANSFERS USED IN F4420760 

THE SIMULATION PROGRAM. F4420770 



OCT -100000000000 
OCT 300000000000 
OCT 76225000000 
OCT 34743000000 
OCT 35121000000 
OCT 1622000000 
OCT -372000000 
OCT 35121000000 
OCT 41104000000 
OCT -33642000000 
OCT -24000000000 
OCT 27642000000 
OCT -7100000000 
OCT -32154000000 
OCT 31316000000 
OCT 1000000 
OCT -1000000 
OCT 1000000 
OCT -1000000 

0,0»ZTIFRD+2 











SAVE POWER OF 2 



-0 53400 4 00116 

-2 00310 4 00155 2TNX 

-0 63400 4 00116 

07400 4 03064 



TXI BEGBB+1»2»1 

CLA SBOX 

ADD SPBOX 

ARS 18 

ADD TBOX 

ADD TPBOX 

STO BBTABL»2 

LXD TBOX, 4 

TNX FNDAS»4»ZTRA 

SXD TBOX, 4 

TSX WRTRA»4 

TNX 2FNDS,1,ZINSTM 

TSX RDINSM,4 

CLA INSTM,1 

TZE TR3S+1 

LXD PBOX ,4 

TNX BADD,4,ZTIFRD 

SXD PB0X,4 

TSX RDTIF»4 



SET FOR NEXT BASIC BLOCK 



F4420780 
F4420790 
F4420800 
PUT SET TABLE ADDRESS INTO BB TABLEF4420810 

F4420820 

F4420830 

PUT TRA TABLE ADDRESS INTO BB TABLEF4420840 

F4420850 
IS BLOCK OF TRA TABLE FULL F4420860 

SAVE NEW INDEX FOR TRA F4420870 

WRITE TRA BLOCK ON DRUM F4420880 

IS BLOCK OF INSTRUCTIONS ALL USED F4420890 
YES, READ IN NEXT BLOCK F4420900 

IF THERE IS NO LOCATION SYMBOL, F4420910 
THIS CANT BE A SET OR AN ENDING F4420920 
OTHER THAN A CERTAINTY CASE F4420930 
CHANGE, LOOK AT ASSIGN ENTRY F4420940 
IS BLOCK OF TIFRD ALL USED F4420950 

YES, READ IN MORE F4420960 

F4420970 



H& 



u 



00153 


-0 


53400 


4 


00116 




LXD 


PB0Xf4 


00154 





50000 


1 


03703 




CLA 


INST.M»1 


00155 





40000 





00034 


BADD 


ADD 


L6M 


00156 





40200 


4 


04214 




SUB 


TIFRDM*4 


00157 





10000 





00231 




TZE 


ASNCS 


00160 





50000 


1 


03702 


2CLA 


CLA 


INSTM-1»1 


00161 


-0 


32000 





00060 




ANA 


DECMKM 


00162 





40200 





00075 




SUB 


LPSE 


00163 


-0 


10000 





00257 




TNZ 


TSTTR 


00164 





50000 


1 


03700 




CLA 


INST«M-3tl 


00165 


-0 


320©^ 


00063 




ANA 


XXP5X 


00166 





40200 





00064 




SUB 


XX14X 


00167 





10000 





00174 




TZE 


STSLT 


00170 





50000 


1 


03677 




CLA 


INSTM-4»1 


00171 





40200 


2 


07772 




SUB 


BBLIST-1»2 


00172 





10000 





00320 




TZE 


CRTCS 


00173 





02000 





00504 




TRA 


IF2PS 


00174 


-0 


53400 


4 


00112 


STSLT 


LXD 


SB0X»4 


00175 


-2 


00310 


4 


00201 




TNX 


3CLA»4»ZSET 


00176 


-0 


63400 


4 


00112 




SXD 


SB0Xt4 


00177 





07400 


4 


01032 




TSX 


WRSET»4 


00200 


-0 


53400 


4 


00112 




LXD 


SBOXt4 


00201 





50000 


1 


03700 


3CLA 


CLA 


INSTM-3»1 


00202 


-0 


32000 





00037 




*KA 


LD7M 


00203 





10000 





00210 




TZE 


SLSOF 


00204 





40000 





00051 




ADD 


LDSAN 


00205 





40000 





00031 




ADD 


LAI 


00206 





60100 


4 


04524 




STO 


SET.#M*4 


00207 


1 


00001 


4 


00224 




TXI 


TR3S*4*1 


00210 


-0 


63400 


2 


00117 


5LSOF 


SXD 


BBOX»2 


00211 


-0 


53400 


2 


00276 




LXD 


LD4»2 


00212 





50000 





00051 




CLA 


LDSAN 


00213 





40000 





00035 


3ADD 


ADD 


LD1M 


00214 


-2 


00310 


4 


00220 




TNX 


4ST0»4*2SET 


00215 


-0 


63400 


4 


00112 




SXD 


SB0Xt4 


00216 





07400 


4 


01032 




TSX 


WRSET»4 


00217 


-0 


53400 


4 


00112 




LXD 


SB0X»4 


00220 





60100 


4 


04524 


4ST0 


STO 


SETM»4 


00221 


1 


00001 


4 


00222 




TXI 


3TIX*4*1 


00222 


2 


00001 


2 


00213 


3TIX 


TIX 


3ADD»2»1 


00223 


-0 


53400 


2 


00117 




LXD 


BB0X»2 


00224 


-0 


63400 


4 


00112 


TR3S 


SXD 


SB0X»4 


00225 





50000 


1 


03677 




CLA 


INST.M-4.1 


00226 





40200 


2 


07772 




SUB 


BBLIST-lt2 


00227 





10000 





00320 




TZE 


CRTCS 


00230 


1 


00004 


1 


00143 


TXFAS 


TXI 


FNDAS>1*4 


00231 


-0 


63400 


4 


00116 


ASNCS 


SXD 


PB0X»4 


00232 





50000 


1 


03675 




CLA 


INST»M-6»1 


00233 





07400 


4 


00632 




TSX 


SRCHNt4 


00234 


o 


4Q0Q0 


o 


00050 




ADD 


LNLST 


00235 


-o. 


53400 


4 


00112 




LXD 


SB0Xt4 


00236 


-2 


00310 


4 


00242 




TNX 


4STD»4»ZSET 


00237 


-0 


63400 


4 


00112 




SXD 


SB0X.4 


00240 





07400 


4 


01032 




TSX 


WRSET»4 



COMPARE FORMULA NO. TO ASSIGN 
LIST* 



NOT AN ASSIGN 

TEST FOR A SET SENSE LIGHT 

NOT A PSE* LOOK FOR A TRANSFER 
LOOK AT ADDRESS OF PSE FOR SET 



IT IS A SET SENSE LIGHT 

NOT A SET SENSE LIGHT* SEE IF NEXT 

INSTRUCTION STARTS A BB 
YES* IS A CERTAINTY CASE 
NO* IS A PSE CASE. 
LOAD INDEX FOR SET TABLE 
IF SET BLOCK IS FULL» PUT ON DRUM 
SAVE INDEX 
GO TO DRUM ROUTINE 
RESTORE INDEX 

LOOK AT RELATIVE ADDRESS OF PSE 
FIND NO OF SENSE LIGHT 
IF ZERO TURN ALL LIGHTS OFF 
NOT ZERO* ADD ADDRESS OF FIRST 
ADD ONE FOR SENSE LIGHT ON 
STORE SET ENTRY 
INDEX FOR NEXT SET ENTRY 
SAVE INDEX B 

PUT ENTRIES IN SET TABLE TO TURN 

OFF ALL SENSE LIGHTS 
IS BLOCK OF SETS FULL 
YES* SAVE INDEX C 
WRITE BLOCK ON DRUM 
RESTORE INDEX C 

SET FOR NEXT ENTRY IN TABLE 

ARE ALL SETS DONE 

YES* RESTORE INDEX B 

STORE SET TABLE INDEX 

TEST THIS FOR END OF A BASIC BLOCK 

(CANT BE A TRANSFER* SKIP* ETC.) 

END OF BB MUST BE A CERTAINTY CASE 

NOT END OF BB* LOOK AT NEXT INSTR. 

SAVE INDEX FOR TIFRD 

PUT ADDRESS l=N) OF ST A INTO AC 

SEARCH N-LIST FOR N 

PUT INDEX FOR N IN SET TABLE 

PUT SET TABLE ADDRESS INTO INDEX 

IS SET BLOCK FULL 

YES*SAVE INDEX 

PUT BLOCK ON DRUM 



F4420980 
F442Q990 
F4421000 
F4421010 
F4421020 
F4421030 
F4421040 
F4421050 
F4421060 
F4421070 
F44Z10B0 
F4421090 
F4421100 
F4421110 
F4421120 
F4421130 
F4421140 
F4421150 
F4421160 
F4421170 
F4421180 
F4421190 
F4421200 
F4421210 
F4421220 
F4421230 
F4421240 
F4421250 
F4421260 
F***21270 
F--J1280 
F — 21290 
F*»421300 
F4421310 
F4421320 
F4421330 
F4421340 
F4421350 
F4421360 
F4421370 
F4421380 
F4421390 
F4421400 
F4421410 
F4421420 
F442143Q 
F4421440 
F4421450 
F4421460 
F4421470 
F4421480 
F4421490 
F4421500 
F4421510 



U<1 



00241 


-0 


53400 


4 


00112 




LXD 


SB0X*4 


00242 





60100 


4 


04524 


4STD 


STO 


SETM»4 


00243 


-0 


63400 


4 


00112 




SXD 


SB0X»4 


00244 


— 


53400 


4 


00116 




LXD 


PB0X*4 


00245 





50000 


4 


04213 




CLA 


T1FRDM-1»4 


00246 





76700 





00022 




ALS 


18 


00247 


1 


00002 


4 


00250 


LD2 


TXI 


LD2+1»4»2 


00250 


-0 


63400 


4 


00116 




SXD 


PB0Xt4 


00251 





07400 


4 


00667 




TSX 


FNDBB.4 


00252 


-0 


53400 


4 


00112 




LXD 


SB0X»4 


00253 





77100 





00022 




ARS 


18 


00254 





62100 


4 


04524 




STA 


SET..M»4 


00255 


1 


00001 


4 


00256 




TXI 


4TXII*4»1 


00256 


1 


00004 


1 


00224 


4TX1I 


TXI 


TR3S»1»4 



00257 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00320 



50000 
40200 
10000 
53400 
50000 
32000 
40200 
10000 
00001 
50000 
32000 
60200 
50000 
40200 
10000 
00004 
02000 
02000 
02000 
02000 
02000 
02000 
02000 
00004 
02000 
02000 
02000 
53400 
50000 
32000 
40200 
10000 
00001 
07400 



03677 
07772 
00312 
00612 
03702 
00060 
00112 
00307 
00265 
03702 
G0067 
00125 
00125 
00070 
00426 
00143 
00451 
00504 
00536 
O0536 
00530 
00552 
00601 
00143 
00324 
00377 
00327 
00036 
03702 
00060 
00102 
00312 
00315 
00663 



TSTTR 



SUBP 



6ANA 



LD4 



TRTIN 



TRTTR 
ENDBB 



6SUB 
CRTCS 



CLA 
SUB 
TZE 
LXD 
CAL 
ANA 
SUB 
TZE 
TIX 
CAL 
ANA 
SLW 
CLA 
SUB 
TZE 
TXI 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TRA 
TXI 
TRA 
TRA 
TRA 
LXD 
CLA 
ANA 
SUB 
TZE 
TIX 
TSX 



INSTM-4>1 

B8LIST-1»2 

ENDBB 

LD8>4 

INST.M-1»1 

DECMKM 

LNT0P+1»4 

TRTIN+1»4 

SUBP»4»1 

INST#M-1»1 

FSTLT 

ERAS1M 

ERAS1M 

FSTT 

CNDTR 

FNDAS»1»4 

GOTOVM 

IF2PS 

1F2CS 

IF2CS 

MSECSM 

IF3CSM 

HPRCS 

FNDAS»1»4 

TRACSM 

DOCSM 

TRACSM+3 

LD3*4 

INST.M-1#1 

DECMKM 

LTR0P+1»4 

TRTTR+1»4 

6SUB*4»1 

ENTB2*4 



RESTORE INDEX F4421520 

STORE ADDRESS OF N BEING SET F4421530 
SAVE INDEX F4421540 

*E T F 0R TIFRD F4421550 

GET VALUE TO ASSIGN TO N FROM TIFRDF4421560 

F4421570 

SET INDEX FOR NEXT ENTRY IN TIFRD F4421580 

SAVE TIFRD INDEX F4421590 

CHANGE VALUE FOR N TO BASIC BLOCK F4421600 

NUMBER* PUT SET ADDRESS IN INDEXF4421610 

AND PUT VALUE N IS TO BE GIVEN F4421620 

INTO TABLE ENTRY F4421630 

SET INDEX FOR NEXT ENTRY IN TABLE F4421640 

SINCE THIS INSTRUCTION IS A CLA ANDF4421650 

IS FOLLOWED BY A STA* IT CANNOT F4421660 

BE THE END OF A BASIC BLOCICt F4421670 

ALSO THE STA CANNOT BE AN F4421680 

ASSIGN. PS£» TRANSFER* OR SKIP. F4421690 

IT CAN ONLY BE A CERTAINTY CASE F4421700 

OR INNOCUOUS. 

IS THIS LAST INSTRUCTION IN A BB 



YES* LOOK FOR TYPE OF ENDING 

NO* CHECK FOR ENDING OF GROUP OF 

INSTRUCTIONS 
LOOK AT OP CODE 
COMPARE TO OP CODES OF POSSIBLE 

ENDINGS— TRANSFER WHEN FOUND 
TRY NEXT POSSIBILITY 
NOT FOUND — LOOK FOR A CONDITIONAL 

TRANSFER 



F4421710 
F4421720 
F4421730 
F4421740 
F4421750 
F4421760 
F4421770 
F4421780 
F4421790 
F4421800 
F4421810 
F4421820 
F4421830 
F4421840 
F4421850 
F4421860 



IS A CONDITIONAL TRANSFER 

NOT AN END OF BB» LOOK AT NEXT INSTF4421870 



TRA IS THE OPERATION CODE 

PSE 

OCT 

RTT 

MSE 

TZE 

HPR 

TSX IS OP CODE 

TRA IS THE OPERATION CODE 

TXL 

TTR 

SET INDEX 



F4421880 
F4421S90 
F4421900 
F4421910 
F4421920 
F4421930 
F4421940 
F4421950 
F4421960 
F4421970 
F4421980 
F4421990 



THIS INST ENDS A BASIC BLOCK — LOOK F4422000 
AT OP CODE FOR TYPE OF ENDING F4422010 
COMPARE TO POSSIBLE OP CODE F4422020 
TRANSFER IF FOUND F4422030 

TRY NEXT POSSIBILITY F4422040 

NOT A CONDITIONAL TRANSFER — IT IS F4422050 



''/ 



u 



00321 


-0 


50000 





00074 


6CLA 


CAL 


CRTCD 


00322 





63000 


2 


02413 




STP 


BBTABL»2 


00323 


1 


00004 


1 


00130 




TXI 


BEGBBilt4 


00324 


-0 


50000 


1 


03701 


TRACSM 


CAL 


INSTM-2*1 


00325 


-0 


32000 





00061 




ANA 


PFXMKM 


00326 


-0 


10000 





00334 




TNZ 


GOTONM 


00327 





50000 


1 


03701 




CLA 


INST.M-2»1 


00330 





07400 


4 


00653 




TSX 


ENTRBi4 


00331 


-0 


50000 





00074 




CAL 


CRTCD 


00332 





63000 


2 


02413 




STP 


BBTABL»2 


00333 


1 


00004 


1 


00130 




TXI 


BEGBB»1»4 


00334 


-0 


50000 





00073 


GOTONM 


CAL 


GTNCD 


00335 





63000 


2 


02413 




STP 


BBTABL»2 


00336 





50000 


1 


03701 




CLA 


INST.M-2tl 


00337 





07400 


4 


00632 




TSX 


SRCHNf4 


00340 


-0 


53400 


4 


00114 




LXD 


TB0X»4 


00341 





62200 


4 


06024 




STD 


TRA..M»4 


00342 


-0 


53400 


4 


00116 




LXD 


PB0X«4 


00343 


-2 


00310 


4 


00347 


7TNX 


TNX 


BCLA»4.ZTIFRD 


00344 


-0 


63400 


4 


00116 




SXD 


PB0X»4 


00345 





07400 


4 


03064 




TSX 


RDTIF»4 


00346 


-0 


53400 


4 


00116 




LXD 


PB0X»4 


00347 





50000 


1 


03703 


BCLA 


CLA 


INSTM»1 


00350 


-0 


32000 





00060 




ANA 


DECMKM 


00351 





40000 





00031 




ADD 


LAI 


00352 





40200 


4 


04214 




SUB 


TIFRDM»4 


00353 





10000 





00355 


8ATZE 


TZE 


8TXI 


00354 





07400 


4 


00004 




TSX 


RDF0RT»4 


00355 


1 


00002 


4 


00356 


8TXI 


TXI 


8TXI+1»4#2 


00356 


-2 


00310 


4 


00362 


8TNX 


TNX 


8CLA»4 f ZTIFRD 


00357 


-0 


63400 


4 


00116 




SXD 


PB0X»4 


00360 





07400 


4 


03064 




TSX 


RDTIF#4 


00361 


-0 


53400 


4 


00116 




LXD 


PB0X»4 


00362 





50000 


4 


04214 


8CLA 


CLA 


TIFRDM»4 


00363 





12000 





00375 




TPL 


8ATRB 


00364 





76000 





00003 




SSP 




00365 


-0 


63400 


4 


00116 




SXD 


PB0X»4 


00366 


-0 


53400 


4 


00114 




LXD 


TB0X»4 


00367 


-2 


01274 


4 


00372 




TNX 


8ATSX»4*ZTRA 


00370 


-0 


63400 


4 


00114 




SXD 


TB0X»4 


00371 





07400 


4 


03147 




TSX 


WRTRA»4 


00372 





07400 


4 


00653 


8ATSX 


TSX 


ENTRB.4 


00373 


-0 


53400 


4 


00116 




LXD 


PB0X.4 


00374 


1 


00001 


4 


00356 




TXI 


8TXI+1»4»1 


00375 


-0 


63400 


4 


00116 


8ATRB 


SXD 


PB0Xt4 


00376 


1 


00004 


1 


00130 




TXI 


BEGBB»1»4 


00377 





50000 


1 


03701 


DOCSM 


CLA 


INSTM-2»1 


00400 





07400 


4 


00653 




TSX 


ENTRB»4 


00401 





07400 


4 


00663 




TSX 


ENTB2t4 


00402 


-o 


63400 


2 


00117 




SXD 


BB0X»2 


00403 


-0 


53400 


2 


00035 




LXD 


LDlMt2 


00404 


-0 


53400 


4 


00114 




LXD 


TB0X»4 


00405 





50000 


2 


06500 


9CLAT 


CLA 


D0LIST#2 



A CERTAINTY CASE DUE TO AN ENTRYF4422060 

PUT CERTAINTY CODE IN BB TABLE £t*"°™ 

F4422080 

LOOK AT NEXT INSTR-BEG OF A BB. ^^nn 
OP CODE IS TRA— SEE IF ADDRESS IS FUWIOO 
IN PROGRAMtUNCONDITIONAL TRA) 0RF4422110 



IN N LIST (GO TO N) 
GET INSTR OF ADDRESS 
ENTER IN TRA TABLE 
STORE CERTAINTY CODE IN BB TABLE 

LOOK AT NEXT INST.— NEW B.B. 

IS A GO TO N 

STORE GO TO N CODE IN BB TABLE 

PUT N INTO AC 

FIND LOCATION OF N IN N-LIST 

PUT N-LIST ADDRESS IN TRA TABLE 

PUT TIFRD ADDRESS INTO INDEX 

IS TIFRD BLOCK USED 

YES* SAVE INDEX 

READ IN NEXT BLOCK OF TIFRD 

RESTORE INDEX 



F4422120 
F4422130 
F4422140 
F4422150 
F4422160 
F4422170 
F4422180 
F4422190 
F4422200 
F4422210 
F4422220 
F4422230 
F4422240 
F4422250 
F4422260 
F4422270 
F4422280 



COMPARE FORMULA NUMBER OF INSTR. TOF4422290 



THAT OF NEXT ENTRY IN TIFRD 



ENTRY FOUND 



F4422300 
F4422310 
F4422320 
F4422330 



NO ENTRY FOUND IN TIFRD FOR GO TO NF4422340 



SET FOR N-WORDS IN TIFRD 

SEE IF TIFRD BLOCK IS ALL USED 

YES SAVE INDEX 

READ IN NEXT BLOCK 

RESTORE INDEX 

GET NEXT VALUE ON N FROM TIFRD 



F4422350 
F4422360 
F4422370 
F4422380 
F4422390 
F4422400 



PLUS INDICATES NO MORE VALUES FOR NF4422410 



ELIMINATE MINUS SIGN 

SAVE TIFRD INDEX 

GET TRA TABLE INDEX 

IS BLOCK OF TRA TABLE FULL 

YES SAVE INDEX 

WRITE BLOCK ON DRUM 

ENTER TRANSFER IN TRA TABLE 

RESTORE INDEX FOR TIFRD 

SET FOR NEXT WORD 

SAVE TIFRD INDEX 

SET FOR NEXT INSTR AND NEXT BB. 

THIS IS A DO CASE 

ENTER ADDRESS OF TRA BACK 

ENTER TRA TO NEXT INSTR 

SAVE INDEX 

LOOK AT DOLIST ENTRY FOR 

THIS DO 
COMPARE LOCATION IN DO LIST TO 



F4422420 
F4422430 
F4422440 
F4422450 
F4422460 
F4422470 
F4422480 
F4422490 
F4422500 
F4422510 
F4422520 
F4422530 
F4422540 
F4422550 
F4422560 
F4422570 
F4422580 
F4422590 



00406 


-0 


32000 





00060 




ANA 


DECMKM 


00407 





40200 





00117 




SUB 


BBOX 


00410 





10000 





00412 




TZE 


CLAR 


00411 


1 


00002 


2 


00405 




TXI 


9CLATt2»2 


004 12 


A 


50000 




06477 


r-i a o 


CLA 


D0LIST=1«2 


00413 


-0 


32000 





00062 




ANA 


IFMSK 


00414 





10000 





00424 




TZE 


DONOIF 


00415 





50000 


2 


06500 




CLA 


D0LIST#2 


00416 





76700 





00022 




ALS 


18 


00417 





62200 


4 


06030 


DWFCD 


STD 


TRAM+4»4 


00420 


•0 


50000 





00417 




CAL 


DWFCD 


00421 


-0 


53400 


2 


00117 


DOLXD 


LXD 


BB0X»2 


00422 





63000 


2 


02413 




STP 


BBTABL#2 


00423 


1 


00004 


1 


00130 




TXI 


BEGBB»1»4 


00424 


-0 


50000 





00424 


DONOIF 


CAL 


DONOIF 


00425 





02000 





00^21 




TRA 


DOLXD 


00426 





50000 


1 


03701 


CNDTR 


CLA 


INSTM-2»1 


00427 





40200 





00071 




SUB 


0CTALM 


00430 





10000 





00230 




TZE 


TXFAS 


00431 





50000 


1 


03703 




CLA 


INST.M»1 


00432 





40200 


1 


03701 




SUB 


INST.M-2il 


00433 





10000 





00230 




TZE 


TXFAS 


00434 





50000 


1 


03701 




CLA 


INST.M-2il 


00435 





07400 


4 


00653 




TSX 


ENTRBt4 


00436 





50000 


1 


03675 




CLA 


INST.M-6»1 


00437 





07400" 


4 


00653 




TSX 


ENTRB»4 


00440 





50000 


1 


03703 




CLA 


IN'ST.Mti 


00441 


-0 


53400 


4 


00114 


11LX0 


LXD 


TB0X»4 


00442 





62200 


4 


06030 


* 


STD 


TRA..M+4*4 


00443 


-0 


50000 





00474 


11CAL 


CAL 


PBYCDM 


00444 





63000 


2 


02413 




STP 


BBTABL.2 


00445 





50000 





00247 




CLA 


LD2 


00446 





62200 


4 


06026 




STD 


TRA..M+2f4 


00447 


-0 


63400 


4 


00114 




SXD 


TB0X»4 


00450 


.1 


00010 


1 


00130 




TXI 


BEGBB»1»8 


00451 





50000 


1 


03700 


GOTOVM 


CLA 


INSTM-3»1 


00452 


-0 


73400 


4 


00000 




PDX 


0f4 


00453 


2 


0000 1 


4 


00455 




TIX 


0K»4.1 


00454 





07400 


4 


00004 




TSX 


RDF0RT*4 


00455 


3 


00001 


4 


00457 


OK 


TXH 


0NEVCT+1»4#1 


00456 


1 


00004 


1 


00327 


ONEVCT 


TXI 


TRACSM+3f Ii4 


00457 


-0 


75400 


4 


00000 




PXD 


0t4 


00460 


-0 


53400 


4 


00114 




LXD 


TB0X.4 


00461 





62200 


4 


06022 




STD 


TRA..M-2»4 


00462 





62200 





00120 




STD 


MBOX 


00463 


-0 


50000 





00474 




CAL 


PBYCDM 


00464 





63000 


2 


02413 




STP 


BBTABLt2 


00465 





30000 


1 


03703 




CLA 


INST.M.l 


00466 





62200 


4 


06024 




STD 


TRA..Mt4 


00467 


-2 


00454 


1 


00471 


13TIX 


TNX 


13CLA.ltZINSTM 


00470 





07400 


4 


00763 




TSX 


RDINSM»4 


00471 





5oqoo 


1 


03675 


13CLA 


CLA 


INSTM-6U 


00472 





07400 


4 


00653 




TSX 


ENTRBt4 



THIS BASIC BLOCK 

NOT FOUND — TRY NEXT 
LOOK AT ADDRESS WORD IN DO LIST 
SEE IF DO HAS AN IF 
NO IF — TRANSFER 
DO WITH IF-PUT LOOP COUNT IN 
TRANSFER TABLE 

GET CODE FOR DO WITH IF 

RESTORE INDEX FOR BB TABLE 

STORE CODE FOR ENDING IN BB TABLE 

DO NEXT INSTR. — NEXT BASIC BLOCK 

GET CODE FOR DO WITHOUT IF 

STORE CODE IN B B TABLE 

THE OP CODE IS A CONDITIONAL TRA 

SEE IF THIS IS A REAL TRANSFER 
NO — IT IS NOT ANYTHING 



PUT ADDRESS OF TRA IN TRA TABLE 
PUT NEXT TRA ADDRESS IN TRA TABLE 

* 

PUT PROBABILITY CODE IN BB TABLE 

PUT NO. OF CASES (=2) IN TRA TABLE 

SAVE TRA INDEX 

DO NEXT INSTRUCTION 

THIS IS A GO TO VECTOR 

CHECK NO* OF BRANCHES 
NONE* PART OF PROGRAM NOT 

TRANSFERED TO 
TEST FOR ONLY ONE BRANCH 
ONLY ONE BRANCH — A CERTAINTY CASE 
MORE THAN ONE — STANDARD CASE 
SET INDEX FOR TRA TABLE ADDRESS 
PUT NO. INTO TRA TABLE 
SAVE NO. TO TEST IF VECTOR IS DONE 

PUT PROBABILITY CODE IN BB TABLE 

PUT FORMULA NUMBER INTO TRA TABLE 
IS BLOCK OF INSTRUCTIONS ALL USED 
READ IN NEXT BLOCK 
ENTER ADDRESS OF ONE TRANSFER 
INTO TRA TABLE. 



F4422600 

F4422610 

F4422620 

F4422630 

F4422640 

F4422650 

F4422660 

F4422670 

F4422680 

F4422690 

F4422 700 

F4422710 

F4422 720 

F4422730 

F4422740 

F4422750 

F4422760 

F4422770 

F4422780 

F4422790 

F4422800 

F4422810 

F4422820 

F4422830 

F4422840 

F4422650 

F4422860 

F*422870 

F4422880 

F4422890 

F4422900 

F4422910 

F4422920 

F4422930 

F4422940 

F4422950 

F4422960 

F4422970 

F4422980 

F4422990 

F4423000 

F4423010. 

F4423020 

F4423030 

F4423040 

F4423050 

F4423060 

F4423070 

F4423080 

F4423090 

F4423100 

F4423110 

F4423120 

F4423130 



u 



00473 


-0 


53400 


4 


00120 




LXD 


MB0X»4 


00474 


2 


00001 


4 


00476 


PBYCDM 


TIX 


13SXD»4»1 


00475 


1 


00010 


1 


00130 


130N 


TXI 


BEGBB»lt8 


00476 


-0 


63400 


4 


00120 


13SXD 


SXD 


MBOX»4 


00477 


-0 


53400 


4 


00114 




LXD 


TB0X»4 


00500 


-2 


01274 


4 


00503 


STPCD 


TNX 


13TXlM»4fZTRA 


00501 


-0 


63400 


4 


00114 




SXD 


TB0X»4 


00502 





07400 


4 


03147 




TSX 


WRTRA»4 


00503 


1 


00004 


1 


00467 


13TXIM 


TXI 


13TIX.1.4 


00504 





50000 


1 


03700 


IF2PS 


CLA 


INSTM-3»1 


£0505^ 


-0 ??0O0 00063 




ANA 


XXPSX 


00506 





40200 





00065 




SUB 


XX16X 


00507 





10000 





00514 




TZE 


PSTCS 


00510 





50000 


1 


03700 




CLA 


INST.M-3tl 


00511 


-0 


32000 





00060 




ANA 


DECMKM 


00512 





40200 





00066 




SUB 


XX360 


00513 


-0 


10000 





00230 




TNZ 


TXFAS 


00514 


-0 


50000 





00474 


PSTCS 


CAL 


PBYCDM 


00515 





63000 


2 


02413 




STP 


BBTABL.2 


00516 


-0 


53400 


4 


00114 




LXD 


TB0Xt4 


00517 





50000 


1 


03703 




CLA 


INST.M»1 


00520 





62200 


4 


06024 




STD 


TRA..M»4 


00521 





50000 





00247 




CLA 


LD2 


00522 





62200 


4 


06022 




STD 


TRA..M-2#4 


00523 





50000 


1 


03671 


SNSCS 


CLA 


INSTM-10.1 


00524 





07400 


4 


00653 




TSX 


ENTRB»4 


00525 





50000 


1 


03675 




CLA 


INST.M-6tl 


00526 





07400 


4 


00653 




TSX 


ENTRB#4 


00527 


1 


00014 


1 


00130 


MSECD 


TX! 


BEGBB»1»12 


00530 


-0 


50000 





00527 


MSECSM 


CAu 


MSECD 


00531 





63000 


2 


02413 




ST- 


3BTABLt2 


00532 





50000 


1 


03700 




CLA 


INST.M-3»1 


00533 


-0 


53400 


4 


00114 




LXD 


TBOXt4 


00534 





62200 


4 


06024 




STD 


TRA..M»4 


00535 





02000 





00523 




TRA 


SNSCS 


00536 


-0 


50000 





00474 


IF2CS 


CAL 


PBYCDM 


00537 





63000 


2 


02413 




STP 


BBTABLt2 


00540 


-0 


53400 


4 


00114 




LXD 


TB0X»4 


00541 





50000 


1 


03703 




CLA 


INST.Mtl 


00542 





62200 


4 


06024 




STD 


TRA..M*4 


00543 





50000 





00247 




CLA 


LD2 


00544 





62200 


4 


06022 




STD 


TRA..M-2»4 


00545 





50000 


1 


03675 




CLA 


INST.M-6*1 


00546 





07400 


4 


00653 




TSX 


ENTRBi4 


00547 





50000 


1 


03671 




CLA 


INST.M-lOfl 


00550 





07400 


4 


00653 




TSX 


ENTRBf4 


00551 


1 


00014 


1 


00130 


LD12M 


TXI 


BEGBB»1»12 


00552 





50000 


1 


03676 


IF3CSM 


CLA 


INST.M-5tl 


00553 


-0 


32000 





00060 




ANA 


DECMKM 


00554 





40200 





00076 




SUB 


LTPL 


00555 





10000 





00557 




TZE 


16CLA 


00556 





07400 


4 


00004 


IFTSX 


TSX 


RDF0RTt4 


00557 





50000 


1 


03672 


16CLA 


CLA 


INSTM-9tl 


00560 


-0 


32000 





00060 




ANA 


DECMKM 



HAVE ALL BRANCHES OF VECTOR BEEN £**23140 
ENTERED F4423150 

YES. GO TO NEXT BB~ NEXT INST. F4423160 
NOtSAVE COUNT AND ENTER NEXT F4423170 
PUT TRA TABLE ADDRESS IN INDEX F4423180 
HAS THIS BLOCK OF TRA BEEN FILLED F4423190 
YES. SAVE TRA INDEX F4423200 

WRITE BLOCK OF TRA ON DRUM F4423210 

SET INST. INDEX AND DO NEXT BRANCH F4423220 
THIS IS A PSE» LOOK AT ADDRESS TO F4423230 
SEE IF IT IS 164-166 F4423240 

F4423250 

F4423260 
F4423270 
F4423280 
F4423290 
F4423300 
F4423310 
F4423320 
F4423330 
F4423340 
F4423350 
F4423360 
F4423370 
F4423380 
F4423390 
F4423400 
F4423410 
F4423420 
F4423430 
F4423440 
F4423450 
F4423460 



YES* IT IS A TEST 

NOt SEE IF ADDR IS 360 

NO.THIS IS NOT A BB END 
THIS IS A PSE TEST INSTRUCTION 
PUT PROBABILITY CODE IN BB TABLE 
SET INDEX FOR TRA TABLE ADDRESS 
PUT FORMULA NUMBER IN TRA TABLE 

PUT NO. OF CASES<=2) IN TRA TABLE 

PUT ADDRESS FOR ON INTO TRA TABLE 

PUT OFF ADDRESS INTO TRA TABLE 



DO NEXT BB. 

THIS IS A MSE TEST 

STORE MSE CODE IN BBTABL 

LOOK AT ADDRESS OF MSE 

SET INDEX FOR TRA TABLE 

PUT NO. OF SENSE LIGHT IN TRA TABLEF4423470 

PUT ADDRESSES IN TRA TABLE F4423480 

THIS IS A TWO-WAY TEST INSTRUCTION F4423490 



PUT PROBABILITY CODE IN BB TABLE 

SET INDEX FOR TRA TABLE 

PUT FORMULA NUMBER IN TRA TABLE 

PUT NO OF CASES (=2) IN TRA TABLE 

PUT ADDRESSES IN TRA TABLE 
=0N- ADDRESS 
-OFF - ADDRESS 



F4423500 
F4423510 
F4423520 
F4423530 
F4423540 
F4423550 
F4423560 
F4423570 
F4423580 
F4423590 
F4423600 
F4423610 



DO NEXT BB 

THIS IS A TZEt NOT END OF A BB. 

CHECK TO SEE IF IT IS FOLLOWED BY AF4423620 
TPL AND A TRA» IF NOT THERE HAS F4423630 
BEEN AN ERROR F4423640 

Ft' t- *> fl JL £■ rt 
LW w» tt*36^v/ 

CHECK FOR TRA F4423660 

F4423670 



H>t 



O '/ 



00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 
00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 
00627 
00630 
00631 



40200 
10000 
50000 
63000 
53400 
50000 
62200 
50000 
62200 
50000 
07400 
50000 
07400 
50000 
07400 
00014 
50000 
32000 
40200 
10000 



50000 1 



40200 
10000 
50000 
63000 
00010 
63400 
50200 
40200 
62100 
60100 
50000 
62200 
76700 
62200 
75400 
60100 
07400 
07400 
76200 
02000 



00077 
00556 
00474 
02413 
00114 
03703 
06024 
00036 
06022 
03675 
00653 
03701 
00653 
03671 
00653 
00130 
03676 
00060 
00077 
00276 
03675 
03703 
00276 
00500 
02413 
00130 
00117 
00760 
00031 
00617 
00000 
02413 
07777 
00022 
07776 
00000 
02412 
03147 
01032 
00221 
00004 



SUB 
TNZ 

16CAL CAL 
STP 
LXD 
CLA 
STD 
CLA 
STD 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
TXI 

HPRCS CAL 
ANA 
SUB 
TNZ 
CLA 
SUB 
TNZ 
CAL 
STP 

L08 TXI 

OUTB SXD 
CLS 
SUB 
STA 

STORES STO 
CLA 
STD 
ALS 
STD 
PXD 
STO 
TSX 
TSX 
RDS 
TRA 



LTRA 

IFTSX 

PBYCDM 

BBTABL*2 

TB0X.4 

INST.M»1 

TRA«.M»4 

LD3 

TRA««M-2»4 

INST«M-6»1 

ENTRB»4 

INST.M-2.1 

ENTRB»4 

INST.M-10#1 

ENTRB.4 

BEGBB.1.12 

INSTM-5»1 

DECMKM 

LTRA 

LD4 

INST,M-6»1 

INST.M.l 

LD4 

STPCD 

BBTABL.2 

BEGBB.1.8 

BB0X»2 

C5STD 

LAI 

STOREB 

XXXXXX 

BBTABL.2 

TTB0X= 

18 

SSB0X= 

OtO 

BBTABL-1.2 

WRTRA»4 

WRSET.4 

SYSTAP 

RDFORT 



ERROR 

NO ERROR 

PUT PROBABILITY CODE IN BB TABLE 

SET INDEX FOR TRA TABLE 

PUT FORMULA NO, IN TRA TABLE 



PUT NO. OF CASES (=3> 



F4423680 
F4423690 
F4423700 
F4423710 
F4423720 
F4423730 
F4423740 
IN TRA TABLE F4423750 
F4423760 



00632 


-0 


63400 


4 


00125 


SRCHN 


SXD 


00633 


-0 


53400 


4 


00035 




LXD 


00634 





60100 





00121 




STO 


00635 





50000 


4 


01114 


CLANN 


CLA 


00636 





10000 





00642 




TZE 


00637 





40200 





00121 




SUB 


00640 





10000 





00650 




TZE 


00641 


1 


00001 


4 


00635 




TXI 



F4423770 
F4423780 
F4423790 
F4423800 
F4423810 
F4423820 
F4423830 
A STOPF4423840 
F4423850 
F4423860 
F4423870 
F4423880 
F4423890 
F4423900 
F4423910 
F4423920 
F4423930 
F4423940 
F4423950 
F4423960 
F4423970 
F4423980 
F4423990 
F4424000 
F4424010 
F4424020 
F4424030 
F4424040 
F4424050 
F4424060 
F4424070 
F4424080 
F4424090 

THIS ROUTINE SEARCHES THE N-LIST FOR THE N IN THE AC* ENTERS F4424100 
IT IF IT IS NOT ALREADY ENTERED AND RETURNS TO THE LOCATION F4424110 
FOLLOWING THE TSX WITH THE INDEX FOR N IN THE DECREMENT OF F4424120 

THE ACCUMULATOR e?^twS 

ERAS1M.4 SAVE INDEX TO RETURN F4424140 

LD1Mf4 SET INDEX cilfJJJS 

ACBOX SAVE AC F 4424 160 

NLlS Tt4 LOOK AT ENTRY IN N-LIST F4424170 

F NTRN END OF LIST REACHEDt N NOT FOUND F4424180 

ACB 0X COMPARE TO N TO BE FOUND F4424190 

NFOUft N HAS BEEN FOUND F4424200 

CLANN. 4*1 NOT FOUND YET. TRY NEXT ENTRY F4424210 



PUT ADDRESSES OF BRANCHES INTO 
TRA TABLE 



DO NEXT BB* 

TEST FOR PAUSE (INNOCUOUS) OR 

IS HPR FOLLOWED BY TRA 
NO- IGNORE— IS A PAUSE 
DOES TRA GO BACK TO HPR 



N0 — HPR IS A PAUSE— IGNORE 
THIS IS A. STOP— PUT STOP CODE IN 

BB TABLE AND NO ENTRY IN TRATBL 
DO NEXT BASIC BLOCK 
SAVE LENGTH OF BB TABLE 
GET ADDRESS IN FXDO LIST 



LOOK AT LAST ENTRY IN BB TABLE 
PUT LENGTH OF TRA TABLE IN TTBOX 

PUT LENGTH OF SET TABLE IN SS BOX 



WRITE LAST BLOCK OF TRAS ON DRUM 
WRITE LAST BLOCK OF SETS ON DRUM 

DO NEXT BLOCK OF PROGRAM 



u 



r 



00642 


-2 


00031 


4 


00644 


ENTRN 


TNX 


C1CLA»4»ZNLIST 


00643 





07400 


4 


00004 




TSX 


RDF0RT.4 


00644 





50000 





00121 


C1CLA 


CLA 


ACBOX 


00643 





60100 


4 


01114 




STO 


NLIST*4 


00646 


-0 


75400 





00000 




PXD 




00647 





60100 


4 


01113 




STO 


NLIST-1»4 


00650 


-0 


75400 


4 


00000 


NFOUN 


PXD 


0»4 


00651 


-0 


53400 


4 


00125 




LXO 


ERAS1M»4 


00652 





02000 


4 


00001 




TRA 


1»4 



00653 


-0 


63400 


4 


00123 


ENTRB 


SXD 


00654 





07400 


4 


00667 




TSX 


00655 


-0 


53400 


4 


00114 




LXD 


00656 





62200 


4 


06023 




STD 


00657 


1 


00002 


4 


00660 




TXI 


00660 


-0 


63400 


4 


00114 


C2SXD 


SXD 


00661 


-0 


53400 


4 


00123 




LXD 


00662 





02000 





00713 




TRA 



00663 -0 63400 4 00123 ENTB2 SXD 

00664 -0 75400 2 00000 PXD 

00665 40000 00035 ADD 

00666 02000 00655 TRA 





00667 





60100 





00121 


FNDBB 


STO 




00670 


-0 


63400 


4 


00122 




SXD 




00671 





56000 





00055 




LDQ 




00672 


-0 


53400 


4 


00033 




LXD 




00673 





50000 





00124 




CLA 




00674 





77100 





00001 


C3ARS 


ARS 




00675 





62200 





00702 




STD 




00676 





62200 





00704 




STD 




00677 





50000 





00121 




CLA 


D 


00700 


3 


00000 


4 


00704 


PLACEM 


TXH 




00701 





34000 


4 


07773 




CAS 


D 


00702 


1 


00000 


4 


00705 


C3TXI 


TXI 




00703 





02000 





00710 




TRA 




00704 


2 


00000 


4 


00705 


C3TIX 


TIX 




00705 





50000 





AATA/. 

\l\J 1 vt 


f~ o/-| A 


s~> A 

vun 




00706 


Q 


04000 


Q 


00674 




TLQ 




00707 





07400 


4 


00004 




TSX 




00710 


-0 


75400 


4 


00000 


C3FND 


PXD 




00711 


-0 


53400 


4 


00122 




LXD 



TEST FOR OVERFLOW OF N-LIST 
N-LIST HAS OVERFLOWED 
STORE N IN N-LIST 

STORE ZERO IN LOCATION AFTER LAST 

ENTRY IN N-LIST 
PUT INDEX FOR N INTO AC 
RESTORE INDEX FOR TRA BACK 
TRANSFER BACK 

THTS ROUTINE TAKES THE COMP+LEfr INSTRUCT TOR NUMBER W T++E 

ACCUMULATOR* TRANSLATES IT TO A BASIC BLOCK NUMBER* ENTERS 

THE BASIC BLOCK NUMBER IN THE TRANSFER TABLE* TESTS FOR A 

TRANSFER TO THE BEGINNING OF A DO WITH AN IF. IT RETURNS TO 

THE LOCATION FOLLOWING THE TSX TO IT. 

ENTBX.4 SAVE INDEX 

FNDBB* 4 CHANGE INSTRUCTION NUMBER TO BB NO 

TB0X»4 

TRA..M-1.4 ENTER IN TRA TABLE 

C2SXD»4*2 SET FOR NEXT ENTRY IN TRA TABLE 

TB0X»4 

ENTBX*4 GO TO TSTAD WITH ADDRESS SET TO GO 

TSTAD BACK TO MAIN ROUTINE 

THIS ROUTINE ENTERS IN THE TRANSFER TABLE AND TESTS A 

TRANSFER TO THE INSTRUCTION (AND BASIC BLOCK) IMMEDIATELY 

AFTER THE LOCATION OF THE TRANSFER 

ENTBX*4 SAVE INDEX 

0,2 PUT THIS BASIC BLOCK NO. INTO AC 

LD1M ADD ONE 

ENTRB+2 ENTER AND TEST THIS ADDRESS 

THIS ROUTINE CHANGES COMPILED INSTRUCTION NOS. UN THE AC) 

TO BASIC BLOCK NUMBERSUN DECREMENT OF THE ACCUMULATOR) BY 

OPTIMAL TABLE LOOKUP 

ACBOX SAVE NUMBER BEING LOOKED FOR 

0UTBX.4 SAVE EXIT INDEX 

CNST2M SET UP TEST FOR END 

L0M*4 START LOOK UP 

XBOX 

1 

C3TXI 

C3TIX 

ACBOX 

C3TIX*4 

BBLIST*4 

C3CLA»4 

C3FND 

C3CLA»4*XXXXXX 

C3TIX 

C3ARS 

RDF0RT*4 FLOW ERROR 

0*4 

0UTBX»4 



F4424220 
F4424230 
F4424240 
F4424250 
F4424260 
F4424270 
F4424280 
F4424290 
F4424300 
F4424310 



F4424330 
F4424340 
F4424350 
F4424360 
F4424370 
•F4424380 
F4424390 
F4424400 
F4424410 
F4424420 
F4424430 
F4424440 
F4424450 
F4424460 
F4424470 
F4424480 
F4424490 
F4-424500 
F4424510 
F4424520 
F44.24530 
F4424540 
F4424550 
F4424560 
F 4424570 
F4424580 
F4424590 
F4424600 
F4424610 
F4424620 
F 44246 30 
F4424640 
F4424650 
F4424660 
F442^670 
F4424680 
F4424690 
F4424700 
F4424710 
F4424720 
F4424730 
F4424740 
F4424750 



m» 



00712 02000 4 00001 



TRA 1*4 















THIS ROUTINE 














AND MAKES A 


00713 


-0 


63400 


1 


00125 


TSTAD 


SXD ERAS1M.1 


00714 


-0 


63400 


4 


00122 




SXD 0UTBX»4 


00715 


-0 


53400 


1 


00112 




LXD SBOXil 


00716 





60100 





00121 




STO ACBOX 


00717 


-0 


53400 


4 


00035 




LXD LD1M»4 


00720 





50000 





00121 


C4CLA 


CLA ACBOX 


00721 


-0 


50100 





00062 


. 


ORA IFMSK 


00722 





34000 


4 


06477 


C4CAS 


CAS DOLIST-1.4 


00723 


1 


00002 


4 


00722 




TXI C4CAS»4*2 


00724 





02000 





00731 




TRA FXDO 


00725 


-0 


63400 


1 


00112 




SXD SB0X»1 


00726 


-0 


53400 


1 


00125 




LXD ERAS1M#1 


00727 


-0 


53400 


4 


00122 




LXD 0UTBX*4 


00730 





02000 


4 


00001 




TRA 1#4 


00 731 


-0 


75400 


2 


00000 


FXDO 


PXD 0*2 


00732 


-0 


50100 





00062 




ORA IFMSK 


00733 





40200 


4 


06477 




SUB DOLIST-1.4 


00734 


-0 


12000 





00742 




TMI C4ENT 


00735 


-0 


75400 


2 


00000 




PXD 0#2 


00736 





34000 


4 


06500 




CAS D0LIST*4 


00737 





02000 





00742 




TRA C4ENT 


00740 


1 


00002 


4 


00720 




TXI C4CLA»4.2 


00741 


1 


00002 


4 


00720 




TXI C4CLA»4t2 


00742 





50000 


4 


06500 


C4ENT 


CLA D0LISTt4 


00743 


-2 


00310 


1 


00745 




TNX C4STD»1*ZSET 


00744 





07400 


4 


01032 




TSX WRSET.4 


00745 





60100 


1 


04524 


C4ST0 


STO SETM»1 


00746 





50000 





00031 




CLA LAI 


00747 





62100 


1 


04524 




STA SETM»1 


00750 





50000 





00760 




CLA C5STD 


00751 





40000 





00031 




ADD LAI 


00752 





62100 





00760 




STA C5STD 


00753 


-0 


32000 





00057 




ANA ADRMK 


00754 





40200 





00052 




SUB LFXDN 


00755 


-0 


12000 





00757 




TMI C5STD-1 


00756 





07400 


4 


00004 




TSX RDF0RT»4 


00757 


-0 


75400 


1 


00000 




PXD 0*1 


00760 





60100 





02413 


C5STD 


STO FIXDOS-1 


00761 


1 


00001 


1 


00762 


C5TXI 


TXI C5TXI+1*1*1 


00762 


1 


00002 


4 


00720 




TXI C4CLA»4»2 

THIS ROUTINE 
INTO STORAGE 
BEGINNING OF 


00763 


-0 


'63400 


4 


00122 


RDINSM 


SXD 0UTBX*4 


00764 





50000 





00032 




CLA MINUS4 


00765 





60100 





00030 




STO ERRBX 


00766 


-0 


63400 


2 


00117 




SXD BB0X»2 


00-767 


-0 


53400 


4 


00551 




LXD LD12M»4 


00770 





50000 


4 


03227 


D1CLA 


CLA NDINS*4 



RETURN 

TESTS FOR A TRANSFER TO THE BEGINNING OF A DO 
SET ENTRY FOR THE DO. 

SAVE INDEX REGISTER FOR TRA BACK 



SAVE ADDRESS BEING TESTED 

COMPARE TO DO LIST 

PUT ADDRESS BEING TESTED INTO AC 

WITH AN IF MARK 

COMPARE TO DO LIST 

ENTRY SMALLER »0R EQUAL BUT W. NO I 

ENTRY EQUAL* HAS IF 

ENTRY LARGER* TEST FINISHED. 

SAVE SET INDEX AND RESTORE INDEX 

REGISTERS* 
RETURN TO MAIN ROUTINE 
SEE IF TRA IS IN OR OUT OF RANGE 

OF THIS DO 

TR BEFORE BEG OF DOiMAKE SET ENTRY 

TR AFTER BEG OF DO. SEE IF IN DO. 

COMPARE TO END OF DO. 

TR* AFTER DO* ENTER SET 

TR. AT END OF DO — NO SET 

TR. IN RANGE OF DO — NO SET 

ENTER SET FOR DO. 

IS BLOCK OF SET TABLE FULL 

YES* WRITE BLOCK ON DRUM 

STORE BB NO. IN SET TABLE 

STORE 1 INTO SET LIST 
MODIFY ADDRESS IN FIX DO LIST FOR 
NEXT ENTRY 



IS FIXDO LIST FULL 
NO CONTINUE TESTING 
FIXDOS FULL 

STORE SET ADDRESS IN FIX DO LIST 
SET FOR NEXT ENTRY IN SET LIST 
SET DO LIST INDEX* CONTINUE TEST 

READS ANOTHER BLOCK OF COMPILED INSTRUCTIONS 
AND SHIFTS THE EXTRA INSTRUCTIONS TO THE 
THE BLOCK 

SAVE INDEX FOR RETURN 

INITIALIZE ERROR BOX 

SAVE INDEX 

SHIFT EXTRA INSTRUCTIONS FROM END 
OF BLOCK FOR BEGINNING 



F4424760 
F4424770 
F4424780 
F4424790 
F4424800 
F4424810 
F4424820 
F4424830 
F4424840 
F4424850 
F4424860 
F4424870 
FF4424880 
F4424890 
F4424900 
F4424910 
F4424920 
F4424930 
F4424940 
F4424950 
F4424960 
F4424970 
F4424980 
F4424990 
F4425000 
F4425010 
F4425020 
F4425030 
F4425040 
F4425050 
F4425060 
F4425070 
F4425080 
F4425090 
F4425100 
F4425110 
F4425120 
F4425130 
F4425140 
F4425150 
F4425160 
F4425I70 
F4425180 
F4425190 
F4425200 
F4425210 
F4425220 
F4425230 
F4425240 
F4425250 
F4425260 
F4425270 
F4425280 
F4425290 



hA 



n 



00771 





60100 


4 


03703 




STO 


INST.M»4 


00772 


2 


0000 1 


4 


00770 




TIX 


D1CLA»4,1 


00773 





76200 





00224 


D1RDS 


RDS 


INSTTP 


00 774 


-0 


53400 


2 


00036 




LXD 


LD3»2 


00 775 





70000 


4 


03667 


D1CPY 


CPY 


INSTM-12»4 


00776 


1 


00001 


4 


00775 




TX1 


D1CPY*4»1 


00777 





02000 





01007 




TRA 


D2END 


01000 


-2 


00001 


2 


01003 




TNX 


D1BCK,2,1 


010G1 





76200 





00224 




RDS 


INSTTP 


01002 





02000 





00775 




TRA 


D1CPY 


01003 





766110- H 


00333- 


fllBCK 


MRS- .2X2 - 


01004 


-0 


76000 





00012 




RTT 




01005 





02000 





01021 




TRA 


INERR 


01006 


3 


00453 


4 


01016 




TXH 


D1XX»4,ZINSTM-1 


01007 


-0 


75400 


4 


00000 


D2END 


PXD 


0*4 


01010 





40000 





00612 




ADD 


LD8 


01011 





62200 





00143 




STD 


FNDAS 


01012 





50000 





00053 




CLA 


LCOUT 


01013 





60100 





00144 




STO 


FNDAS+1 


01014 





50000 





00072 




CLA 


ENDMjCM 


01015 





60100 


4 


03667 




STO 


INST.M-12»4 


01016 


-0 


53400 


4 


00122 


D1XX 


LXD 


0UT8X»4 


01017 


-0 


53400 


2 


00117 




LXD 


BB0X*2 


01020 





02000 


4 


00001 




TRA 


1»4 


01021 





5 0000 





00030 


INERR 


CLA 


ERRBX 


01022 


-0 


12000 





01024 


S K I P 7 


TMI 


SKIP 7+2 


01023 





07400 


4 


00004 




TSX 


RDF0RT?4 


01024 





40000 


C 


00031 




ADD 


LAI 


01025 





60100 





00030 




STO 


ERRBX 


01026 





76400 





00224 


D2BST 


B5T 


INSTTP 


01027 


1 


00001 


2 


01030 




TXI 


D2TIX,2»1 


01030 


-2 


00003 


2 


01026 


D27JX 


TNX 


D2BST>2»3 


01031 





02000 





00773 




TRA 


DIRDS 

THIS ROUTINE WRITES 


01032 


-0 


63400 


h 


00122 


WRSET 


SXD 


0UTBX*4 


01033 





60100 





00121 




STO 


ACBOX 


01034 





50000 





00113 


D7CLA 


CLA 


SPBOX 


01035 





40000 





00047 




ADD 


LZSET 


01036 





60100 





00113 




STO 


SPSOX 


01037 





40200 





00046 




SUB 


LXSET 


01040 


-0 


12000 





01042 




TMI 


STWRS 


01041 





07400 


4 


00004 




TSX 


RDF0RT*4 


01042 





76600 





00303 


STWRS 


WRS 


SETDRM 


01043 


-0 


75400 





00000 




PXD 


0«0 


01044 


-0 


53400 


h 


00047 




LXD- 


LZSET»4 


01045 





36100 


4 


045 24 


D6ACL 


ACL 


SETK>4 


010^6 


2 


00001 


4 


01045 




TIX 


D6ACL»4*1 


01047 





60200 





00125 




SLW 


ERAS1M 


01050 





46000 





00040 




LDA 


SETYM 


01051 


-0 


53400 


u 


000^7 




LXD 


LZSET*4 


01052 





7000 


4 


04524 


D6CPY 


CPY 


SETM>4 


01053 


2 


00 001 


4 


01052 




TIX 


D6CPY»4»1 


01054 





70^00 





00125 




CPY 


ERAS1M 



F 442 5 3 00 
F4425310 
F4425320 
F4425330 
F4425340 
F4425350 
F 4425 360 



IS BLOCK. SHIFTED 
SELECT INSTRUCTION TAPE 
YES» SET INDEX FOR NO, OF RECORDS 
COPY BLOCK OF INSTRUCTIONS 
SET FOR NEXT WORD 
END OF FILE 

END OF RECORD — IS IT END OF 3RD RECF4425370 
NO, READ NEXT RECORD* F4425380 

F 4425 390 
TEST FOR TAPE ERROR £ 44 2 5400 

F4425410 

ERROR F4425420 

IF 3RD RECORD FULL — NOT END OF FILEF 4425430 

REACHED END OF INSTRUCT I ONS# F4425440 

PUT TEST FOR LAST- INSTRUCTION F4425450 

INTO MAIN ROUTINE F 4425460 

PUT ADDRESS OF FINAL EXIT INTO MAINF4425470 

ROUTINE. F4425480 

F4425490 
F4425500 
F4425510 
F4425520 
F4425530 
F 4425 540 
F 442 5 550 
F4425560 
F4425570 
F4425580 
F4425590 
F4425600 
F4425610 
TAPE BACKSPACED — TRY TO READ AGAIN F4425620 

F4425630 

A BLOCK OF SETS ON DRUM 3. F4425640 

SAVE INDEX FOR RETURN F4425650 

SAVE CONTENTS OF AC F4425660 

SET SP BOX FOR NEXT BLOCK F4425670 

• F4425680 
F4425690 
F4425700 
F4425710 
F4425720 
F4425730 
F4425740 
F4425750 
F4425760 
F4425770 
F4425780 
F4425790 
F4425800 
F4425810 
F4425820 
F4425830 



NO ERROR* RESTORE INDEX REGISTERS 

RETURN TO MAIN ROUTINE 

HAVE 5 TRIES AT READING BEEN MADE 
YES» GO TO DIAGNOSTIC ROUTINE 
NO» TRY READING AGAIN 

BACKSPACE OVER RECORDS JUST READ 



NO OVERFLOW — CONTINUE 

SET TABLE HAS OVERFLOWED. 

SELECT DRUM 

CLEAR AC 

SET INDEX FOR COMPUTING CHECKSUM 

COMPUTE CHECK SUM 

STORE CHECK SUM 
LOCATE DRUM ADDRESS 
SET INDEX FOR COPYING 
COPY BLOCK 



COPY CHECK SUM 



/ 



ty<1 



01055 





50000 





00040 




CLA 


SETYM 


01056 





40000 





00042 




ADO 


LZSET1 


01057 





60100 





00040 




STO 


SETYM 


01060 


-0 


53400 


4 


00122 




LXD 


0UTBXf4 


01061 





50000 





00121 




CLA 


ACBOX 


01062 





02000 


4 


00001 




TRA 


1*4 

THIS SETS UP FOR 


01063 


-0 


53400 


1 


00551 


PASS2 


LXD 


LD12M»1 


01064 


1 


00455 


1 


01065 


1TXI 


TXI 


1TXI+1»1»ZINSTM+1 


01065 





50000 





07774 




CLA 


BBOX.= 


01066 





62200 





00700 




STD 


PLACEM 


01067 





77100 





00001 




ARS 


1 


01070 





30000 





00033 




FAD 


LOM 


01071 





77100 





00033 




ARS 


27 


01072 





40200 





00035 




SUB 


LD1M 


01073 





62100 





01075 




STA 


ARSX 


01074 





50000 





00056 




CLA 


CONSTM 


01075 





77100 





00000 


ARSX 


ARS 




01076 





60100 





00124 




STO 


XBOX 


01077 





50000 





07775 




CLA 


DOBOX= 


01100 


-0 


10000 





01103 




TNZ 


TRAQ-1 


01101 





50000 





00730 




CLA 


FXDO-l 


01102 





60100 





00713 




STO 


TSTAD 


01103 





53400 


2 


00057 




LXA 


ADRMM2 


01104 





02000 





00130 


TRAQ 


TRA 


BEGBB 

SECTION 4 - PART 



SET DRUM ADDRESS FOR NEXT BLOCK 



F4425840 
F4425850 
F4425860 
F4425870 
F4425880 
F4425890 
F4425900 
F4425910 
F4425920 
F4425930 
F4425940 
F4425950 
F4425960 
FIND LEAST POWER OF 2 NOT LESS THANF4425970 



RESTORE INDEX REGISTER 



INITIALIZE INDEX REGISTERS 

GET LENGTH OF BBLIST 
PUT LENGTH INTO TEST 



LENGTH OF TABLE 



IF THERE ARE NO DOS» DO NOT TEST 
FOR A TRANSFER TO A DO 



03064 



ORG 



03064 


-0 63400 


4 


00122 


RDTIF 


SXD 


03065 


-0 63400 


2 


00125 




SXD 


03066 


50000 





00032 




CLA 


03067 


O 60100 





00030 




STO 


03070 


50000 





03703 




CLA 


03071 


60100 





04213 




STO 


03072 


76200 





00301 


TFRDS 


RDS 


03073 


46000 





00041 




LDA 


03074 


70000 





00126 




CPY 


03075 


-0 53400 


6 


00126 




LXD 


03076 


70000 


4 


04213 


D2CPY 


CPY 


03077 


2 00001 


4 


03076 




TIX 


03100 


70000 





00127 




CPY 


03101 


-0 50000 





00126 




CAL 



2 OF 6 (2ND RECORD OF 2) 



FORTRAN EDITOR INFORMATION 

FASTER RECORD CARD = F0650000 

£**RY POINT = 1063 (CONTROL GOES TO PREVIOUS RECORD) 

?*?5T LOCATION = 3064 

LAST wOCATXON = 3210 



1588 

THIS ROUTINE READS A BLOCK OF TIFRD INTO CORE STORAGE FROM 

DRUM 1* 

0UTBX»4 SAVE INDEX FOR RETURN 

ERAS1M#2 SAVE INDEX 

MINUS4 INITIALIZE ERROR BOX 

ERRBX 

NTIFR-1 MOVE EXTRA WORD FROM END OF BLOCK 

TIFRDM-1 TO BEGINNING 

T I FORM SELECT DRUM 

TIFY LOCATE DRUM ADDRESS 

ERAS2M COPY LENGTH OF BLOCK 

ERAS2M.6 SET INDEX FOR COUNT 

TIFRDM-1. 4 READ IN BLOCK OF TIFRD 

D2CPY»4il TEST FOR END OF BLOCK 

ERAS3M COPY CHECK SUM 

ERAS2M 



F4425980 

F4425990 

F4426000 

F4426010 

F4426020 

F4426030 

F4426040 

F4426050 

F4426060 

F4426070 

F 4426080 

F4426090 

F4426100 

F4*26110 

F*42&120 

F44i^l30 

F4*261M) 

F442&150 

F4426160 

F4426170 

F4426180 

F4426190 

F4426200 

F4426210 

F4426220 

F4426230 

F4426240 

F4426250 

F4426260 

F4426270 

F4426280 

F4426290 

F4426300 

F4426310 

F4426320 

F4426330 

F4426340 

F4426350 

F4426360 

F4426370 



w 



a 



L 



03102 





10000 





03121 




TZE 


LSTBLT 


03103 





36100 


2 


04213 


D3ACL 


ACL 


TIFRDM-1»2 


03104 


2 


00001 


2 


03103 




TIX 


D3ACL»2»1 


03105 





60200 





00121 




SLW 


ACBOX 


03106 





50000 





00121 




CLA 


ACBOX 


03107 





40200 





00127 




SUB 


ERAS3M 


03110 


-0 


10000 





03141 




TNZ 


TFERR 


03111 


-0 


53400 


4 


00126 




LXD 


ERAS2M*4 


03112 


-2 


00307 


4 


03121 




TNX 


LSTBLT»4*ZTIFRD-1 


03113 





50000 





00041 




CLA 


TIFY 


03114 





40000 





00043 




ADO 


LZTIF2 


03X15 





62T00 





00041 




STA 


TTFY 


03116 


-0 


53400 


2 


00125 


TFLXD 


LXD 


ERAS1NU2 


03117 


-0 


53400 


4 


00122 




LXD 


0UTBX«4 


03120 





02000 


4 


00001 




TRA 


1»4 


03121 





50000 





00054 


LSTBLT 


CLA 


TRNOM 


03122 





60100 





03065 




STO 


RDTIF+1 


03123 





50000 





00126 




CLA 


ERAS2M 


03124 





40000 





00035 




ADD 


LD1M 


03125 





62200 





00150 




STD 


2TNX 


03126 





62200 





00343 




STD 


7TNX 


03127 





62200 





00356 




STD 


8TNX 


03130 





02000 





03116 




TRA 


TFLXD 


03131 





50000 





03156 


NOMOR 


CLA 


TRTSX 


03132 





60100 





03064 




STO 


RDTIF 


03133 





50000 





03140 




CLA 


TR2CL 


03134 





60100 





00147 




STO 


2TNX-1 


03135 


-0 


53400 


4 


00116 




LXD 


PB0X»4 


03136 





60000 


4 


04214 




STZ 


TIFRDM»4 


03137 





02000 





03117 




TRA 


TFLXD+1 


03140 





02000 





00160 


TR2CL 


TRA 


2CLA 


03141 





50000 





00030 


TFERR 


CLA 


ERRBX 


03142 


-0 


12000 





03144 


SKIPS 


TMI 


SKIP8+2 


03143 





07400 


4 


00004 




TSX 


RDF0RT»4 


03144 





40000 





00031 




ADD 


LAI 


03145 





60100 





00030 




STO 


EtRSX 


03146 





02000 





03072 




TRA 


TfRDS 

THIS ROUTINE WRIT 
WITH CHECK SUM 


03147 


-0 


63400 


4 


00122 


WRTRA 


SXD 


0UTBX»4 


03150 





60100 





00121 




STO 


ACBOX 


03151 





50000 





00115 


TRCLA 


CLA 


TPBOX 


03152 





40000 





00045 




ADD 


LZTRA 


03153 





60100 





00115 




STO 


TPBOX 


03154 





40200 





00044 




SUB 


LXTRA 


03155 


-0 


12000 





03157 




TMI 


TRWRS 


03156 





07400 


4 


00004 


TRTSX 


TSX 


RDF0RTt4 


03157 





76600 





00301 


TRWRS 


WRS 


TRADRM 


03160 


-0 


53400 


4 


00045 




LXD 


LZTRAi4 


03161 


— v 


75400 


C 


00000 




PXD 


0*0 


03162 


IS 


36100 


4 


06024 


04 ACL 


ACL 


TRAM*4 


03163 


2 


00001 


4 


03162 




TIX 


D4ACL*4»1 


03164 





60200 





00125 




SLW 


ERAS1M 



TIFGO IS EMPTY 
COMPUTE CHECKSUM 



COMPARE CHECK SUMS 
NOT EQUAL* ERROR 
WAS THIS A FULL BLOCK 
NO — WAS LAST BLOCK 
THIS WAS A FULL BLOCK* SET DRUM 
ADDRESS FOR NEXT BLOCK 

RESTORE INDEX REGISTER 

RETURN TO MAIN ROUTINE 

END OF TIFGO — PREVENT FURTHER 

ATTEMPTS TO READ IN 
PUT NUMBER OF WORDS IN THIS BLOCK 

INTO COMPARISONS 



RESTORE INDEX REGISTERS AND EXIT. 
TIFRD IS ALL USED - STORE A TSX 



HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
NO* TRY READING AGAIN 



A BLOCK OF THE TRA TABLE ON THE DRUM 

SAVE INDEX FOR RETURN 
SAVE CONTENTS OF THE AC 
SET TP BOX FOR NEXT BLOCK 



NO OVERFLOW— CONTINUE 

THE TRA TABLE HAS OVERFLOWED 

SELECT DRUM 

SET INDEX 

CLEAR AC 

COMPUTE CHECKSUM 

STORE CHECK SUM 



F4426380 
F4426390 
F4426400 
F4426410 
F4426420 
F4426430 
F4426440 
F4426450 
F4426460 
F4426470 
F4426480 
F4426490 
F4426500 
F4426510 
F4426520 
F4426530 
F4426540 
F4426550 
F4426560 
F4426570 
F4426580 
F4426590 
F4426600 
F4426610 
F4426620 
F4426630 
F4426640 
F4426650 
F4426660 
F4426670 
F4426680 
F4426690 
F4426700 
F4426710 
F4426720 
F4426730 
F4426740 
F4426750 
F4426760 
F4426770 
F4426780 
F4426790 
F4426800 
F4426810 
F4426820 
F4426830 
F4426840 
F4426850 
F4426860 
F4426870 
F4426880 
F4426890 
F4426900 
F4426910 



03165 


-0 


53400 


4 


00045 




LXD 


LZTRA»4 


03166 





70000 


4 


06024 


D4CPY 


CPY 


TRAM»4 


03167 


2 


00001 


4 


03166 




TIX 


D4CPY#4»1 


03170 





70000 





00125 




CPY 


ERAS1M 


03171 


-o 


53400 


4 


00276 




LXD 


LD4#4 


03172 





50000 


4 


04530 


D5CLA 


CLA 


NDTRA»4 


03173 





60100 


4 


06024 




STO 


TRA««M#4 


03174 


2 


00001 


4 


03172 




TIX 


D5CLA*4*1 


03175 


-0 


53400 


4 


00045 




LXD 


LZTRA*4 


03176 


-0 


75400 





00000 




PXD 


0*0 


03177 





56000 





00031 




LDQ 


LAI 


03200 





60100 


4 


06021 


D5ST2 


STO 


TRAM-3»4 


03201 


-0 


60000 


4 


06020 




STQ 


TRA..M-4»4 


03202 


2 


00002 


4 


03200 




TIX 


D5ST2»4*2 


03203 





50000 





03157 




CLA 


TRWRS 


03204 





40000 





00031 




ADD 


LAI 


03205 





62100 





03157 




STA 


TRWRS 


03206 


-0 


53400 


4 


00122 


TRLXD 


LXD 


0UTBX»4 


03207 





50000 





00121 




CLA 


ACBOX 


03210 





02000 


4 


00001 




TRA 


1»4 
SECTION 4 



SET INDEX FOR COPYING 
COPY BLOCK 

COPY CHECK SUM 

SHIFT EXTRA ENTRIES FROM THE 
TO THE BEGINNING OF BLOCK 

SET INDEX 



INITIALIZE TRA TABLE 



SET ADDRESS FOR NEXT BLOCK 



RESTORE INDEX REGISTERS 
RESTORE CONTENTS OF AC 
RETURN TO MAIN ROUTINE 



END 



00033 



00033 





00000 





00000 


ZERO 


00034 





00001 





ooooo 


LD1N 


00035 





70007 





00000 


LD7N 


00036 


4200000000000 


PBYCDN 


00037 


-300000000000 


PFXMKN 


00040 


+377777777777 


ENDMKN 


00041 





00000 





00310 


LAZST 


00042 





00000 





00311 


LZST1 


00043 





00000 





00374 


LZFR1 


00044 





00000 





01274 


LAZTR 


0OO45 





00310 





ooooo 


LZSETN 


00046 





01274 





ooooo 


LZTRAN 


00047 





00000 





01275 


WSETY 


00050 





00000 





01750 


FRETY 


00051 





00000 





02260 


BBLYN 


00052 





00000 





03270 


DOYN 


00053 





02000 





00366 


TRBCK 


00054 





00000 





00201 


LFXST 


00055 





00000 





OOOOO 


ERAS IN 


00056 





00000 





OOOOO 


ERAS2N 


00057 





00000 





OOOOO 


ERAS3N 



- PART 3 OF 6 



FORTRAN EDITOR INFORMATION 

MASTER RECORD CARD = F0670000 
ENTRY POINT = 111 
FIRST LOCATION = 33 
LAST LOCATION ■ 437 



ORG 27 

CONSTANTS AND VARIABLES 
• . 

0»0»1 

0»0»-TRATBl+2 
OCT 200000000000 
OCT -300000000000 . 
OCT 377777777777 

ZSET 

ZSET+1 

ZFRET=+2 

ZTRA 

0»0»ZSET 

0»0>ZTRA 

SETADD 

FRTADD 

BBLADD 

DOADDR 
TRA CLAFN 

FXSET 



DRUM ADDRESS FOR SET TABLE 
DRUM ADDRESS FOR FRET 
DRUM ADDRESS FOR BB LIST 
DRUM ADDRESS FOR DO LIST 



F4426920 

F4426930 

F4426940 

F4426950 

F4426960 

F4426970 

F4426980 

F4426990 

F4427000 

F4427010 

F4427020 

F4427030 

F4427040 

F4427050 

F4427060 

F4427070 

F4427080 

F4427090 

F4427100 

F4427110 

F4427120 

F4427130 

F4430010 

F4430020 

F4430030 

F4430040 

F4430050 

F4430060 

F4430070 

F4430080 

F4430090 

F4430100 

F4430110 

F4430120 

F4430130 

F4430140 

F4430150 

F4430160 

F4430170 

F4430180 

F4430190 

F4430200 

F443O210 

F4430220 

F4430230 

F4430240 

F4430250 

F4430260 

F4430270 

F4430280 

F4430290 

F4430300 

F4430310 

F4430320 



4'-< 



U 



00060 
00061 



00062 
00063 
00064 
00065 
00066 
00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 



00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 



00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 



00000 00000 ERAS4N 
00000 00000 ERAS5N 



50000 
60100 
76200 
46000 
53400 
70000 
2 ^000^ 
70000 
75400 
36100 
00001 
60200 
50000 
40200 
10000 
50000 
12000 
07400 
40000 
60100 
02000 
76200 
02000 



53400 
75400 
76600 
36100 
00001 
36100 
60200 
46000 
70000 
00001 
70000 
70000 



53400 
75400 
76600 
36100 
00001 
60200 
46000 
70000 
2 00001 
70000 



00032 
00030 
00303 
00047 
07776 
01063 
00067 
00055 
00000 
01063 
00073 
00056 
00056 
00055 
00107 
00030 
00104 
00004 
00031 
00030 
00064 
00221 
00004 



RDSET 
16WRS 

16CPY 
16ACL 



17ERR 
SKIP9 



READ4 



LXD 



CLA 
STO 
RDS 
LDA 
LXO 
CPY 

nx 

CPY 
PXD 
ACL 
TIX 
SLW 
CLA 
SUB 
TZE 
CLA 
TMI 
TSX 
ADD 
STO 
TRA 
RDS 
TRA 



07774 

00000 

00303 

07773 

00114 SELF30 

07773 

00055 

00051 

07773 

00121 SELF31 

07773 

00055 



07775 

00000 

00301 

06500 2ACL 

00130 

00055 

00052 

06500 2CPY 

00134 

00055 



THIS ROUTINE 

MINUS4 

ERRBX 

SETDRM 

WSETY 

SSB0X=»3 

SETTAB+1.1 

ERAS1N 

0*0 

SETTAB+1»2 

16ACL.2.1 

ERAS2N 

ERAS2N 

ERAS1N 

READ4 

ERRBX 

SKIP9+2 

RDF0RT»4 

LAI 

ERRBX 

16WRS 

SYSTAP 

RDFORT 



READS THE SET TABLE FROM DRUM 3« 
INITIALIZE ERROR BOX 



LOCATE DRUM ADDRESS 
SET INDEX REGISTERS 
COPY TABLE 

COPY CHECK SUM 

CLEAR AC 

COMPUTE CHECK SUM 

STORE CHECK SUM 
COMPARE CHECK SUMS 



IF NO ERROR-READ IN NEXT PROGRAM 

HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
NO. TRY READING AGAIN 

TRY AGAIN 



THIS ROUTINE WRITES THE BBLIST ON DRUM 3 
LXD BB0X. = .3 PUT BASK BLOCK LIST ON DRUM 

PXD 0*0 
WRS BBLDRM 

ACL BBLIST tl COMPUTE CHECK SUM 

TIX SELF30-1.1.1 
ACL BBLIST 

SLW ERAS1N STORE CHECK SUM 

LDA BBLYN 

CPY BBLIST. 2 COPY LIST 

TIX SELF31-1.2.1 ^^ 

CPY BBLIST COPY LAST WORD IN LIST 

CPY ERAS1N COPY CHECK SUM 

THIS ROUTINE WRITES DOLIST ON DRUM 1. 
LXD D0B0X=*3 COPY DO LIST ONTO DRUM 

PXD 0*0 „ , 

WRS DODRUM SELECT DRUM 

ACL DOLIST. 1 COMPUTE CHECK SUM 

TIX 2ACL.1.1 

SLW ERAS1N STORE CHECK SUM 

LDA DOYN 

CPY DOLIST .2 COPY TABLE 

TIX 2CPY.2.1 

CPY ERAS1N COPY CHECK SUM 



F4430330 
F4430340 
F4430350 
F4430360 
F4430370 
F4430380 
F4430390 
F4430400 
F4430410 
F4430420 
F4430A3Q 
F4430440 
F4430450 
F 44 3 0460 
F4430470 
F4430480 
F4430490 
F4430500 
F4430510 
F4430520 
F4430530 
F4430540 
F4430550 
F4430560 
F4430570 
F4430580 
F4430590 
F4430600 
F4430610 
F4430620 
F4430630 
F4430640 
F4430650 
F4430660 
F4430670 
F4430680 
F4430690 
F4430700 
F4430710 
F4430720 
F4430730 
F4430740 
F4430750 
F4430760 
F4430770 
F4430780 
F4430790 
F4430800 
F4430810 
F4430820 
F4430830 
F4430840 
F4430850 
F4430860 



Hb\ 

















THIS READS THE 


00137 





50000 





00032 


4PXD 


CLA 


MINUS4 


00140 





60100 





00030 




STO 


ERRBX 


00141 





76200 





00303 


4WRS 


RDS 


SETDRM 


00142 





46000 





00047 




LDA 


WSETY 


00143 


-0 


53400 


3 


00045 




LXD 


L2SETN»3 


00144 





70000 


1 


07774 


4CPY 


CPY 


SETL0O1 


00145 


2 


00001 


1 


00144 




TIX 


4CPYtlfl 


00146 





70000 





00055 




CPY 


ERAS1N 


00147 


-0 


75400 





00000 




PXD 


OtO 


00150 





36100 


2 


07774 


4ACL 


ACL 


SETLOC*2 


00151 


2 


00001 


2 


00150 




TIX 


4ACL»2»1 


00152 





60200 





00056 




SLW 


ERAS2N 


00153 





50000 





00056 




CLA 


ERAS2N 


00154 





40200 





00055 




SUB 


ERAS1N 


00155 





10000 





00164 


4TZE 


TZE 


TESTST 


00156 





50000 





00030 


STERR 


CLA 


ERRBX 


00157 


-0 


12000 





00161 


SKIP10 


TMI 


SKIP10+2 


00160 





07400 


4 


00004 




TSX 


RDF0RTt4 


00161 





40000 





00031 




ADD 


LAI 


00162 





60100 





00030 




STO 


ERRBX 


00163 





02O00 





00141 




TRA 


4WRS 


00164 





50000 





07776 


TESTST 


CLA 


SS80X= 


00165 





40200 





00045 




SUB 


LZSETN 


00166 


-0 


12000 





00201 




TMI 


FXSET 


00167 





50000 





00047 


6SET 


CLA 


WSETY 


00170 





40000 





00042 




ADD 


LZST1 


00171 





60100 





00047 




STO 


WSETY 


00172 





50000 





00144 


5CLA 


CLA 


4CPY 


00173 





40200 





00041 




SUB 


LAZST 


00174 





62100 





00144 




STA 


4CPY 


00175 





62100 





00150 




STA 


4ACL 


00176 





50000 





00054 




CLA 


LFXST 


00177 





62100 





00155 




STA 


4TZE 


00200 





02000 





00137 




TRA 


4PXD 

THIS ROUTINE FI 


00201 





53400 


1 


00033 


FXSET 


LXA 


ZER0*1 


00202 





50000 


1 


02414 


CCLA 


CLA 


FIXDOStl 


00203 


-0 


12000 





00213 




TMI 


WRTST 


00204 


-0 


73400 


4 


00000 




PDX 


0t4 


00205 





50000 


4 


07774 




CLA 


SETL0O4 


00206 


-0 


73400 


2 


00000 




PDX 


0»2 


00207 


o 


5O0O0 


2 


02413 




CLA 


SBTA6L»2 


00210 





40000 





00035 




ADD 


LD7N 


00211 





62200 


4 


077.74 




STD 


SETL0C»4 


00212 


1 


77777 


1 


00202 




TXI 


CCLA*1»-1 

THIS ROUTINE WR 


00213 


-0 


53400 


3 


07776 


WRTST 


LXD 


SSBOX=»3 


00214 





76600 





00303 




WRS 


SETDRM 


00215 


-0 


75400 





00000 




PXD 


0»0 


00216 





36100 


1 


07774 


7 A ACL 


ACL 


SETLOCtl 


00217 


2 


00001 


1 


00216 




TIX 


7AACLt 1»1 



TWO BLOCKS OF THE SET TABLE FROM THE DRUM 
INITIALIZE ERROR BOX 



COPY BLOCK 



COPY CHECK SUM 
CLEAR AC 
COMPUTE CHECKSUM 



COMPARE CHECK SUMS 



HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
N0> TRY READING AGAIN 

TRY AGAIN TO READ IN 

IS THERE ANOTHER BLOCK ON DRUM 

NO OTHER- 

ANOTHER BLOCK-SET DRUM ADDRESS 



SET ADDRESSES FOR NEXT BLOCK 



STORE ADDRESS FOR NEXT ROUTINE 
READ IN NEXT BLOCK 

XES THE SETS FOR TRANSFERS TO DOS WITH IFS 
SET INDEX FOR FIX DO LIST 
GET ENTRY FROM FIXDO LIST 
ALL DONE IF MINUS 
SET FOR ADDRESS IN SET TABLE 
LOOK AT ENTRY IN SET TABLE 
SET FOR ADDRESS IN BASIC BLOCK TAB 
GET ADDRESS IN TRA TABLE 
SET FOR CORE ADDRESS OF COUNTER 
PUT INTO SET TABLE 
LOOK AT NEXT ENTRY IN FIXDO LIST 

ITES THE FINISHED SET TABLE ON THE DRUM 
SET INDEX REGISTERS 
SELECT DRUM 

COMPUTE CHECK SUM 



F4430870 
F4430880 
F4430890 
F4430900 
F4430910 
F4430920 
F4430930 
F4430940 
F4430950 
F4430960 
F4430970 
F4430980 
F4430990 
F4431000 
F4431010 
F4431020 
F4431030 
F4431040 
F4431050 
F4431060 
F4431070 
F4431080 
F4431090 
F4431100 
F4431110 
F4431120 
F4431130 
F4431140 
F4431150 
F4431160 
F4431170 
F4431180 
F4431190 
F4431200 
F4431210 
F4431220 
F4431230 
F4431240 
F4431250 
F4431260 
F4431270 
F4431280 
•F4431290 
F4431300 
F4431310 
F4431320 
F4431330 
F4431340 
F4431350 
F4431360 
F4431370 
F4431380 
F4431390 
F4431400 



Hlh 



U 



00220 





60200 





00055 




SLW 


ERAS1N 


00221 





46000 





00047 




LDA 


WSETY 


00222 





70000 


2 


07774 


7ACPY 


CPY 


SETLOC#2 


00223 


2 


00001 


2 


00222 




TIX 


7ACPY»2#1 


00224 





70000 





00055 




CPY 


ERAS1N 

THIS ROUT INI 


00225 





50000 





07777 


RDTRA 


CLA 


TTB0X= 


00226 





40200 





00034 




SUB 


LD1N 


00227 





60100 





00057 




STO 


ERAS3N 


00230 





50OO0 





00032 


8PXD 


CLA 


MINUS4 


00231 





02000 





00265 




TRA 


SKIP11+3 


00232 





76200 





00301 


8WRS 


RDS 


TRADRM 


00233 


-0 


53400 


3 


00046 




LXD 


LZTRANt3 


00234 





70000 


1 


07774 


8CPY 


CPY 


TRATBL+1»1 


00235 


2 


00001 


1 


00234 




TIX 


8CPY»ltl 


00236 





70000 





00055 




CPY 


ERAS1N 


00237 





36100 


2 


07774 


8ACL 


ACL 


TRATBL+1»2 


00240 


2 


00001 


2 


00237 




TIX 


8ACL»2»1 


00241 





60200 





00056 




SLW 


ERAS2N 


00242 





50000 





00056 




CLA 


ERAS2N 


00243 





40200 





00055 




SUB 


ERAS1N 


00244 


~0 


10000 





00261 




TNZ 


TRERR 


00245 





50000 





00057 




CLA 


ERAS3N 


00246 





40200 





00046 




SUB 


LZTRAN 


00247 


-0 


12000 





00270 




TMI 


CLRNS 


00250 





60100 





00057 




STO 


ERAS3N 


00251 





50000 





00232 




CLA 


8WRS 


00252 





40000 





00031 




ADD 


LAI 


00253 





62100 





00232 




STA 


8WRS 


00254 





50000 





00234 




CLA 


8CPY 


00255 





40200 





00044 




SUB 


LAZTR 


00256 





62100 





00234 




STA 


8CPY 


00257 





62100 





00237 




STA 


8ACL 


00260 





02000 





00230 




TRA 


8 PXD 


00261 





50000 





00030 


TRERR 


CLA 


ERRBX 


00262 


-0 


12000 





00264 


SKIP11 


TMI 


SKIP11+2 


00263 





07400 


4 


00004 




TSX 


RDF0RT#4 


00264 





40000 





00031 




ADD 


LAI 


00265 





60100 





00030 




STO 


ERRBX 


00266 


-0 


75400 





00000 




PXD 


0*0 


00267 





02000 





00232 




TRA 


8WRS 

THIS CLEARS 


00270 





56000 





00033 


CLRNS 


LDQ 


ZERO 


00271 





53400 


4 


00031 




LXA 


LA1»4 


00272 





50000 


4 


01114 


CLANS 


CLA 


NLIST»4 


00273 





10000 





00300 




TZE 


11 PXD 


00274 


-0 


60000 


4 


01114 




STQ 


NLIST»4 


00275 


1 


00001 


4 


00272 




TXI 


CLANSt4»l 
THIS ROUT IN 


00276 


-0 


63400 


2 


00060 


RDFRT 


SXD 


ERAS4N»2 


00277 


-0 


63400 


1 


00061 




SXD 


ERAS5N#1 



STORE CHECK SUM 
COPY TABLE 
COPY CHECK SUM 
READS THE TRA TABLE FROM THE DRUM 



INITIALIZE ERAS3N 
INITIALIZE ERROR BOX 



SET INDICES 

COPY BLOCK OF TABLE 

COPY CHECK SUM 



COMPARE CHECK SUMS 
IF NOT ZERO* HAS BEEN AN ERROR 
PUT NO OF WORDS COPIED IN AC 
ADD BLOCK JUST COPIED 
MINUS MEANS ALL DONE* CLEAR N LIST 
STORE NUMBER OF WORDS LEFT TO COPY 
NOT FINISHED— SET DRUM NUMBER FOR 
NEXT BLOCK 

SET ADDRESSES FOR NEXT BLOCK 



COPY NEXT BLOCK 

HAVE 5 TRIES AT READING BEEN MADE 
YES* 60 TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 

CLEAR AC 
TRY AGAIN 



END OF LIST-DO NEXT ROUTINE 

STORE ZERO IN N-LIST 

SET FOR NEXT WORD IN LIST 

?0M DRUM 2 
SAVE INDEX REGISTERS 



F4431410 

F4431420 

F4431430 

F4431440 

F4431450 

F4431460 

F4431470 

F4431480 

F4431490 

F4431500 

F4431510 

F4431520 

F4431530 

F4431540 

F4431550 

F4431560 

F4431570 

F4431580 

F4431590 

F4431600 

F4431610 

F4431620 

F4431630 

F4431640 

F4431650 

F4431660 

F4431670 

F4431680 

F4431690 

F4431700 

F4431710 

F4431720 

F4431730 

F4431740 

F4431750 

F4431760 

F4431770 

F4431780 

F4431790 

F4431800 

F4431810 

F4431820 

F4431830 

F4431840 

F4431850 

F4431860 

F4431870 

F4431880 

F4431890 

F4431900 

F4431910 

F4431920 

F4431930 

F4431940 



If7l 



D V 



00300 





50000 





00032 


11PXD 


CLA 


MINUS4 


00301 





02000 





00343 




TRA 


SKIP12+3 


00302 





76200 





00302 


11WRS 


RDS 


FRTDRM 


00303 





46000 





00050 




LDA 


FRETY 


00304 





70000 





00056 




CPY 


ERAS2N 


00305 


-0 


53400 


7 


00056 




LXD 


ERAS2N»7 


00306 





70000 


1 


01062 


11CPY 


CPY 


FRET«1 


00307 


2 


00001 


1 


00306 




TIX 


11CPY»1«1 


00310 





70000 





00055 




CPY 


ERAS1N 


00311 





70000 





00057 




CPY 


ERAS3N 


00312 





36100 


2 


01062 


11ACL 


ACL 


FRETt2 


00313 


2 


00001 


2 


00312 




TIX 


HACLf2»l 


00314 





36100 





00056 




ACL 


ERAS2N 


00315 





60200 





00056 




SLW 


ERAS2N 


00316 


3 


00000 


4 


00322 




TXH 


11CLA»4»0 


00317 





50000 





00402 




CLA 


NOQFD 


00320 





62100 





00357 




STA 


13TXIN-1 


00321 





02000 





00346 




TRA 


FXTRA 


00322 





50000 





00056 


UCLA 


CLA 


ERAS2N 


00323 





40200 





00055 




SUB 


ERAS1N 


00324 


-0 


10000 





00337 




TNZ 


FQERR 


00325 





50000 





00050 


12CLA 


CLA 


FRETY 


00326 





40000 





00043 




ADD 


LZFR1 


00327 





60100 





00050 




STO 


FRETY 


00330 





50000 





00057 




CLA 


ERAS3N 


00331 


-0 


10000 





00334 




TNZ 


12TRA-2 


00332 





50000 





00341 




CLA 


SKIP12+1 


00333 





60100 





00301 




STO 


11PXD+1 


00334 


-0 


53400 


1 


00061 




LXD 


ERAS5N,1 


00335 


-0 


53400 


2 


00060 




LXD 


ERAS4Nt2 


00336 





02000 





00 3*6 


12TRA 


TRA 


FXTRA 


00337 





50000 





00030 


FQERR 


CLA 


ERRBX 


00340 


-0 


12000 





00342 


S£iP12 


TMI 


SKIP12+2 


00341 





07400 


4 


00004 




TSX 


RDF0RT»4 


00342 





40000 





00031 




ADD 


LAI 


00343 





60100 





00030 




STO 


ERRBX 


00344 


-0 


75400 





00000 




? \D 


0*0 


00345 





02000 





00302 




TRA 


11WRS 

Tnli »OUT I 
TA6L£ FROM 


00346 


-0 


53400 


2 


00033 


FXTRA 


LXD 


2£RC»2 


00347 





50000 





07774 




CLA 


BB0X#= 


0O350 





40200 





00034 




SUB 


LD1N 


Q0351 





62200 





00352 




STD 


13TXH 


00352 


3 


00000 


2 


00062 


13TXH 


TXH 


RDSET»2 


00353 


-0 


50000 


2 


02413 




CAL 


BBTABLf2 


00354 


-0 


73400 


1 


00000 




PDX 


0»1 * 


00355 


-0 


32000 





00037 




ANA 


PFXMKN 


00356 





40200 





00036 




SUB 


PBYCDN 


00357 





10000 





00361 




TZE 


CLAT 


00360 


1 


00001 


2 


00352 


13TXIN 


TXI 


13TXH*2*1 


00361 





50000 


4 


01062 


CLAT 


CLA 


FRET»4 


00362 





76700 





00022 




ALS 


18 



INITIALIZE ERROR BOX 

SELECT DRUM 

LOCATE DRUM ADDRESS 

COPY N0« OF WORDS IN BLOCK 

SET INDEX REGISTERS 

COPY BLOCK 

COPY CHECK SUM 

COPY FIRST WORD OF NEXT BLOCK 

COMPUTE CHECKSUM 



TEST FOR FRET EMPTY 

IF EMPTY— PREVENT LOOKING AT IT 

GO TO MAKE UP PROBABILITIES 
COMPARE CHECKSUMS 

IF NOT ZERO— HAS BEEN AN ERROR 
SET DRUM ADDRESS FOR NEXT BLOCK 



TEST FOR END OF FRET 

STORE A TSX TO PREVENT READING 

IN MORE-THIS IS END OF TABLE 
RESTORE INDEX REGISTERS 

GO TO NEXT PART OF PROGRAM 

HAVE 5 TRIES AT READING BEEN MADE 
YES» GO TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 



TRY AGAIN 

NE PUTS THE CUMULATIVE PROBABILITIES INTO THE TRA 
THE FREQUENCY TABLE 

SET INDEX REGISTERS 
ADD LENGTH OF TABLE 

STORE FOR COMPARISON 
HAS END OF TABLE BEEN REACHED 
LOOK AT ENTRY IN BB TABLE 
GET ADDRESS IN TRA TABLE 
LOOK AT CODE FOR ENDING 
IS IT A PROBABILITY CASE 
YES» GET PROBABILITIES 
N0» GO TO NEXT BASIC BLOCK 
IS FORMULA NO. IN TRA TABLE THE 
SAME AS IN FRETCFRET HAS - SIGN 



F4431950 
F4431960 
F4431970 
F4431980 
F4431990 
F4432000 
F4432010 
F4432020 
F4432030 
F4432040 
F4432050 
F4432060 
F4432070 
F4432080 
F4432090 
F4432100 
F4432110 
F4432120 
F4432130 
F4432140 
F4432150 
F4432160 
F4432170 
F4432180 
F4432190 
F4432200 
F4432210 
F4432220 
F4432230 
F4432240 
F4432250 
F4432260 
F4432270 
F4432280 
F4432290 
F4432300 
F4432310 
F4432320 
F4432330 
F4432340 
F4432350 
F4432360 
F4432370 
F4432380 
F4432390 
F4432400 
F4432410 
F4432420 
F4432430 
F4432440 
F4432450 
F4432460 
F4432470 
JF4432480 



in 



U 



n 



00363 





40000 


1 


07773 




ADD 


TRATBLil 


00364 


-0 


10000 





00402 




TNZ 


NOQFD 


00365 


-2 


00001 


4 


00372 


14TIX 


TNX 


14LXD.4*1 


00366 





50000 


4 


01062 


CLAFN 


CLA 


FRET*4 


00367 


-0 


12000 





00360 




TMI 


13TXIN 


00370 





60100 


1 


07773 




STO 


TRATBL»1 


00371 


1 


00002 


1 


00365 




TXI 


14TIX.lt2 


00372 





50000 





00057 


14LXD 


CLA 


ERAS3N 


00373 


-0 


10000 





00377 




TNZ 


14CLA 


00374 





50000 





00402 




CLA 


NOQFD 


00375 





62100 





00357 




STA 


13TXIN-1 


00376 


1 


00001 


2 


00352 




TXI 


13TXH*2il 


00377 





50000 





00053 


14CLA 


CLA 


TRBCK 


00400 





62100 





00336 




STA 


12TRA 


00401 





02000 





00276 




TRA 


RDFRT 


00402 


-0 


12000 





00416 


NOQFD 


TMI 


NTENT 


00403 


2 


00001 


4 


00404 




TIX 


CLAQ»4»1 


00404 





50000 


4 


01062 


CLAQ 


CuA 


FRET*4 


00405 


-0 


12000 





00362 




TMI 


CLAT+1 


00406 


2 


00001 


4 


00404 




TIX 


CLAQ*' tl 


00407 





50000 





00057 




CLA 


ERAS3N 


00410 





10000 





00414 




TZE 


NDTBL 


00411 





50000 





00403 




CLA 


CLAQ-1 


00412 





62100 





00336 




STA 


12TRA 


00413 





02000 





00276 




TRA 


RDFRT 


00414 





50000 





00402 


NDTBL 


CLA 


NOQFD 


00415 





62100 





00357 




STA 


13TXIN-1 


00416 





50000 


1 


07771 


NTENT 


CLA 


TRATBL-2»1 


00417 


-0 


63400 


4 


00055 




SXD 


ERASING 


00420 


-0 


73400 


4 


00000 




PDX 


0*4 


00421 





50000 





00034 




CLA 


LD1N 


00422 





56000 





00033 




LDQ 


ZERO 


00423 





22100 


1 


07771 




DVP 


TRATBL-2»1 


00424 





76000 





00012 




DCT 




00425 





07400 


4 


00004 




TSX 


RDF0RTt4 


00426 


-0 


60000 





00056 




STQ 


ERAS2N 


00427 


-o 


75400 





00000 




PXD 


0*0 


00430 





40000 





00056 


15 ADD 


ADD 


ERAS2N 


00431 





60100 


1 


07773 




STO 


TRATBL»1 


00432 


-2 


00001 


4 


00434 




TNX 


15LXD»4»1 


00433 


1 


00002 


1 


00430 




TXI 


15ADD»1*2 


00434 


-0 


53400 


4 


00055 


15LXD 


LXD 


ERAS1N»4 


00435 





50000 





00040 




CLA 


ENDMKN 


00436 





60100 


1 


07773 




STO 


TRATBL»1 


00437 


1 


00001 


2 


00352 




TXI 


13TXH»2»1 



NO* NO FREQUENCY FOUND 

SET FOR NEXT WORD 

GET PROBABILITY FROM FRET 



F4432490 
F4432500 
F4432510 
F4432520 



SECTION 4 - PART 4 OF 6 

FORTRAN EDITOR INFORMAT 
MASTER RECORD CARD = 
ENTRY POINT = 42 
FIRST LOCATION = 33 



MINUS INDICATES NEXT ENTRY IN FRET F4432530 



F4432540 
F4432550 
F4432560 
F4432570 
F4432580 
F4432590 
F4432600 



PUT PROBABILITY IN TRA TABLE 
SET FOR NEXT ENTRY IN TRA 
TEST FOR END OF LAST BLOCK 

END OF TABLE-PREVENT FURTHER 
LOOKING AT FRET 

ALSO END OF ENTRY-LOOK AT NEXT BB. 

END OF BLOCK OF FRET— READ IN NEXT F4432610 

F4432620 
F4432630 
F4432640 
F4432650 
F4432660 
F4432670 
F4432680 



BLOCK* SETTING ADDRESS FOR 
RETURN 
FORM# NO. IN FRET IS LARGER* NOT 

IN FRET 
FORM. NO. SMALLER. TRY NEXT ENTRY 
LOOK AT NEXT WORD IN FRET 
- MEANS NEW ENTRY* COMPARE TO TRA 
KEEP LOOKING FOR BEG. OF NEXT ENTRYF4432690 
END OF BLOCK REACHED F4432700 

TEST FOR END OF TABLE F4432710 

END OF BLOCK ONLY-STORE RETURN F4432720 
ADDRESS AND GO TO READ F4432730 

IN NEXT BLOCK F4432740 

END OF TABLE-PREVENT FURTHER F4432750 
LOOKING AT FRET. F4432760 

NO ENTRY IN FRET— MAKE UP FREQS F4432770 
SAVE FRET ADDRESS F4432780 

PUT NO. OF BRANCHES IN INDEX F4432790 
PUT TOTAL PROBABILITY IN AC F4432800 
CLEAR MO F4432810 

DIVIDE BY NO. OF BRANCHES F4432820 

F4432830 
BAD DIVIDE F4432840 

STORE PROBABILITY IN AC F4432850 

CLEAR AC F4432860 

ADD PROB. OF BRANCH FOR CUMULATING F4432870 

F4432880 
F4432890 
F4432900 
F4432910 
F4432920 
F4432930 
F4432940 
F4432950 
F4432960 
F4440010 
F4440020 
F4440030 
F4440040 
F4440050 
F4440060 



PROBABILITY AND STORE 
IS THIS BASIC BLOCK DONE 
NO* DO NEXT BRANCH 
RESTORE INDEX 

STORE PROBABILITY IN LAST BRANCH 
DO NEXT BASK BLOCK. 



ION 
F0690000 



<ni 



J V 



LAST LOCATION = 161 





00033 




ORG 


27 

CONSTANTS AND VARIABLES 


00033 


00001 00000 


LD1P 




0*0*1 


00034 


77777 00000 


DECMKP 




0»0*-l 


000 3 5 


77777 77777 


ADMK 




-1»0*-1 


00036 


+100000000000 


BT2MK 


OCT 


100000000000 


00037 


00000 07640 


VISITS 


HTR 


4000 


00040 


+321702174347 


RAND1 


OCT 


321702174347 


00041 


+0O0O00000001 


RAND2 


OCT 


1 



00042 


-0 


53400 


1 


00031 


SIMUL 


LXD 


LAltl 


00043 


-0 


50000 





07777 




CAL 


TTB0X= 


00044 





77100 





00014 




ARS 


12 


00045 





60100 





00037 




STO 


VISITS 


00046 





50000 





00037 


INTOBB 


CLA 


VISITS 


00047 





40200 





00031 




SUB 


LAI 


00050 


-0 


12000 





00160 




TMI 


READ5 


00051 





60100 





00037 




STO 


VISITS 


00052 





50000 


1 


02413 




CLA 


B8TABL»1 


00053 





76700 





00022 




ALS 


18 


00054 





62200 





00060 




STD 


1TXL 


00055 





50000 


1 


02412 




CLA 


BBTABL-1»1 


00056 





73400 


2 


00000 




PAX 


0*2 


00057 





50000 


2 


01063 


1CLA 


CLA 


SETTAB+1.2 


00060 


-3 


00000 


2 


00065 


1TXL 


TXL 


0N»2 


00061 


-0 


73400 


4 


00000 




PDX 


0*4 


00062 





76700 





00022 




ALS 


18 


00063 





62200 


4 


00000 




STD 


0*4 


00064 


1 


77777 


2 


00057 




TXI 


1CLA»2»-1 


00065 


-0 


50000 


1 


02413 


ON 


CAL 


BBTABL»1 


00066 


-0 


73400 


2 


00000 




PDX 


0*2 


00067 





40200 





00036 




SUB 


BT2MK 


00070 


-0 


12000 





00132 




TMI 


DOW IF 


00071 





40200 





00036 




SUB 


BT2MK 


00072 


-0 


12000 





00122 




TMI 


MSECSE 


00073 





40200 





00036 




SUB 


BT2MK 


00074 


-0 


12000 





00141 




TMI 


PRBYCS 


00075 





40200 





00036 




SUB 


BT2MK 


00076 


-0 


12000 





00147 




TMI 


ENTERP 


00077 





40200 





00036 




SUB 


BT2MK 


00100 


-0 


12000 





00140 




TMI 


TROUT 


00101 





40200 





00036 




SUB 


BT2MK 


00102 


-0 


12000 





00105 




TMI 


GOTONP 


00103 


-0 


53400 


1 


00031 


STOPCS 


LXD 


LA1*1 


00104 





02000 





00046 




TRA 


INTOBB 


00105 





50000 


2 


07773 


GOTONP 


CLA 


TRATBL»2 


00106 


-0 


73400 


4 


00000 




PDX 


0*4 


00107 





50000 


1 


02412 




CLA 


BBTABL-1*! 



COUNTER FOR NUMBER OF VISITS 



THIS ROUTINE SIMULATES THE FLOW OF THE COMPILED PROGRAM* 
KEEPING TRACK OF THE NUMBER OF TIMES EACH BRANCH IS TAKEN AT 
EACH BRANCH POINT 

PUT ZERO IN I R A 



NUMBER OF STEPS 



F4440070 
F4440080 
F4440090 
F4440100 
F4440110 
F4440120 
F4440130 
F4440140 
F4440150 
F4440160 
F4440170 
F4440180 
F4440190 
F4440200 
F4440210 
F4440220 
F4440230 
F4440240 
IS NUMBER OF 2-WORDF4440250 



ENTRIES IN TRATBL TIMES 128 
COUNT NO* OF BASIC BLOCKS VISITED 

HAVE FINISHED SIMULATION 

GET ADDRESS OF SETS FOR THIS BB 



GET FIRST ADDRESS OF SETS FOR B8 

LOOK AT ENTRY IN SET TABLE 

NO MORE SETS 

PUT ADDRESS INTO INDEX 

DO THE SET 
DO NEXT SET 

PUT TRATBL ADDRESS IN INDEX 

CODE IS 000* DO WITH IF 

CODE IS 001— MSE CASE 

CODE IS 010 — PROBABILITY 

CODE IS Oil— CERTAINTY 

CODE IS 100 — DO NO IF 

CODE IS 101-GO TO N CASE 
-10 IS A STOP-GO TO BB ZERO 

THIS IS A GO TO N — GET ADDRESS OF 

N-CELL AND PUT IN INDEX 
SAVE END OF ENTRY IN TRA TABLE 



F4440260 
F4440270 
F4440280 
F4440290 
F4440300 
F4440310 
F4440320 
F4440330 
F4440340 
F4440350 
F4440360 
F4440370 
F4440380 
F4440390 
F4440400 
F4440410 
F4440420 
F4440430 
F4440440 
F4440450 
F4440460 
F4440470 
F4440480 
F444Q49Q 
F4440500 
F4440510 
F4440520 
F4440530 
F4440540 
F4440550 
F4440560 
F4440570 
F4440580 
F4440590 
F4440600 



l t V 



u 



00110 





62200 





00116 




STD 


TXLN 


00111 





50000 


2 


07772 


CLANT 


CLA 


TRATBL-1»2 


00112 


-0 


32000 





00034 




ANA 


DECMKP 


00113 





40200 


4 


01114 




SUB 


NLIST»4 


00114 





10000 





00147 




T2E 


ENTERP 


00115 


1 


00002 


2 


00116 




TXI 


TXLN»2»2 


00116 


-3 


00000 


2 


00111 


TXLN 


TXL 


CLANT»2 


00117 


-0 


50000 


1 


02413 




CAL 


BBTABL»1 


00120 


-0 


73400 


2 


00000 




PDX 


0*2 


00121 





02000 





00147 




TRA 


ENTERP 


00122 





50000 


2 


07773 


MSECSE 


CLA 


TRATBL*2 


00123 


-0 


73400 


4 


00000 




PDX 


0*4 


00124 





50000 


4 


01260 




CLA 


SNSLTt4 


00125 





10000 





00131 




TZE 


MSETXI 


00126 


-0 


75400 





00000 




PXD 


0*0 


00127 





60100 


4 


01260 




STO 


SNSLT*4 


00130 





02000 





00147 




TRA 


ENTERP 


00131 


1 


00002 


2 


00147 


MSETXI 


TXI 


ENTERP*2»2 


00132 





50000 


2 


07771 


DOW IF 


CLA 


TRATBL-2>2 


00133 





40000 





00033 




ADD 


LD1P 


00134 





56000 


2 


07773 




LDQ 


TRATBL»2 


00135 





04000 





00140 




TLQ 


TROUT 


00136 





62200 


2 


07771 




STD 


TRATBL-2»2 


00137 





02000 





00147 




TRA 


ENTERP 


00140 


1 


00002 


2 


00147 


TROUT 


TXI 


ENTERP»2»2 


00141 


G 


56000 





00040 


PRBYCS 


LDQ 


RAND1 


00142 





20000 





00041 




MPY 


RAND2 


00143 


-0 


60000 





00041 




STQ 


RAND2 


00144 





50000 


2 


07773 


COMP 


CLA 


TRATBL»2 


00145 





04000 





00147 




TLQ 


ENTERP 


00146 


1 


00002 


2 


00144 




TXI 


COMP»2»2 


00147 





50000 


2 


07772 


ENTERP 


CLA 


TRATBL-1»2 


00150 


-o 


73400 


1 


00000 




PDX 


0*1 


00151 





40000 





00031 




ADD 


LAI 


00152 





62100 


2 


07772 




STA 


TRATBL-1»2 


00153 





40200 


2 


07772 




SUB 


TRATBL-1*2 


00154 





10000 





00046 




TZE 


INTOBB 


00155 





50000 





00035 


OVRFLO 


CLA 


ADMK 


00 1 56 





62100 


2 


07772 




STA 


TRATBL-1»2 


00157 





02000 





00046 




TRA 


INTOBB 


00160 





76200 





00221 


READ5 


RDS 


SYSTAP 


00161 





02000 





00004 




TRA 


RDFORT 
SECTION 4 



F4440610 
LOOK AT ENTRY IN TRAT F4440620 

AND OUT ALL BUT VALUE FOR N IN TRATF4440630 



- PART 5 OF 6 



IS THIS ENTRY FOR CURRENT VALUE 
YES* ENTER 

NO* LOOK AT NEXT ENTRY IN TRAT 
TEST FOR N NOT SET 



ENTER .TRA TO FIRST BRANCH GIVEN 



LIGHT CELL AND PUT IN INDEX 
IS LIGHT ON OR OFF 
OFF— TAKE SECOND BRANCH 
ON — TURN OFF* TAKE FIRST BRANCH 



F4440640 
F4440650 
F4440660 
F4440670 
F4440680 
F4440690 
F4440700 
THIS" is' A MSE-HSET ADDRESS OF SENSEF4440710 

F4440720 
F4440730 
F4440740 
F4440750 
F4440760 
F4440770 
F4440780 
F4440790 
F4440800 
F4440810 
F4440820 
F4440830 
F44^0840 
F4440850 
F4440860 
F4440870 
F4440880 
F4440890 
F4440900 
F4440910 
F4440920 



ENTER TRANSFER 

ENTER TRANSFER 

THIS IS A DO WITH AN IF 

ADD ONE TO LOOP COUNT 

COMPARE TO NO. OF TIMES IN LOOP 

TRANSFER OUT — LOOP DONE 

LOOP NOT DONE-STORE NEW COUNT 

TAKE TRANSFER BACK 

TAKE TRANSFER OUT 

THIS IS A PROBABILITY CASE 

GENERATE A RANDOM NUMBER BY 

MULTIPLIC. AND SAVE THE RESULT 
COMPARE TO CUMULATIVE PROB IN TRA 
FOUND* TAKE TRANSFER 
NOT FOUND— LOOK AT NEXT BRANCH 
THIS IS THE BRANCH TO BE TAKEN 
PUT NO. OF NEXT BASIC BLOCK IN IR AF4440930 
ADD 1 TO COUNTER FOR THIS TRANSFER F4440940 



STORE COUNT 

TEST FOR OVERFLOW 

NO OVERFLOW* DO NEXT BB 

STORE MAXIMUM COUNT 



FORTRAN EDITOR INFORMAT 
MASTER RECORD CARD = 
ENTRY POINT = 42 
FIRST LOCATION - 33 
LAST LOCATION = 205 



ION 
F0710000 



00033 



ORG 27 



F4440950 
F4440960 
F4440970 
F4440980 
F4440990 
F4441000 
F4441010 
F4441020 
F4441030 
F4441040 
F4450010 
F4450020 
F4450030 
F4450040 
F4450050 
F4450060 
F4450070 
F4450080 
F4450090 
F4450100 



i/r 



CONSTANTS AND VARIABLES 



00033 


+000000700000 


TGMSK 


OCT 


700000 


00034 


+000000777777 


RTMSK 


OCT 


777777 


00035 


=300000000000 


CODMK 


OCT 


-300000000000 


00036 


00000 


03270 


DOYY 




DOADDR 


00037 


00000 


00000 


MPYR1 






00040 


00000 


00000 


MPYR2 






00041 


00000 


00000 


BBBOX 




THIS ROUTINE PUTS 


00042 


50000 


00032 


RDDOS 


CLA 


MINUS4 


00043 


60100 


00030 




STO 


ERRBX 


00044 


76200 


00301 


RDSDOL 


RDS 


DODRUM 


00045 


-0 53400 3 


07775 




LXD 


DOB0X=»3 


00046 


46000 


00036 




LDA 


DOYY 


00047 


-3 00000 1 


00204 




TXL 


READ6»1»0 


00050 


70000 1 


01120 




CPY 


DOBLOKtl 


00051 


2 00001 1 


00050 


SELF32 


TIX 


SELF32-ltltl 


00052 


70000 


00040 




CPY 


MPYR2 


00053 


-0 75400 


00000 




PXD 




00054 


36100 2 


01120 




*CL 


D0BL0K»2 


00055 


2 O00O1 2 


00054 


SELF33 


TIX 


S£LF33-1>2»1 


00056 


60200 


00037 




SLW 


MPYR1 


00057 


50000 


00037 




CLA 


MPYR1 


00060 


40200 


00040 




SUB 


MPYR2 


00061 


10000 


0007O 




TZE 


FXDOS 


00062 


50000 


00030 




CLA 


ERRBX 


00063 


-0 12000 


00065 


SKIP13 


TMI 


SKIP13+2 


00064 


07400 4 


00004 




TSX 


RDF0RT»4 


00065 


40000 


00031 




ADD 


LAI 


00066 


60100 


00030 




STO 


ERRBX 


00067 


02000 


00044 




TRA 


RDSDOL 

THIS ROUTINE FIXES 
WITHOUT IFS 


00070 


-0 75400 


00000 


FXDOS 


PXD 




00071 


60100 2 


00443 


ZSTO 


STO 


LCNTR»2 


00072 


3 00226 2 


00074 




TXH 


ZLXD»2«150 


00073 


1 00001 2 


00071 




TXI 


ZST0»2»1 


00074 


-0 53400 4 


00031 


ZLXD 


LXD 


LA1»4 


00075 


53400 2 


00031 




LXA 


LA1.2 


00076 


50000 


07775 




CLA 


D0B0X= 


0OO77 


62200 


00203 




STD 


9TSTN0 


00100 


50000 2 


01117 


LOOK DO 


CLA 


D0BL0K-W2 


00101 


-0 32000 


00033 




ANA 


TGMSK 


00102 


1 00002 2 


00103 


4TXI 


TXI 


4TXI+1»2»2 


00103 


-0 10000 


00203 




TNZ 


9TSTND 


00104 


50000 


00031 




CLA 


LAI 


00105 


60100 4 


00443 




STO 


LCNTR»4 


00106 


1 00001 4 


00107 




TXI 


4CLA»4»1 


00107 


50000 2 


01121 


4CLA 


CLA 


D0BL0IC+1*2 


00110 


62200 


00041 




STD 


BBBOX 


00111 


50000 2 


01122 




CLA 


DOBLOK+2>2 


00112 


62100 4 


00443 




STA 


LCNTR»4 



THE DO LIST INTO STORAGE FROM THE DRUM 
INITIALIZE ERROR BOX 



IF NO DOS-GO TO TAG PASS 



F4450110 
F4450120 
F4450130 
F4450140 
F4450150 
F4450160 
F4450170 
F4450180 
F4450190 
F4450200 
F4450210 
F4450220 
F4450230 
F4450240 
F4450250 
F4450260 
F4450270 
F4450280 
F4450290 
F4450300 
F4450310 
F4450320 
F4450330 
F4450340 
F4450350 
F 4450 360 
F4450370 
F4450380 
F4450390 
F4450400 
F4450410 
F4450420 
F4450*30 
F4450*^O 
F445Q4&0 
F4450460 
F4450470 
F4450480 
F4450490 
F4450500 
F4450510 
F4450520 
F445O530 
F4450540 
F4450550 
F4450560 
F4450S70 
F4450580 
F4450590 
F4450600 
F4450610 
F4450620 
F4450630 
STORE NO. TIMES IN LOOP IN COUNTERSF4450640 



HAVE 5 TRIES AT READING BEEN MADE 
YES« GO TO DIAGNOSTIC ROUTINE 
NOt TRY READING AGAIN 



THE COUNTERS FOR BASIC BLOCKS IN DOS 



CLEAR L-COUNTERS TO INITIALIZE 



SET 
ONE 
PUT 



INDEX REGISTER — 

IN B 

LENGTH OF TNX TABLE 



IN IR C 



IN 9TSTND 



LOOK AT ENTRY IN DO LIST 

DOES THIS DO HAVE AN IF 

SET FOR NEXT ENTRY IN DO LIST 

DO HAS IF-LOOK AT NEXT 

NO IF-START FIXING COUNTERS 

PUT ONE IN COUNTER ZERO 



STORE NO. OF THIS BB( 



u 



00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
00174 
00175 
00176 
00177 
00200 



50000 
40200 
10000 
00001 
00002 
50000 
62100 
56000 
20000 
60000 
02OO0 
53400 
50000 
73400 
32000 
10000 
50000 
32000 
60100 
56000 
20000 
60000 
50000 
34000 
50000 
76100 
62100 
53400 
00001 
75400 
62200 
40200 
10000 
02000 
50000 
32000 
60100 
56000 
20000 
60000 
56000 
20000 
60000 
50000 
34000 
50000 
76100 
62100 
50200 
40000 
34000 
50000 
76100 
62100 



2 01117 NTHRDO CLA D0BL0K-1»2 

2 01121 SUB D0BL0K+1»2 

00126 TNZ ENDBBQ 
4 00117 BE6D0 TXI CLAN0-1*4»1 

2 00120 TXI CLANO»2»2 
2 01122 CLANO CLA DOBLOK+2»2 

4 00443 STA LCNTRt4 • 

4 00443 LDQ LCNTR»4 

4 00444 MPY LCNTR+lt4 

4 00443 STQ LCNTR.4 

00113 TRA NTHRDO 

1 00041 ENDBBQ LXD BBBOXil 

1 02413 CLA BBTABLtl 

1 00000 POX Otl 

00035 ANA CODMK 

00155 TZE ENDDO 

1 07772 CLA TRATBL-ltl 
00034 ANA RTMSK 

O 00037 STO MPYR1 

00037 LDQ MPYR1 

4 00443 MPY LCNTR.4 

00037 STQ MPYR1 

00037 CLA MPYR1 

00034 CAS RTMSK 

00034 CLA RTMSK 

00000 NOP 

1 07772 STA TRATBL-1.1 
1 00041 6LXD LXD BBBOX.l 

1 00150 TXI NXTBB.ltl 

1 00000 NXTBB PXD 0»1 

000M STD BBBOX 

2 01117 SUB D0BL0K-1#2 
00 116 TZE BEGDO 

00 lib TRA ENDBBQ 

1 07770 ENDDO CLA TRATBL-3.1 
00034 ANA RTMSK 

00037 STO MPYR1 

00037 LDQ MPYR1 

4 00443 MPY LCNTR»4 

00040 STQ MPYR2 

00037 LDQ MPYR1 

4 00444 MPY LCNTR+lf4 

00037 STQ MPYR1 

00037 CLA MPYR1 

00034 CAS RTMSK 

00034 CLA RTMSK 

00000 NOP 

1 07770 STA TRATBL-3.1 
00037 CLS MPYR1 

00040 ADD MPYR2 

00034 CAS RTMSK 

00034 CLA RTMSK 

00000 NOP 

1 07772 STA TRATBL-1.1 



IS THERE ANOTHER TXL TO THIS ADDR. F4450650 

F4450660 

N0» LOOK AT END OF THIS B.B. 
YES. INCREASE L BOX BY 1 
SET FOR NEXT ENTRY IN TNX LIST 
GET NO. OF TIMES IN THIS DO 



F4450670 
F4450680 
F4450690 
F4450700 
F4450710 
F4450720 
F4450730 
F4450740 



MULTIPLY NO OF TIMES IN THIS DO 
BY NO. OF TIMES IN OUTER DOS 
STORE IN COUNTER FOR THIS DO 
SE€ IF TttERf IS ANOTHER TNX TO THISF4450750 
THIS IS END OF BB IN DO WITHOUT IF F4450760 
LOOK AT ENTRY ON BB TABLE 
GET ADDRESS IN TRA TABLE 
LOOK AT ENDING CODE 
ZERO INDICATES DO ENDING 
A CERTAINTY CASE— LOOK AT TRATBL 
GET COUNTER FROM TRA TABLE 



F4450770 
F4450780 
F4450790 
F4450800 
F4450810 
F4450820 
F4450830 

MULTIPLY COUNTER BY NUMBER OF TIMESF4450840 
THIS LOOP IS DONE F4450850 

F4450860 
F4450870 
F4450880 
F4450890 
F4450900 
F4450910 
F4450920 
DOF4450930 
F4450940 
F4450950 
F4450960 
F4450970 
F4450980 
DO WITHOUT IF F4450990 



TEST FOR COUNTER OVERFLOW 
COUNTER HAS OVERFLOWED 
NO OVERFLOW 
PUT ALL ONES IN COUNTER 

SET FOR NEXT BB — DOES IT BEGIN A 
LOOK AT NEXT BB 
DOES THIS BB START A DO 
COMPARE TO DO LIST 



THIS IS THE END OF A 



MULTIPLY COUNTER BY TOTAL NO OF 

TIMES IN LOOP 
STORE NO IN MPYR2 
MULTIPLY COUNTER BY NO TIME DO IS 

STARTEO TO GET COUNTER OUT 



F4451000 
F4451010 
F4451020 
F4451030 
F4451040 
F4451050 
F4451060 
F4451070 
F4451080 
F4451090 



TEST FOR COUNTER OVERFLOW 

COUNTER HAS OVERFLOWED-USE MAX. N0.F4451100 



NO OVERFLOW 

STORE NO TIMES OUT IN COUNTER OUT 



F4451110 
F4451120 
F4451130 
F4451140 
TEST FOR COUNTER OVERFLOW F4451150 

COUNTER HAS OVERFLOWED-USE MAX. N0.F4451160 
NO OVERFLOW F4451170 

STORE NO TIMES BACK IN COUNT. BACK F4451180 



■/?; 



3 V 



00201 1 77777 4 00202 TXI 9TXLf4t-l 

00202 3 00000 4 00146 9TXL TXH 6LXD.4.0 

00203 -3 00000 2 00100 9TSTND TXL L00KD0»2 

00204 76200 00221 READ6 RDS SYSTAP 

00205 02000 00004 TRA RDFuRT 



DECREASE LEVEL COUNTER FOR DO 
IS THIS THE END OF OUTER DO 
YES* IS IT END OF PROBLEM 

YES* GO TO NEXT ROUTINE 



00033 



SECTION 4 - PART 6 OF 6 

FORTRAN EDITOR INFORMATION 

MASTER RECORD CARD = F0730000 
ENTRY POINT = 100 
FIRST LOCATION = 33 
LAST LOCATION « 1021 



ORG 27 

CONSTANTS AND VARIABLES 



00033 


00000 


00000 


LOR 








00034 


00000 


77777 


LCI 




-1 




00035 


00000 


00005 


L5 




5 




00036 


00000 


00006 


L6R 




6 




00037 


00000 


00010 


LS 




8 




00040 


00000 


03773 


L2043 




2043 




00041 


00000 


03777 


L2047 




2047 




00042 


00000 


04000 


L2048 




2048 




00043 


00001 


00000 


LD1R 




0»Gtl 




00044 


+000000777770 


STMSK 


OCT 


777770 




00045 


+000000777777 


TAGMK 


OCT 


777777 




00046 


+000033000000 


TMARK 


OCT 


33000000 




00047 


+077777000000 


DECMKR 


OCT 


77777000000 




00050 


+037777037777 


MASK 


OCT 


37777037777 




00051 


+377770000000 


140NES 


OCT 


377770000000 




00052 


00017 


00000 


LZTAG 




0»0#ZT4G 
OPERATION CODES OF 


TYPES OF REFERENCES 


00053 


+036721000000 




OCT 


36721000000 


LXA 


00054 


+036731000000 




OCT 


36731000000 


TXI 


00055 


+033167000000 




OCT 


33167000000 


TIX 


00056 


+036747000000 




OCT 


36747000000 


LXP 


00057 


+042524000000 




OCT 


42524000000 


DED 


00060 


+036724000000 




OCT 


36724000000 


LXD 


00061 


+072167000000 




OCT 


72167000000 


PAX 




■ n *?*> /. £.t t\r\f\i 




LCOPS 


OCT 


72467000000 


PDX 


00062 


+vfi46rtfUwww 




00063 


00000 


02260 


BBLYR 




BBLADO. 




00064 


00000 


00000 


BBTY 








00065 


76600 


00301 


LA301 


WDR 


1 




00066 


02000 


00575 


LTRND 


TRA 


NDDR 




00067 


00000 


00000 


ERAS1R 








00070 


00000 


00000 


ERAS2R 








00071 


00000 


00001 


IINBX 




1 




00072 


00000 


00000 


INSX 








00073 


-0 00001 


00000 


TGPBOX 


MZE 


0*0*1 




00074 


00114 


00000 


BLKNO 




0*0*76 




00075 


00000 


00000 


BLKSIZ 






LENGTH OF BLO 



DONE F4451190 
F4451200 
F4451210 
F4451220 
F4451230 
F4451240 
F4451250 
F4460010 
F4460020 
F4460030 
F4460040 
F4460050 
F4460060 
F4460070 
F4460080 
F4460090 
F4460100 
F4460110 
F4460120 
F4460130 
F4460140 
F4460150 
F4460160 
F4460170 
F4460180 
F4460190 
F4460200 
F4460210 
F4460220 
F4460230 
F4460240 
F4460250 
F4460260 
F4460270 
F4460280 
F4460290 
F4460300 
F4460310 
F4460320 
F4460330 
F4460340 
F4460350 
F446O360 
F4460370 
F4460380 
F4460390 
F4460400 
F44604I0 
F4460420 
F4460430 
F4460440 
F4460450 
F4460460 
F4460470 



ifl* 



n 



00076 





00000 





00000 


LENGTH 






00077 





00674 





00000 


BLKMAX 




OfOfBBSIZE 

THIS ROUTINE ALTERS 
ON THE DRUM. 


00100 





77200 





00224 


START 


REW 


INSTTP 


00101 





50000 





07777 




CLA 


TTBOX= 


00102 


-0 


73400 


1 


00000 




PDX 


Otl 


00103 


3 


00000 


1 


00111 




TXH 


ISPRED»ltO 


00104 





60100 





07776 


NOPRED 


STO 


PREDBX 


O01O& 





60100 





07775 




5TG 


SUCCBX 


00106 





62100 





02412 




STA 


BBTABL-1 


00107 





62100 





02413 




STA 


BBTABL 


00110 





02000 





00234 




TRA 


ROBBL 


00111 





77100 





00023 


ISPRED 


ARS 


19 


00112 





62100 





00126 




STA 


TSX+1 


00113 





62100 





00217 




STA 


TSX2+1 


00114 





56000 


1 


07774 


1LDQ 


LOQ 


PRED+lfl 


00115 





50000 


1 


07774 




CLA 


PRED+lfl 


00116 





76700 





00003 




ALS 


3 


00117 


-0 


76300 





00022 




LGL 


18 


00120 


-0 


76000 





00001 




PBT 




00121 





02000 





00123 




TRA 


1ST0 


00122 


-0 


50100 





00051 




ORA 


140NES 


00123 





60100 


1 


07775 


1ST0 


STO 


PRED+2»1 


00124 


2 


00002 


1 


00114 




TIX 


1LDQ»1»2 


00125 





07400 


4 


00633 


TSX 


TSX 


DRUM«J»4 


00126 





00000 





00000 




HTR 




00127 





00000 





07773 




HTR 


PRED 


00130 





00000 





00000 




HTR 





00131 





50000 





00130 




CLA 


TSX+3 


00132 





60100 





00221 




STO 


TSX2+3 


00133 





60100 





07775 




STO 


SUCCBX 

THIS PUTS THE BASIC 
TRA TABLE 


00134 





50000 





07774 




CLA 


BBOX.= 


00135 





40200 





00043 




SUB 


LD1R 


00136 





62200 





00151 




STO 


NBOXR 


00137 





53400 


2 


00033 




LXA 


L0Rf2 


00140 


-0 


53400 


1 


00043 




LXD 


LD1R»1 


00141 





50000 


2 


02412 


CLABB 


CLA 


BBTABL-1. 2 


00142 





62200 





00145 




STD 


TXBB 


00143 


-0 


75400 


2 


00000 




PXD 


Ot 2 


00144 





77100 





00022 




ARS 


18 


00145 


3 


00000 


1 


00150 


TXBB 


TXH 


NBOXR-lf 1 


00146 





62100 


1 


07774 


1STD 


STA 


PRED+lfl 


00147 


1 


00002 


1 


00145 




TXI 


TXBBflt2 


00150 


1 


00001 


2 


00151 




TXI 


NB0XRf2*l 


00151 


-3 


00000 


2 


00141 


NBOXR 


TXL 


CLABB i 2 



THE TRATBL INTO SUCC TABLE AND PUTS IT 



PUT LENGTH OF TABLE IN INDEX 



THERE IS NO PRED TABLE-SPACE OVER 



TOTAL LENGTH OF TABLE LEFT TO STOREF4460480 
BB BLOCK SIZE IN CS F4460490 

F4460500 

F4460510 

F4460520 

F4460530 

F4460540 

F4460550 

F4460560 

F4460570 

F446058O 

F4460590 

F4460600 

F4460610 

F4460620 

STORE LENGTH FOR PUTTING SUCCESSOR F4460630 

AND PREDECESSOR TABLES ON DRUM F4460640 

HOVE SUCCESSOR ADDRESS FROM DECR. 

TO ADDRESS PART OF ENTRY WORD 

AND COUNTER FROM ADDRESS TO 

BITS 1-14 

TEST FOR OVERFLOW 

NO OVERFLOW 



F4460650 
F4460660 
F4460670 
F4460680 
F4460690 
F4460700 



OVERFLOW-ENTER HIGHEST POSSIBLE NO F4460710 



STORE SHIFTED ENTRY 
DO NEXT ENTRY 

NUMBER OF ENTRIES ON TABLE 

CORE MEMORY ADDRESS OF LAST WORD 

DRUM ADDRESS AUTOMATICALLY SET FOR F4460770 



F4460720 
F4460730 
F4*»60740 
F4460750 
F4460760 



THIS PART SORTS THE 
PREDECESSOR TABLE 



NEXT TRY 



BLOCK. NUMBER OF THE PREDECESSOR IN THE 



ONE INTO INDEX A 

GET ADDRESS IN TRA TABLE 

PUT PRED NO IN TRA ENTRY 

TEST FOR END OF TABLE 

SET FOR NEXT TRA 

SET FOR NEXT BASIC BLOCK 

TEST FOR LAST BB 

ALTERED SUCCESSOR TABLE INTO THE 



F446C780 
F4460 790 
F44e0800 
F4460810 
F4460820 
F4460830 
F4460840 
F4460850 
F4460860 
F4460870 
F4460880 
F4460890 
F4460900 
F4460910 
F4460920 
F4460930 
F4460940 
F4460950 
F4460960 
F4460970 
F4460980 
F4460990 
F4461000 
F4461010 



Hfl 





00152 


1 


77775 


1 


00153 


2TXI 


TXI 


2TXI+l»l.-3 




00153 


-3 


00000 


1 


00177 




TXL 


PRDBB»1»0 




00154 


-0 


75400 


i 


00000 


LXABB 


PXD 


0*1 




00155 


-0 


73400 


2 


00000 




PDX 


0*2 




00156 





50000 


1 


07772 




CLA 


PRED~1»1 




00157 





56000 


1 


07773 




LDQ 


PRED»1 




00160 





34000 


2 


07774 


2CAS 


CAS 


PRED+1»2 




00161 





02000 





00173 




TRA 


2TIX 




00162 





02000 





00173 




TRA 


2TIX 




00163 


-0 


60000 





00067 




STQ 


ERAS1R 




00164 





56000 


2 


07774 




LDQ 


PRED+lt2 




00165 





60100 


2 


07774 




STO 


PRED+1»2 




00166 





50000 





00067 




CLA 


ERAS1R 




00167 


-0 


60000 





00067 




STQ 


ERAS1R 




00170 





56000 


2 


07775 




LDQ 


PRED+2»2 




00171 





60100 


2 


07775 




STO 


PRED+2>2 




00172 





50000 





00067 




CLA 


ERAS1R 




00173 


2 


00002 


2 


00160 


2TIX 


TIX 


2CAS#2f2 




00174 





60100 


1 


07772 




STO 


PRED-1»1 




00175 


-0 


60000 


1 


07773 




STQ 


PREDtl 




00176 


2 


00002 


1 


00154 




TIX 


LXABBtl»2 

THIS PUTS T 
INTO THE BA 




00177 


-0 


53400 


2 


07774 


PRDB8 


LXD 


BB0X.=»2 




00200 


-0 


53400 


5 


07777 




LXD 


TTB0X=»5 




00201 


-0 


75400 


4 


00000 


3PXD 


PXD 


0*4 




00202 





77100 





00022 




ARS 


18 




00203 





62100 


2 


02413 




STA 


BBTABL»2 




00204 


1 


77776 


4 


00205 


3TXI 


TXI 


3TXI+li4t-2 




00205 


-2 


00001 


2 


00214 




TNX 


3ENDf2»l 




00206 


-0 


75400 


2 


00000 




PXD 


0«2 




00207 





34000 


4 


07774 


CAS 


CAS 


PR£D+1»4 




00210 





02000 





00201 




TRA 


3PXD 




00211 





76100 





00000 




NOP 






00212 


2 


00002 


4 


00207 




TIX 


CAS»4«2 




00213 





62100 





02412 




STA 


BBTABL-1 




00214 


-0 


75400 





00000 


3END 


PXD 


0>0 




00215 





62100 





02413 




STA 


BBTABL 




00216 





07400 


4 


00633 


TSX2 


TSX 


DRUM«Jt4 


A 


00217 





00000 





00000 




HTR 






00220 





00000 





07773 




HTR 


PRED 


A 


00221 





00000 





00000 




HTK 






00222 





50000 





00221 




CLA 


TSX2+3 




00223 





60100 





07776 




STO 


PREDBX 



LAST ADDRESS IN PRED INTO I R A 
TEST FOR ONLY ONE ENTRY IN PRED 



F4461020 
F4461030 
F 446 1040 
F4461050 
TAKE ENTRIES FOR COMPARISON F4461060 
FIND LARGEST ELEMENT LEFT IN TABLE F4461070 

F446108C 
F4461090 
F4461100 
F4461110 
EXCHANGE ENTRIES— STORAGE IS GREATF4461 120 

F4461130 
F4461140 
F4461150 
F4461160 
F4461170 
F4461180 
F4461190 
F4461200 
F4461210 
F4461220 
F4461230 
F4461240 
F4461250 
F4461260 
F4461270 
F4461280 
F4461290 
F4461300 
F4461310 
F4461320 



TEST FOR END OF TABLE 

THIS IS LARGEST ENTRY NOT SORTED 

YET» STORE AND CONTINUE SORT 
HAS ENTIRE TABLE BEEN SORTED YET 

r ENTRIES IN THE PREDECESSOR TABLE 

PUT LAST BB ADDRESS INTO IR B 

PUT LAST PRED ADDRESS INTO A AND < 

NEW BB 



PUT PRED ADDR IN BB TABLE 

SET FOR NEXT ENTRY IN BB TABLE 

IS THIS THE END OF THE TABLE 

PUT NEW BB NO IN AC FOR COMPARISON F4461330 

COMPARE BB NO IN PRED TABLE TO BB F4461340 

NO IN AC 
EQUALITY NOT POSSIBLE 



00224 


-0 


53400 


2 


07774 


SHFTBB 


LXD 


00225 


1 


00001 


2 


00226 




TXI 


00226 


-0 


50000 


2 


02414 


CAL4 


CAL 


00227 


-0 


32000 





00050 




ANA 


00230 





77100 





00001 




ARS 



PUT ZERO AS PRED FOR BB1 

PUT ZERO AS PRED ADDR INTO TABLE 

FOR BB ZERO 
PUT PRED TABLE ON DRUM 

CORE MEMORY ADDRESS OF LAST WORD 
—DRUM ADORESS 

SAVE DRUM ADDRESS 



THIS ROUTINE ADJUSTS THE ADDRESSES IN THE BB TABLE TO 

CORRESPOND TO ONE WORD ENTRIES IN THE PREDECESSOR AND 

SUCCESSOR TABLES 

BBQX.=t2 SET INDEX 

CAL4»2tl 

BBTABL+1»2 

MASK 

1 



F4461350 
F4461360 
F4461370 
F4461380 
F4461390 
F4461400 
F4461410 
F4461420 
F4461430 
F 4*61440 
F4461450 
F4461460 
F4461470 
F 446 1480 
F4461490 
F4461500 
F4461510 
F4461520 
F 4461530 
F4461540 
F4461550 



00231 





62200 


2 


02414 




STD 


BBTABL+1»2 


00232 





62100 


2 


02414 




STA 


BBTABL+1»2 


00233 


2 


00001 


2 


00226 




TIX 


CAL4,2»1 
THIS ROUTIN 


00234 





50000 





00032 


RDBBL 


CLA 


MINUS4 


00235 





02000 





00260 




TRA 


SKIP14+3 


00236 





76200 





00303 


BROS 


RDS 


BBLDRM 


00237 





46000 





00063 




IDA 


BBLYR 


00240 


-o 


53400 


3 


07774 




LXD 


BB0X.=»3 


00241 





70000 


1 


07773 


BCPY 


CPY 


BBLIST»1 


00242 


2 


00001 


1 


00241 




TIX 


BCPY»1»1 


00243 





70000 





07773 




CPY 


BBLIST 


00244 





70000 





00067 




CPY 


ERAS1R 


00245 





36100 


2 


07773 


BACL 


ACL 


BBLIST»2 


00246 


2 


00001 


2 


00245 




TIX 


BACL»2»1 


00247 





36100 





07773 




ACL 


BBLIST 


00250 





60200 





00070 




SLW 


ERAS2R 


00251 





50000 





00070 




CLA 


ERAS2R 


00252 





40200 





00067 




SUB 


ERAS1R 


00253 





10000 





00263 




TZE 


TAGPAS 


00254 





50000 





00030 




CLA 


ERRBX 


00255 


-0 


12000 





00257 


SKIP14 


TMI 


SKIP14+2 


00256 





07400 


4 


00004 




TSX 


RDF0RT»4 


00257 





40000 





00031 




ADD 


LAI 


00260 





60100 





00030 




sro 


ERRBX 


00261 


-0 


75400 





00000 




PKD 




00262 





02000 





00236 




TRA 


BROS 

THIS ROUT1ME 


00263 





53400 


2 


00033 


TAGPAS 


LXA 


LO? .2 


00264 





53400 


4 


00031 




LXA 


LA1»- 


00265 





50000 





00032 


RDINSR 


CLA 


MINUS4 


00266 





60100 





00030 




STO 


ERRBX 


00267 





53400 


1 


00045 




LXA 


TAGMK»1 


00270 





76200 





00224 


RDSIN 


RDS 


INSTTP 


00271 





70000 


1 


06457 


CPYN 


CPY 


INSTR-1»1 


00272 


1 


00001 


1 


00271 




TXI 


CPYN»1#1 


00273 





02000 





00375 




TRA 


OUTR 


00274 


-0 


76000 





00012 


ENDRC 


RTT 




00275 





02000 





00301 




TRA 


ERRORR 


00276 


-0 


63400 


1 


00363 


1ALXD 


SXD 


LZINStl 


00277 





53400 


1 


00033 




LXA 


L0R»1 


00300 





02000 





00364 




TRA 


L2INS+1 


00301 





50000 





00030 


ERROR R 


CLA 


ERRBX 


00302 


-0 


12000 





00304 


SKIP15 


TMI 


SKIP15+2 


00303 





07400 


4 


00004 




TSX 


RDF0RTt4 


00304 





40000 





00031 




ADD 


LAI 


00305 





60100 





00030 




STO 


ERRBX 


00306 





76400 





00224 




BST 


INSTTP 


00307 





02000 





00267 




TRA 


RDSIN-1 


00310 


-0 


75400 


4 


00000 


INTBB 


PXD 


0»4 


00311 





40000 





00073 




ADD 


TGPBOX 


00312 





77100 





00022 




ARS 


18 



THIS ROUTINE READS THE BASIC BLOCK LIST FROM THE 

INITIALIZE ERROR BOX 



DRUM 



HAVE 5 TRIES AT READING BEEN MADE 
YES* GO TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 



COMPILES THE LIST OF TAGGED INSTRUCTIONS 
INITIALIZE INDEX REGISTERS 



INITIALIZE ERROR BOX 

COPY BLOCK 

END OF FILE-EXIT 



STORE LENGTH OF RECORD TO COMPARE 
CONTINUE TAG PASS 



HAVE 5 TRIES AT READING BEEN MADE 
YES» GO TO DIAGNOSTIC ROUTINE 
N0» TRY READING AGAIN 



TRY AGAIN TO READ IN RECORD. 
PUT TAG ADDR IN BB LIST 



F4461560 
F4461570 
F4461580 
F4461590 
F4461600 
F4461610 
F4461620 
F4461630 
F4461640 
F4461650 
F4461660 
F4461670 
F4461680 
F4461690 
F4461700 
F4461710 
F4461720 
F4461730 
F4461740 
F4461750 
F4461760 
F4461770 
F4461780 
F4461790 
F4461800 
F4461810 
F4461820 
F4461830 
F44618^0 
F4461850 
F4461860 
F4461670 
F4461880 
F4461890 
F4461900 
F4461910 
F4461920 
F4461930 
F4461940 
F4461950 
F4461960 
F4461970 
F4461980 
F4461990 
F4462000 
F4462010 
F4462020 
F4462030 
F4462040 
F4462050 
F4462060 
F4462070 
F4462080 
F4462090 



) V 



00313 


-0 


5010O 





00046 




ORA 


TMARK 




00314 





60100 


2 


06314 




STO 


BBTAGS»2 




00315 


1 


00001 


2 


00316 


BGTXI 


TXI 


BGTXI+1*2»1 




00316 


-0 


50000 


1 


06455 




CAL 


INST.R-3»1 




00317 


-0 


32000 





00044 




ANA 


STMSK 




00320 





10000 





00362 




TZE 


TXINS 




00321 





50000 


1 


06455 




CLA 


INST.R-3»1 




00322 


-0 


32000 





00045 




ANA 


TAGMK 




00323 


-0 


7600O 





00003 




SSM 






00324 





60100 


4 


06500 




STO 


TAG* 4 




00325 


-0 


63400 


2 


00067 


TSTOP 


SXD 


ERASlRt2 




00326 





53400 


2 


00037 




LXA 


L8.2 




00327 





50000 


1 


06457 




CLA 


INST.R-1.1 




00330 


-0 


32000 





00047 




ANA 


DECMKR 




00331 





40200 


2 


00063 


SUB 


SUB 


LCOPS+1.2 




00332 





10000 


2 


00346 




TZE 


TR0PS+1»2 




00333 





40000 


2 


00063 




ADO 


LC0PS+1»2 




00334 


2 


00001 


2 


00331 




TIX 


SUB > 2*1 




00335 


1 


00005 


2 


00346 


LD5 


TXI 


ST0CD»2*5 

GET CODE FOR TYPE 


OF 


00336 


1 


77771 


2 


00346 




TXI 


STOCD*2»-7 




00337 


1 


77776 


2 


00346 




TXI 


STOCD. 2.-2 




00340 


1 


77777 


2 


00346 




TXI 


STOCD. 2»-l 




00341 


1 


77775 


2 


00346 




TXI 


STOCD*2»-3 




00342 


1 


77777 


2 


00346 




TXI 


ST0CD.2.-1 




00343 


1 


77776 


2 


00346 




TXI 


STOCD. 2»-2 




00344 


1 


77777 


2 


00346 




TXI 


STOCD. 2.-1 




00345 





02000 





00346 


TROPS 


TRA 


STOCD 




00346 


-0 


75400 


2 


00000 


STOCD 


PXD 


0*2 




00347 





62200 


4 


06500 




STD 


TAG*4 




00350 


-0 


53400 


2 


00067 




LXD 


ERAS1R*2 




00351 


1 


00001 


4 


00352 




TXI 


TSTTG»4»1 




00352 


-2 


00017 


4 


00362 


TSTTG 


TNX 


TXINS. 4.ZTAG 




00353 





76600 





00223 


WRTAG 


WRS 


TAGTAP 




00354 





70000 


4 


06500 


TGCPY 


CPY 


TAG.4 




00355 


1 


00001 


4 


00356 


TGTXI 


TXI 


TGTXI+1.4.1 




00356 


-2 


00017 


4 


00354 




TNX 


TGCPY.4.ZTAG 




00357 





50000 





00073 




CLA 


TGPBOX 




00360 





40000 





00052 




ADD 


LZTAG 




00361 





60100 





00073 


TGSTO 


STO 


TGPBOX 




00362 


1 


00004 


1 


00363 


TXINS 


TXI 


TXINS+1.1.4 




00363 


2 


00144 


1 


00265 


LZINS 


TIX 


RDINSR»1»ZINSTR 




00364 





50000 


1 


06460 




CLA 


INSTR.l 




00365 





40200 


2 


07773 




SUB 


BBLIST.2 




00366 





10000 





00310 




TZE 


INTBB 




00367 





50000 


1 


06455 




CLA 


INST.R-3.1 




00370 


-0 


32000 





00044 




ANA 


STMSK 




00371 





10000 





00362 




TZE 


TXINS 




00372 





50000 


1 


06455 




CLA 


INST.R-3.1 




00373 


-0 


32000 





00045 




ANA 


TAGMK 




00374 





02000 





00324 




TRA 


TSTOP-l 




00375 


-0 


75400 


4 


00000 


OUTR 


PXD 


0*4 




00376 





40000 





00073 




ADD 


TGPBOX 




00377 





77100 





00022 




ARS 


18 





IS THIS THE INSTRUCTION TAGGED 

NO 
YES* 



AND A MINUS FOR 1ST INST 

BLOCK INTO TAG LIST 
SAVE INDEX 

SET FOR A COMPARISON 
COMPARE OP CODE OF INSTRUCTION 



F4462100 
F4462110 
F4462120 
F4462130 
F4462140 
F4462150 
F4462160 
F4462170 
IN A BASICF4462180 
F4462190 



F4462200 
F4462210 
F4462220 
F4462230 

OP CODES OF TYPES OF TAGGED INSTRS F4462240 

TRANSFER WHEN FOUND 

RESTORE ORIGINAL CODE TO AC 

TRY NEXT COMPARISON 

NOT FOUND-IS PASSIVE -WANT 
INSTRUCTION INTO INDEX 

LXA— INDEX HAS 8* WANT 

TXI — INDEX HAS 7* WANT 

TIX — INDEX HAS 6* WANT 

LXP — INDEX HAS 5* WANT 
•INDEX HAS 4. WANT 



6 IN 



DED 

LXD — INDEX HAS 3. WANT 
PAX— INDEX HAS 2* WANT 
PDX—INDEX HAS 1* WANT 



F4462250 
F4462260 
F4462270 
IRBF4462280 
F4462290 
F4462300 
F4462310 
F4462320 
F4462330 
F4462340 
F4462350 
F4462360 
. F4462370 



STORE CODE FOR TYPE OF OPERATION INF4462380 



TAG LIST 

SET FOR NEXT WORD IN TAG LIST 

TEST FOR END OF BLOCK 

END OF BLOCK — WRITE ON TAPE 



IS THIS THE BEG OF A BASIC BLOCK 

YES 

NO* IS IT TAGGED 

NO 
YES 



F4462390 
F4462400 
F4462410 
F4462420 
F4462430 
F4462440 
F4462450 
F4462460 
F4462470 
F4462480 
F4462490 
F4462500 
F4462510 
F4462520 
F4462530 
F4462540 
F4462550 
F4462560 
F4462570 
F4462580 
F4462590 
F4462600 
F4462610 
F4462620 
F4462630 



*S 



U 



U 



00400 


-0 


50100 





00046 


OR A 


TMARK 


00401 





60100 


2 


06314 


STO 


BBTAGS*2 


00402 


3 


00001 


4 


00405 


TXH 


WRTG2»4*1 


00403 





50000 





00073 


CLA 


TGP80X 


00404 





12000 





00411 TPL 


TPL 


FINAL 


00405 





50000 





00404 WRTG2 


CLA 


TPL 


00406 





60100 





00361 


STO 


T6ST0 


00407 





53400 


4 


00031 


LXA 


LAlf4 


00410 





02000 





00353 


TRA 


WRTAG 


0041 1 





50000 





07774 FINAL 


CLA 


BB0X«- 


00412 





40000 





00043 


ADO 


LD1R 


00413 





60 ICO 





07774 


STO 


BB0X*= 


00414 





50000 





07776 


CLA 


PREDBX 


00415 





60100 





07777 


STO 


BBTBOX 


00416 





50000 





00047 


CLA 


DECMKR 


O0417 





62200 





00545 


STD 


TXLBBT 


00420 





76600 





00333 


IOD 




00421 





56000 





00077 


LDQ 


BLKMAX 


00422 


-0 


75400 





00000 


PXD 




00423 





22100 





00036 


DVP 


L6R 


00424 





76000 





00012 


OCT 




00425 





07400 


4 


00004 


TSX 


RDF0RT»4 


00426 


-0 


60000 





00074 


STQ 


BLKNO 


00427 





56000 





07774 


LDQ 


BB0X.= 


00430 





20000 





00036 


MPY 


L6R 


00431 


-0 


60000 





00076 


STQ 


LENGTH 


00432 


-0 


53400 


1 


00031 


LXD 


LAltl 


00433 





50000 





07777 NXTBL 


CLA 


88 T8UX 


00434 


-0 


32000 





00041 


ANA 


■- :04 7 


00435 





62100 





00G64 


ST.^ 


s6 ~y 


00436 





50000 





07777 


CLA 


88TB0X 


00437 





77100 





00013 


ARS 


11 


00440 





40000 





00065 


ADD 


LA301 


00441 





62100 





00525 


STA 


WRS1 


00442 





40000 





00031 


ADD 


LAI 


00443 





62100 





00576 


STA 


NDWRS 


00444 





50000 





00076 


CLA 


LENGTH 


00445 





10000 





00606 


TZE 


0UT2 


00446 


-0 


12000 





00606 


TMI 


0UT2 


00447 





40200 





00077 


SUB 


BLKMAX 


00450 





60100 





00076 


STO 


LENGTH 


00451 


-0 


12000 





00453 


TMI 


LSTBLR 


00452 


-o 


75400 





00000 


PXD 




00453 





40000 





00077 LSTBLR 


ADD 


BLKMAX 


00454 





77100 





000 22 


ARS 


18 


00455 





40000 





07777 


ADD 


BBTBOX 


00456 





40000 





00031 


ADD 


LAI 


00457 





60100 





07777 


STO 


BBTBOX 


00460 





53400 


4 


00071 


LXA 


IINBX»4 


00461 





50000 





00072 


CLA 


INSX 


00462 





60100 


4 


00555 


STO 


CPY1A»4 


00463 


-0 


50000 





00545 


CAL 


TXLBBT 


00464 





40000 





00074 


ADD 


BLKNO 


00465 





62200 





00545 


STD 


TXLBBT 



WANT TXL TO HAVE BLK-1 
LATER 

COMPUTE NO. OF BB IN BLOCK 



BAD DIVIDE 



F4462640 
F4462650 
F4462660 
F4462670 
F4462680 
F4462690 
F4462700 
F4462710 
F4462720 
F4462730 
F4462740 
F4462750 
F4462760 
F4462770 
F4462780 
F4462790 
F4462800 
F4462810 
F4462820 
F4462830 
F4462840 
F4462850 
F4462860 
F4462870 
F4462880 
STORE TOTAL LNGTH OF TABLE FOR DRUMF4462890 

F4462900 

COMPUTE WRS ADDRESSES F4462910 

F4462920 
F4462930 
F4462940 
F4462950 
F4462960 
F4462970 
F4462980 
F4462990 
F4463000 
F4463010 
F4463020 
F4463030 
F4463040 
F4463050 
F4463060 
F4463070 
F4463080 
F4463090 
F4463100 
F4463110 
F4463120 
F4463130 
F 446 3 140 

COMPUTE NEW TEST DECREMENTS FOR F4463150 
TESTING END OF BLOCK— THE VALUE F4463160 
IS THE NUMBER OF THE LAST BASIC F4463170 



STORE DRUM ADDRESSES 



FORM NEW TABLE LENGTH 

IS THIS A FULL BLOCK 
N0» PUT IN ACTUAL LENGTH 
YES» PUT IN FULL BLOCK LENGTH 
FORM NEXT DRUM ADDRESS 



RESTORE INSTRUCTION REPLACED FOR 
END OF PREVIOUS BLOCK 



H& 



V 





00466 


62200 00551 




STD TXL2 




00467 


62200 00570 




STD TXL3 




00470 


-0 32000 00047 




ANA DECMKR 




00471 


40000 00043 




ADD LD1R 




00472 


40200 07774 




SUB BBOX.= 




00473 


-0 12000 00501 




TMI COMB 




00474 


50000 07774 




CLA BBOX.= 




00475 


40200 00043 




SUB LD1R 




00476 


62200 00545 




STD TXLBBT 




00477 


62200 00551 




STD TXL2 




00500 


62200 00570 




STD TXL3 




00501 


50000 00041 


COMB 


CLA L2047 




00502 


40200 00064 




SUB BBTY 




00503 


73400 2 00000 




PAX 0t2 




00504 


40000 00031 




ADD LAI 




00505 


76500 00043 




LRS 35 




00506 


22100 00036 




DVP L6R 




00507 


76000 00012 




DCT 




00510 


07400 4 00004 




TSX RDF0RT>4 




00511 


40200 00031 




SUB LAI 




00512 


-0 12000 00604 




TMI ZREM 




00513 


-0 10000 00515 




TNZ, FREM 




00514 


50000 00034 




CLA LCI 




00515 


76700 00001 


FREM 


ALS 1 




00516 


76000 00006 




COM 




00517 


62100 00071 




STA IIN8X 




00520 


53400 4 00071 




LXA IINBX«4 




00521 


56000 4 00555 




LDQ CPY1A»4 




00522 


50000 00066 




CLA LTRND 




00523 


60100 4 00555 




STO CPYlAt4 




00524 


-0 60000 00072 




STQ INSX 


A 


00525 


76600 00000 


WRS1 


WRS 


T 


00526 


-0 75400 00000 




PXD 




00527 


-3 00000 2 00600 




TXL LDA1.2»0 




00530 


-2 00006 2 00573 




TNX N0BK»2»6 




00531 


46000 00064 




LDA BBTY 




00532 


70000 1 02413 


CPY1R 


CPY BBTABL»1 




00533 


36100 1 02413 




ACL BBTABL»1 




00534 


70000 1 06314 




CPY BBTAGStl 




00535 


36100 1 06314 




ACL BBTA6S»1 




00536 


70000 .0 00033 




CPY LOR 




00537 


60200 00067 




SLW ERAS1R 




00540 


70000 00033 




CPY LOR 




00541 


1 00001 1 00542 




TXI CPY5»1»1 




00542 


70000 00033 


CPY 5 


CPY LOR 




00543 ■ 


-2 00006 2 00550 




TNX CPY6C»2»6 




00544 


70000 00033 


CPY6 


CPY LOR 



u 



IS THIS LARGER THAN THE NUMBER OF 

THE LAST BASIC BLOCK 
NO 
YES* TEST DECREMENT SHOULD BE 

NUMBER OF LAST BB INSTEAD 



BLOCK WHICH WILL FIT IN THIS BLKF4463180 

F4463190 
F4463200 
F4463210 
F4463220 
F4463230 
F4463240 
F4463250 
F4463260 
F4463270 
F4463280 
F4463290 

SET B FOR TEST FOR END OF DRUM F4463300 

NUMBER OF WORDS LEFT ON DRUM INTO BF4463310 

F4463320 

ARRANGE CONNECTION TO 2ND LOOP 

FIND OUT WHICH OF THE 6 WORDS IN 
AN ENTRY WILL OCCUPY THE LAST 
POSITION ON THE DRUM 



BAD DIVIDE 



F4463330 
F4463340 
F4463350 
F4463360 
F4463370 
F4463380 
F4463390 
F4463400 
F4463410 
F4463420 
F4463430 



BREAK IS BETWEEN ENTRIES (PUT 5 

INTO AC) 
MORE THAN ONE WORD FITS (LEAVE 

NO-1 IN AC) 

EXACTLY 1 WORD FITS (PUT LCI IN AOF4463440 
GET ADDRESS OF INSTRUCTION TO BE F4463450 

REPLACED BY TRA TO 2ND LOOP 
SAVE ADDRESS OF THIS ONE 



REPLACE PROPER INSTRUCTION WITH A 
TRANSFER TO TAKE CARE OF END 
OF DRUM SITUATION 

STORE A TRA NDDR 

SELECT DRUM 

INDEX B HAS NO. OF WORDS LEFT ON 

DRUM» ONLY 1 WORD FITS ON DRUM 
LESS THAN 6 WORDS FIT 
MAIN LOOP FOR STORING BB TABLE 
WRITE SIX WORDS OF ENTRY 



INCREASE INDEX OF POSITION IN BBT 

TEST FOR WEARING END OF DRUM 
(LESS THAN 6 WORDS LEFT) 



F4463460 
F4463470 
F4**63480 
F*<*63490 
F«"*o3500 
F«^63510 
F*M»6 35<Q 
F44&3SiQ 
F4463540 
F4463550 
F4463560 
F4463570 
F4463580 
F4463590 
F4463600 
F4463610 
F4463620 
F4463630 
F4463640 
F4463650 
F4463660 
F*463670 
F4463680 
F 446 3 690 
F4463700 
F4463710 



•i'-7 



U 



00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 



00555 
00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 
00604 
00605 



00606 
00607 
00610 
00611 
00612 
00613 
00614 
00615 
00616 
00617 
00620 
00621 
00622 
00623 
00624 
00625 
00626 



00000 
70000 
02000 
70000 
00000 
70000 
02000 
00000 



70000 
36100 
70000 
36100 
70000 
60200 
70000 
00001 
70000 
76100 
70000 
00000 
70000 
02000 
46000 
02000 
53400 
76600 
02000 
46000 
70000 
53400 
77777 
50000 
02000 



77000 
53400 
50000 
77100 
60100 
53400 
76600 
70000 
00001 
00001 
76400 
76400 
76400 
76200 
53400 
50000 
60100 



00532 TXLBBT 
00067 
00433 

00033 CPY6C 
00555 TXL2 
00067 
00433 
00000 DUMM 



02413 
02413 
06314 
06314 
00033 
00067 
00033 
00565 
00033 
00000 
00033 
00601 
00067 
00433 
00064 
00555 
00042 
00000 
00532 
00064 
02413 
00603 
00575 
00035 
00515 



CPY1A 

CPY2A 

CPY3A 

CPY4A 

CPY5A 

CPY6A 

TXL3 

CPY7A 

NOBK 

NDDR 
NDWRS 

L0A1 
CPY1B 

LMLE 
ZREM 



00223 0UT2 

07774 

07774 

00022 

07774 

00616 

00223 

07774 WBL1 

00617 WBL2 

00615 

00223 

00223 

00223 

00223 
1 00032 
1. 10000 KEYS 
1 20000 



TXL 
CPY 
TRA 
CPY 
TXL 
CPY 
TRA 
HTR 



CPY 
ACL 
CPY 
ACL 
CPY 
SLW 
CPY 
TX1 
CPY 
NOP 
CPY 
TXL 
CPY 
TRA 
LDA 
TRA 
LXA 
WRS 
TRA 
LDA 
CPY 
LXD 
TXI 
CLA 
TRA 



WHOLE BLOCK FITS* COPY CHECKSUM 



CPY1R»1 

ERAS1R 

NXTBL 

LOR 

CPY1A»1»XXXXXX 

ERAS1R 

NXTBL 

USED IN SWITCHING AT END OF BLOCK 

ONE OF THE FOLLOWING INSTRUCTIONS IS ALWAYS REPLACED BY 

TRANSFER TO SECOND DRUM. 

BBTABLtl 

BBTABLil 

BBTAGS*1 

BBTAGS*1 

LOR 

ERAS1R 

LOR 

CPY5A»1»1 

LOR 



LOR 

CPY1B*1»XXXXXX 

ERAS1R 

NXTBL 

BBTY 

CPY1A 

L2048»2 



CPY1R»4 

BBTY 

BBTABL»1 

LMLE*4 

NDDR»0t-l 

L5 

FREM 



SELECT 2ND DRUM 



PRESET RETURN TO MAIN LOOP 

IF DRUM ENDS WITH LAST WORD IN AN 
ENTRY 



THIS ROUTINE WRITES BBLIST ON TAPE 3. 
WEF BLT 
LXD BBOX.=tl 
CLA BBOX.= 
ARS 18 
STO BBOX*= 
LXD WBL2»2 
WRS BLT 

CPY BB0X.=,2 WRITE BB LIST 

TXI WBL2+1»2»1 
TIX WBL1,1,1 
BST BLT 
BST BLT 
BST BLT 
RDS BLT 

LXA MINUS4»1 MOVES KEYS FOR SECTION 5 IN 

CLA 4096,1 8-1-4-1 SYSTEM, DOES NOTHING IN 

STO 8192,1 4-1-4-1 SYSTEM, 



F4463720 

F4463730 

F4463740 

F4463750 

F4463760 

F4463770 

F4463780 

F4463790 

F4463800 

F4463810 

F4463820 

F4463830 

F4463840 

F4463850 

F4463860 

F4463870 

F4463880 

F4463890 

F4463900 

F4463910 

F4«63920 

F4463930 

F4463940 

F4463950 

F4463960 

F4463970 

F4463980 

F4463990 

F 4464 000 

F4464010 

F4464020 

F4464030 

F4464040 

F4464050 

F4464060 

F4464070 

F4464080 

F4464090 

F4464100 

F4464110 

F4464120 

F4464130 

F4464140 

F4464150 

F4464160 

F4464170 

F4464180 

F 4464 190 

F4464200 

F4464210 

F4464220 

F4464230 

F4464240 

F4464250 



/ 



00627 


2 


00001 


1 


00625 


TIX 


KEYS»1«1 


00630 





76200 





00221 


RDS 


SYS TAP 


00631 





02000 





00004 


TRA 


R0FORT 



THIS DRUM SUBROUTINE TRANSFERS A TABLE TO THE DRUMtTABLE IS 
BACKWARDS IN CM AND STORED EVERY OTHER WORD. GOES FORWARD ON 
DRUM. CALLIN6 SEQUENCE IS* 



TSX DRUM»4 
HTR N 
HTR A 



N IS NUMBER OF ENTRIES IN THE TABLE 
A IS CM ADDRESS OF LAST ENTRY IN 
TABLE 

D IS DRUM ADDRESS»0-8191 
NEXT AVAILABLE DRUM ADDRESS HAS REPLACED THE 



00632 





00000 





00215 


GPL. 


J 


HTR 


BB88.J 


00633 





50000 


4 


00002 


DRUM. 


J 


CLA 


2.4 


00634 





62100 





00664 






STA 


67.. .J 


00635 





62100 





00757 






STA 


622. .J 


00636 





62100 





00762 






STA 


G17..J 


00637 





62100 





00753 






STA 


G33..J 


00640 





40200 





01012 






SUB 


TWOA.J 


00641 





62100 





00760 






STA 


G14..J 


00642 


-0 


53400 


1 


01013 


Gl..« 


J 


LXD 


GK6..Jtl 


00643 


-0 


63400 


1 


00666 






SXD 


G8...J>1 


00644 





50000 


4 


00001 


G2... 


J 


CLA 


1.4 


00645 





40200 





00632 






SUB 


GP1..J 


00646 


-0 


12000 





00733 






TMI 


G3...J 


00647 





60100 


4 


00001 






STO 


1»4 


00650 





50000 





00632 






CLA 


GP1..J 


00651 





10000 


4 


00004 


G4... 


J 


TZE 


4»4 


00652 





60100 





01015 






STO 


GV2..J 


00653 


-0 


53400 


1 


00666 






LXD 


G8...J»1 


00654 


1 


00002 


1 


00655 


G5 . • . 


J 


TXI 


G5...J+1»1»2 


00655 


-0 


63400 


1 


01016 






SXD 


GV3«.J»1 


00656 





76700 





00023 






ALS 


19 


00657 





40200 





00666 






SUB 


G8 ... J 


00660 


-0 


73400 


2 


00000 






PDX 


0*2 


00661 


-0 


63400 


2 


00666 






SXD 


G8...J»2 


00662 





50000 





01014 






CLA 


ZERO. J 


00663 


1 


00002 


1 


00664 


G6. . • 


J 


TXI 


G6...J+1»1«2 


00664 





36100 


1 


00000 


G7... 


J 


ACL 


TABLEJ»1 


00665 


3 


07775 


2 


00667 






TXH 


G31..J.2.4093 


00666 


-3 


00000 


1 


00663 


G6..« 


J 


TXL 


G6...J»1»SET.« 


00667 





60200 





01017 


G31.« 


J 


SLW 


GV4..J 


00670 





50000 


4 


00003 






CLA 


3»4 


00671 


-0 


32000 





01004 






ANA 


GK1..J 


00672 





40200 





01005 






SUB 


GK2..J 


00673 





40000 





01015 






ADD 


GV2..J 


00674 


-0 


12000 





00721 






TMI 


G9...J 


00675 





60100 





01021 


G20.. 


J 


STO 


GV6..J 


00676 





40200 





01015 






SUB 


GV2..J 


00677 





76000 





00003 






SSP 





HTR D 
UPON RETURN 
HTR D 

A CHECK SUM IS PUT AFTER EVERY B W0RDS»SEE THE NEXT CARD. 
A MUST BE GREATER THAN ltN GETS REPLACED BY 

ADDRESS HAS B. 

SET ADDRESSES DEPENDENT ON INITIAL 
TABLE ADDRESS IN CORES 



INITIALIZE INDEX OF POSITION IN 

TABLE* 
FORM N-B 

IS N LARGER THAN B 

YES STORE NEW N 

PREPARE TO TRANSFER B WORDS 

IF NO WORDS LEFTtRETURN 

CURRENT INDEX TO A 
UP IT»IT LAGS BEHIND 



THE TXL IS NEGATIVE 

SET NEW END TEST 

CHECK 

SUM. 

STORE CHECK SUM 

SPACE LEFT ON DRUMt NEGATIVE 

WILL BLOCK FIT 

NO.STO. AMOUNT LEFT OVER 

IN AC IS DRUM SPACE 



F4464260 

F4464270 

F4464280 

F4464290 

F4464300 

F4464310 

F4464320 

F4464330 

F4464340 

F4464350 

F 4464 360 

F4464370 

F4464380 

F4464390 

F4464400 

F4464410 

F4464420 

F4464430 

F4464440 

F4464450 

F4464460 

F 4*64470 

F4464480 

F4464490 

F 4464 5 00 

F4464510 

F4464520 

F4464530 

F4464540 

F4464550 

F4464560 

F4464570 

F4464580 

F4464590 

F4464600 

F4464610 

F4464620 

F4464630 

F 4464 640 

F4464650 

F4464660 

F4464670 

F 4464680 

F4464690 

F4464700 

F4464710 

F4464720 

F4464730 

F4464740 

F4464750 

F 4464 760 

F4464770 

F4464780 

F4464790 



if/ 



f(, 



u 



u 



00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 
00724 
00725 
00726 
00727 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 
00763 
00764 
00765 



60100 
76700 
40000 
73400 
53400 
63400 
77776 
63400 
50000 
07400 
02000 
50000 
40200 
60100 
50000 
60100 
02000 
40000 
12000 
50000 
07400 
40000 
62100 
02000 
76600 
70000 
02000 
56000 
50000 
60000 
02000 
50000 
07400 
50000 
62200 
53400 
50000 
76000 
02000 
56000 
04000 
46000 
00002 
70000 
02000 
46000 
00002 
70000 
70000 



1 00004 1 



70000 
00000 
70000 
02000 



01015 
00023 
01016 
00000 
01016 
01016 
00707 
00763 
01007 
00770 
00744 
00003 
01010 
00003 
01021 
01015 
00737 
01010 
00737 
01006 
00770 
01010 
00730 
00741 
00000 
01017 
00644 
01014 
00001 
00001 
00651 
00731 
00770 
00666 
00763 
01016 
01015 
00001 
00766 
01010 
00755 
01020 
00753 
00000 
00764 
01020 
00757 
00000 
77776 
00762 
00000 
00760 
01017 
00644 



STO GV2..J 

ALS 19 

ADD GV3..J 

PDX 0>2 

LXD GV3..J»1 

SXD GV3..J»2 
G30..J TXI G30..J+l»2»-2 

SXD G23..J»2 

CLA GK4..J 

TSX G11..J»2 

TRA G15..J 
G24..J CLA 3»4 

SUB ONEA.J 

STO 3»4 

CLA GV6..J 

STO GV2..J 

TRA G10..J 
G9.».J ADD ONEA.J 

TMI G10..J 
G19..J CLA GK3..J 

TSX G11..J»2 

ADD ONEA.J 

STA G25..J 

TRA G12»«J 
G25..J WRS SET..J 
G26..J CPY GV4..J 

TRA G2.*.J 
G3...J LDQ ZERO. J 

CLA 1*4 

STO 1»4 

TRA G4...J 
G10..J CLA G26..J 

TSX Gll».J#2 
G12..J CLA G8..*J 

STD 623*.J 

LXD GV3#.J*1 
G15».J CLA GV2..J 

LBT 

TRA G13«.J 

LDQ ONEA.J 

TLQ G32«.J 

LDA GV5«.J 
G34..J TXI G34..J+ltlf2 
G33..J CPY TABLEJ#1 

TRA G18..J 
G32..J LDA GV5..J 
G27..J TXI G27..J+1»1»2 
G22..J CPY TABLEJ»1 
G14..J CPY TABLEJ-2»1 
G16..J TXI G16..J+1»1»4 
G17..J CPY TABLEJ»1 
G23..J TXL G14..J»1 
G18..J CPY GV4..J 

TRA G2.*.J 



FORM INITIALIZING INDEX 

FOR 2ND HALF 
LOAD BEFORE STORING BACK 

END TEST IS 2 LESS 

DRUM SELECTION ROUTINE '' 
ALSO STORES SWITCH 



SET BLOCK 1.&ISGTH TO NO. OF 
WORDS LEFT* 

DOES SUM CHECK FIT TOO 
NO 

ARRANGE TO PUT CK SUM 
ON NEXT DRUM 

COPY CHECK SUM. 

RECORD THAT THERE ARE NO WORDS 



SUM CK. FITS TOO 



SET END TEST 



IS BLOCK LENGTH ODD 
NO 

IS IT EQUAL TO ONE 

YES» TRANSFER THE SINGLE WORD 



COPY WORDS ONTO THE DRUM 



OR TRA G25 OR TRA G24 



F/+64810 
/4464820 
/ F4464830 
F4464840 
F4464850 
F4464860 
F4464870 
F4464880 
F4464890 
F4464900 
F 44649 10 
F4464920 
F4464930 
F4464940 
F4464950 
F4464960 
F 44649 70 
F4464980 
F4464990 
F4465000 
F4465010 
F4465020 
F4465030 
F 4465 040 
F4465050 
F4465060 
LEFTF4465070 
F4465080 
F4465090 
F 4465 100 
F4*65110 
F«*46S120 
F44&5130 
F4**o5 140 
F <*<*-& 5 ,5 
•F4%oS j$) 
F4465i?0 
F4465180 
F 4465 190 
F 4465 2 00 
F4465210 
F4465220 
F4465230 
F4465240 
F4465250 
F4465260 
F4465270 
F4465280 
F4465290 
F4465300 
F4465310 
F 446 5 320 
F4465330 



itfi 



»/ 



00766 
00767 



00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
01000 
01001 
01002 
01003 



01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 

01015 
01016 
01017 
01020 
01021 



46000 01020 G13»«J LDA GV5..J 
02000 00760 TRA G14..J 



60100 
50000 
60100 
40000 
40000 
60100 
50000 
77100 
40000 
60100 
76600 
02000 



00000 
00000 
02000 
02000 
00000 
76600 
00000 
77774 
00000 



00000 
00000 
00000 
00000 
00000 



DRUM SELECTION SUBROUTINE! COMPUTES NEW DRUM ADDRESS 
00764 G11#«J STO G18..J STORE SWITCH WORD. 



00003 CLA 3»4 

01020 STO GV5#«J 

01015 ADD GV2..J 

01010 ADD ONEA.J 
00003 STO 3#4 
01020 CLA GV5..J 
00013 ARS 11 

01011 ADD GK5*«J 
01002 STO G21..J 

00000 G21..J WRS 

00001 TRA 1»2 

FOLLOWING ARE THE CONSTANTS USED 
03777 GK1..J 2047 
04000 GK2..J 2048 
00730 GK3..J TRA G25»«J 
00713 GK4««J TRA G24..J 

00001 ONEA.J 1 
00301 GK5«»v> WDR 1 

00002 TWOA.J 2 
00000 GK6.«J 0«0*-4 
00000 ZERO. J 



PRESERVE DRUM ADDRESS 
FORM THE NEW DRUM ADDRESS 

SELECT THE DRUM 



0' 00000 GV2.«J 
00000 GV3»«J 
00000 GV4««J 
00000 GV5»«J 
00000 GV6..J 
00000 TABLEJ SYN 
00000 SET»*J SYN 



VARIABLES OR TEMPORARY STORAGE 

LENGTH OF BLOCK 

INDEX OF LAST WORD IN BLOCK 

SUM CHECK 

OLD DRUM ADDRESS 

REMAINING BLOCK LENGTH 






00000 



END 



F4465340 
F4465350 
F4465360 
F 4465 370 
F4465380 
F4465390 
F4465400 
F4465410 
F4465420 
F4465430 
F4465440 
F4465450 
F4465460 
F4465470 
F4465480 
F4465490 
F4465500 
F4465510 
F4465520 
F4465530 
F4465540 
F4465550 
F4465560 
F4465570 
F4465580 
F4465590 
F4465600 
F4465610 
F4465620 
F4465630 
F4465640 
F4465650 
F4465660 
F4465670 
F4465680 
F4465690 
F4465700 
F4465710 



(J 



u 



REM 704 FORTRAN II » SECTION V* TAG ANALYSIS* 4-1-6-2 F5G00010 

704 FORTRAN II* SECTION V* TAG ANALYSIS* 4-1-6-2 F5G00010 

DAVID STERNLIGHT I.S.M. WORLD HEADQUARTERS 5 NOV 58. F5G00020 
INTRODUCTION F5G00030 

THE GENERAL PHILOSOPHY OF SECTION 5 IS TO REDUCE A PROGRAM F5G00040 
USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050 
REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE* CALLING ON F5G0OO60 
INDEX CELLS WHICH ARE STORAGE LOCATIONS* TO RETAIN DISPLACED F5G00070 
INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE F5G00080 
REPLACED. THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G0009O 
REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTIONS .F5G00 100 
THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING F5G00110 
INDEX CELLS UP TO DATE* AND EFFICIENTLY SEEING TO IT THAT THEF5G00120 
3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL F5G00130 
TIMES FOR THE CORRECT EXECUTION OF TAGGED INSTRUCTIONS, F5G00140 
GENERALLY* SECTION 5 COMPILES SX»S WHENEVER AN INDEX CELL F5GG0150 
MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND F5GOQ160 
NOT PRESENT IN AN INDEX REGISTER* AN LX CAN BE USED WITHOUT F5G00170 
CONCERN ABOUT WHAT IS WIPED OUT. THE SKILLFUL PLACEMENT OF F5GG0180 
THESE SX»S IS ONE OF THE MAJOR JOBS OF SECTION 5. F5G00190 

THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS* F5G00200 
PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT* AS DEFIN-F5G00210 
ED BY SECTION 4. THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220 
BY FREQUENCY IN SECTION 4* BY ACTUAL PROGRAM SIMULATION. F5G00230 
SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE F5G00240 
HIGHEST FREQUENCY LINK BETWEEN BB*S AND EXPANDING OUTWARD F5G00250 
ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS. THE AREA FORM-F5G00260 
ED IN THIS MANNER IS A PORTION OF THE OBJECT PROGRAM AND IS F5G00270 
CALLED A LOOPLIST. THIS IS TREATED TO REDUCE THE NUMBER OF F5G00280 
INDEX REGISTERS TO 3 * IS THEN CALLED A REGION* AND CAN ENTER F5G00290 
FUTURE LOOPLISTS. THE LOOPLIST PROCESS IS CONTINUED* F5G00300 
CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM F5G00310 
BY THE INCLUSION OF ALREADY TREATED REGIONS IN THE CURRENT F5G00320 
LOOPLIST WHERE APPROPRIATE TO THE FLOW OF THE PROGRAM. THESEF5G00 330 
REGIONS BECOME A PART OF THIS LATEST LOOPLIST*S REGION AT THEF5G00340 
END OF THE LOOPLIST TREATMENT* FORMING A NEW* SINGLE REGION. F5G00350 
FINALLY THE ENTIRE PROGRAM HAS BEEN TREATED. A FURTHER PR IN-r 5G00 350 
CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX»S AS F5G00370 
LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME* F5G0Q380 
SINCE THE LATER THE SX IS COMPILED* THE LOWER THE FREQUENCY F5G00390 
OF TRANSFERS BETWEEN BLOCKS* HENCE THE FEWER THE EXECUTIONS F5GQ040Q 
OF THE SX. F5G0041C 

LPLST IS FORMED IN CORES BY SECTION 5 PART 1. IT SUMMARIZES F5G00420 
EACH NEW REGION TO BE TREATED. PREFIX CODES ARE 2=OPAQUE F5G00430 
REGION* ^TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER F5G00440 
FREE) AND PREFIX CODE 0=BASIC BLOCKS. THE BB NUMBER F5G00450 

IS CONTAINED IN THE DECREMENT OR ADDRESS. 77777 INDICATES F5G00460 
LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEG I NN INGF5G00470 
OF REGION* SPECIFIED 3Y 33 v;M3ER. OOOOOO INDICATES NOTHING F5G00480 
INTERVENING BETWEEN THAT c . I .•: T AND THE NEXT DECREMENT OR F5GQ0490 
ADDRESS. A WORD OF FULL ri.fNS* CALLED SENTINEL* TERMINATES F5G00500 
LPLST. THUS A NEW R5GI0.' " oE TREATED MIGHT HAVE A LPLST F5G00510 
BEFORE TREATMENT LIKE F5G00520 

277777 000014 F5G00530 



D M 



000023 000000 F5G00540 

100026 000033 F5G00550 

200003 777777 F5G00560 

mm mm* fsgoo57o 

THIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14* THEN COMESF5G00580 
BB23* THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM F5G0059Q 
BB 26 TO BB 33* THEN AN OPAQUE REGION ENTERING AT BB 3* F5G00600 
TERMINATING THIS LPLST. WHEN TREATEDt THIS ENTIRE LPLST F5G00610 
BECOMES A NEW* SINGLE REGION* ENCOMPASSING THE OLD REGIONS F5G00620 
AND BB»S IN IT» WHICH WILL DISAPPEAR. F5G00630 

REG TABLE* IN CORES* HAS 1 WORD PER EXISTING REGION. PREFIX F5G00640 
INDICATES EXISTENCE IN REGION OF LX»S TO THE IR*S » F5G00650 

DECREMENT=FIRST BB NO. IN REGION* TAG BI TS=EMPTINESS F5G00660 
THROUGHOUT REGION OF IR*S. F5G00670 

INPUT TABLES INCLUDE PRED* SUCC* BBB » ALL ON DRUM. F5G00680 
SUCC IS FIRST DRUM TABLE. IT IS PREPARED BY SECTION 4* F5600690 
ORDERED ON BB NUMBER. IT IS PING PONGED BETWEEN DRUM AND F5G00700 
CORES BY THE SE6 ROUTINE. F5GOO710 

THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720 
IS TREATED. BITS 1-14=FREQUENCY OF LINK. ADDRESS=NO. OF F5G00730 
SUCCESSOR BASIC BLOCK. F5G00740 

PRED IS THE SECOND DRUM TABLE. IT IS PREPARED BY SECTION 4. F5G00750 
PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760 
CORES BY THE SE5 ROUTINE. F5G00770 

WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED. F5G00780 

BITS 1-14=FREQUENCY OF LINK. BITS 15-17 CALL FOR LX*S TO F5G00790 
THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX.S TO APPRO- F5G00800 
PRIATE INDEX CELLS. THESE SX*S WILL LATER BE COMPILED F5G00810 
BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5. THE ADDRESS F5G00820 
CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK. F5G00830 

BBB IS THE THIRD DRUM TABLE* AND IS PREPARED BY SECTION 4. F5G00840 
THERE IS A 6 WORD ENTRY FOR EACH BB* AND A FINAL DUMMY ENTRY. F5G00850 
THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES. F5G00860 
WORD FORMAT FROM SECTION 4. FIRST WORD DECR=STARTING POINT F5G00870 
IN SUCC* ADDRESS-STARTING POINT IN PRED OF ENTRIES F5G00880 

REFERRING TO THIS BASIC BLOCK. FIRST WORD PREFIX CONTAINS F5G00890 
CODE DESCRIBING TYPE OF ENDING BB HAS. CODING IS.... F5G00900 
000=DO WITH AN IF* 001=MSE* 010=PROBAB ILITY BRANCH F5G00910 
011=CERTAINTY BRANCH* 100=DO WITHOUT AN IF* 101=GO TO N» F5G00920 
110=STOP. SECOND WORD* BITS 12-17=PERMUTATI0N NUMBERS* F5G00930 
INITIALIZED TO 33 BY SECTION 4. ADDRESS=ORDINAL NUMBER OF F5G00940 
FIRST TAGLIST ENTRY BELONGING TO THIS BB. REMAINING WORDS F5G00950 
INITIALIZED TO ZEROES BY SECTION 4. F5G00960 

IN SECTION 5 PART 1* FURTHER ENTRIES ARE MADE. SECOND WORD F5G00970 
BITS S^2 INDICATE IR ACTIVITY IN THIS BB. PERMUTATION NOS. F5G00980 
MAY UNDERGO CHANGE. WORDS 3-5 RECORD ENTRY AND EXIT CONDS. F5G00990 
FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS. F5G01000 
WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO. F5G01010 

ADDRESS=NUMBER OF NEXT BB IN REGION. F5G01020 

STAG IS THE FOURTH DRUM TABLE. INITIALIZED TO ZEROES AT SEC.F5G01030 
5 PART 1 START. ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCT10NF5G01040 
IS MADE IN SECTION 5 PART 1 AND READ IN PART 4. BITS S-8 F5G01050 
CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION* BITS 9-17 F5G01060 
FOR AN LX FOLLOWING. BITS 18-35 IN PAIRS SPECIFY THE INDEX F5G01070 



u O 



10000 
00062 
00036 



MSIZE 

FP1 

S3P1 



EQU 
ECU 
EOU 



REGISTER TAGLIST INSTRUCTION IS TO USE. THUS PRED RECORDS F5G01080 
INTER BB LX»S AND SX»S AND STAG RECORDS INTRA-BB LX»S AND F5G01090 
SX»S. STAG IS HANDLED BY THE SE4 ROUTINE. F5G01100 

CMTAG* THE CORE BUFFER FOR TAGLIST* HAS THE SAME WORD F5G01110 
FORMAT* THAT IS* THE DECREMENT CONTAINS THE INSTRUCTION F5G01120 
CLASS* CODED FROM TO 6» AND THE ADDRESS CONTAINS THE F5G01130 
SYMBOLIC ADDRESS* AS FOLLOWS* BITS 24-26 CONTAIN TAU 1*2* F5G01140 
OR 3* AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150 
TAU TABLE. NOTE THAT IN THE OUTPUT* THE SYMBOLIC ADDRESS OF F5G01160 
INDEX CELLS IS* TAU 1=G* TAU 2=10* TAU 3=1G» AND THIS F5G01170 
SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY. THUS A F5GO1180 
TAGLIST ENTRY IN THE ADDRESS OF 003005 BECOMES 1G5» THAT IS* F5G01190 
TAU 3* ENTRY 5. THE INSTRUCTION CLASSES AS FOLLOWS* IN DECRF5G01200 
L»LXA»LXD»PAX*PDX. 2=LXP. 3=DED. 4 IS UNUSED BUT AVAIL. F5G01210 
FOR TNX. 5=ACTIVE INSTR LIKE TIX AND TXI. 6=PASSIVE INSTR. F5G01220 
A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE F5G01230 
CONTENTS OF THE INDEX REGISTER. 7=UNUSED BUT AVAIL. FOR TIX.F5G01240 



*+Q 



WHEN 7 IS USED FOR A TIX* IT REPRESENTS A TIX USED AS A 
TRANSFER* NOT AN ACTIVE TIX. ACTIVE INSTRUCTIONS MAY 
BE RECOGNIZED BY THEIR ADDRESSES* WHICH ARE OF THE FORM 
WHERE Q IS SOME CONSTANT. 

CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 
IS IN THE LAST 4 CORE LOCATIONS* CALLED KEYS. 
GIVING DRUM TABLE LENGTHS. TAPE TABLES USED FOR INPUT 
INCLUDE TAGLIST AND CIT. INTERMEDIATE TABLES INCLUDE THE 
ABOVE AND STAG* LPLST* CMTAG* AND REG. CMTAG IS A CORE 
BUFFER FOR TAGLIST. THE DRUM TABLES ALSO APPEAR IN CORE 
IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN 
COMBINATION OF THE FACTORS OF LENGTH AND COMPLEXITY OF 
TRANSFER STRUCTURE. OUTPUT TABLES INCLUDE CIT ON TAPE. 
TAGLIST* ON TAPE 3* IS HANDLED BY THE S4 SUBROUTINE. IT 



F5G01250 
F5G01260 
F5G01270 
F5G01280 
F5G01290 
F5G01300 
F5G01310 
F5G01320 
F5G01330 
F5G01340 
F5G01350 
F5G01360 
F5G01370 
IS AF5G01380 



SEQUENTIAL LIST OF ALL TAGGED OBJECT PROGRAM INSTRUCTIONS F5G01390 

RESULTING FROM SECTION 3. EACH ENTRY IS ONE WORD. THE F5G01400 

PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS F5G01410 

CONTAINS SYMBOLIC INDEX REGISTER.S NAME. F5G01420 

BY USING LARGER MACHINE SIZE THAN 4K» THE PROGRAM F5G01430 

TABLE SPACE IN CORE CAN BE INCREASED. PROVIDING FASTER F5G01440 

COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING. F5G01450 

IN ADDITION* SENSE SWITCH 4* WHEN DOWN* PROVIDES UP TO F5G01460 

20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS* AT F5G01470 

A NEGLIGIBLE LOSS* IN MOST CASES* IN OBJECT PROGRAM F5G01480 

EFFICIENCY. THIS SENSE SWITCH HAS NO EFFECT ON SHORTER F5G01490 

PROGRAMS. F5G01500 

IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE* F5G01510 

SECTION IV OF FORTRAN* THE FLOW PASS OF TAG ANALYSIS* MUST F5G01520 

BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED F5G01530 

ON TO SECTION V* AND THE POSITION OF INFORMATION AT THE END F5G01540 

OF CORES • HERE SAID TO BE IN KEYS* MUST BE CHANGED. F5G01550 

IN SECTION V* MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN F5G01560 

THE FOLLOWING PARAMETER LIST MUST BE CHANGED. F5G01570 

4-1-6-2 PARAMETER LIST F5G01580 

4096 4-1-6-2 MEMORY SIZE F5G01590 

50 4-1-6-2 REG TABLE SIZE F5G016O0 

30 4-1-6-2 LPLST TABLE SIZE F5G01610 



If*! 



: v D v 



00030 
00031 



76200 
02000 



00004 


INSTTP 


EQU 


4 


00003 


TAPE 


EQU 


3 


00003 


OTAPE 


EQU 


3 


00003 


BLT 


EQU 


3 


00002 


ACTPE 


EQU 


2 


00001 


RECNO 


EQU 


1 


00144 


ZINST 


EQU 


RECNO#100 


00144 


LCLST 


EQU 


100 


00200 


NSXD 


EQU 


128 


00024 


PTL1 


EQU 


20 


00051 


PTL2 


EQU 


41 


00052 


PTL3 


EQU 


42 


00042 


PTL4 


EQU 


34 


00000 


SET 


EQU 





00000 


K 


EQU 






00032 





76700 





00022 


SE4 


ALS 


00033 


-0 


32000 





00303 




ANA 


00034 





07400 


2 


00101 




TSX 


00035 





00000 





00000 


STAGP 


HTR 


00036 





00000 





00000 




HTR 


00037 





00062 





00000 




HTR 


00040 





00000 





00000 




HTR 


00041 





00000 





00001 




HTR 


00042 





00000 





00000 




HTR 


00043 





00000 





05061 




HTR 


00044 


-0 


32000 





00303 


SE6 


ANA 


00045 





07400 


2 


00101 




TSX 



00062 STL EQU 50 4-1-6-2 STAG LENGTH £l9°J 6 i2 

FIXED PARAMETER LIST. INDEP. OF CORESIZE F5G01670 

07774 KEYS SYN MSIZE-4 CONSTANTS TO RELATE PROGRAM TO TABLES F5G01680 

ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO. FOLLOWED BY F5G01690 

PRED. BBB» AND STAG. WHICH IS FILLED IN BY SECTION V. F5G01700 
THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER OF BBS. F5G01710 
KEYS+1*START OF PRED. KEYS+2=START OF BBB » AND KEYS+3=STAG. F5G01720 

COMPILED INST ON TAPE 4 F5G01730 

OUTPUT TAPE IS 3 F5G01740 

OUTPUT TAPE IS 3 F5G01750 

BLOCK LIST ON TAPE 3 F5G01760 

ASSIGN CONSTANTS ON TAPE 2 F5G01770 

NO OF CIT RECORDS IN AT ONE TIME F5G01780 

LENGTH OF INST TABLE F5G01790 

LENGTH OF OUTPUT BLOCK. COMPILED INSTR F5G01800 

NO. OF SXD CASES IN SXD LIST F5G01810 

SPACE FOR PATCHES. PART 1 F5G01811 

SPACE FOR PATCHES* PART 2. F5G01812 

SPACE FOR PATCHES. PART 3 F5G01813 

SPACE FOR PATCHES. PART 4. F5G01814 

INITIAL DRUM ADDRESS F5G01820 

INITIAL DRUM ADDRESS F5G01830 

EDITOR RECORD NO. 75 F5G01840 

FOR CONTROL CARD INFORMATION. SEE END OF ASSEMBLY. F5G01850 

NO DIAGNOSTIC CALLER FOLLOWS F5G01870 

PART 1A F5G01880 

OPTIMIZE INDEXING EXCEPT FOR PERMUTATION. GO TO N. F5G01890 

INSTRUCTION COMPILATION. F5G0190O 

24 F5G01910 

ROUTINE TO TRANSFER NEXT F5G01920 

PROGRAM PART F5G01930 

1 SKIP DIAGNOSTIC F5601940 

4 READ NEXT PROGRAM RECORD F5G01950 

THE ROUTINES SE. SE1. SE4. SE5. SE6 MANIPULATE DRUM TABLES F5G01960 
SUCC* PRED. BBB. AND STAG. THEY ARE ENTERED WITH THE WANTED F5G01970 
ITEM IN THE AC. THEY LOAD 1X1 FOR IMMEDIATE REFERENCE TO THEF5G01980 
STATED ITEM. AFTER SAVING CORES ON THE DRUM WHERE NECESSARY .F5G01990 

THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES. IF THE F5G02000 

ITEM IS ALREADY IN CORES. OF COURSE NO SAVING OR DRUM F5G02Q10 

MANIPULATION IS NECESSARY. F5G02020 

18 F5G02030 

SEK4 F5G02040 

SE21.2 F5G02050 

PARAMETERS FOR STAG TABLE F5G02060 

N(0> F5G02070 

N(l> F5G02080 
O.O.STAGL N(S) F5G02090 
O.O.SET N(L) F5G02100 

1 s F5G02110 
SET D(0) F5G02120 
STAG A F5G02130 

PARAMETERS FOR SUCC. TABLE F5G02140 

SEK4 F5G02150 

SE21.2 F5G02160 



00030 



00221 R 
00004 



ORG 



RTB 
TRA 



u 



u 



00046 
00047 
00050 
00051 
00052 
00053 
00054 

00055 
00056 
00057 
00060 
00061 
00062 
00063 
00064 
00065 
00066 

00067 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00100 



00101 
00102 
00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 



00000 00000 
■000000000001 
00215 00000 



SUCCP 



00000 
00000 
00000 
00000 



00000 
00001 
00000 
07555 



76700 00022 
-0 32000 00303 
07400 2 00101 
00000 00000 
-000000000001 
00215 00000 
00000 00000 
00000 00001 
00000 00000 
00000 07337 

76700 00022 
-0 32000 00303 
07400 2 00101 
00000 00000 
-000000000001 
00112 00000 
00000 00000 
00000 00006 
00000 00000 
00000 06442 



SE5 
PREDP 



SE1 
SE 

BBBP 



60100 
34000 
00000 
00000 
02000 
63400 
50000 
12000 
07400 
50000 
62100 
50000 
60100 
50000 
07400 
50000 
56000 
22100 
20000 
60000 
50000 
40000 



00306 
00002 
00000 
00106 
00156 
00311 
00002 
00120 
00262 
00273 
00115 
00307 
00000 
00277 
00166 
00314 
00306 
00003 
00003 
00001 
00001 
00003 



SE21 



SE42 



SE24 
SE35 



HTR 
OCT 
HTR 
HTR 
HTR 
HTR 
HTR 

ALS 
ANA 
TSX 
HTR 
OCT 
HTR 
HTR 
HTR 
HTR 
HTR 

ALS 
ANA 
TSX 
HTR 
OCT 
HTR 
HTR 
HTR 
HTR 
HTR 



STO 
CAS 
TXH 
TXL 
TRA 
SXD 
CLA 
TMI 
TSX 
CLA 
STA 
CLA 
STO 
CLA 
TSX 
CLA 
LDQ 
DVP 
MPY 
STQ 
CLA 
ADO 



IN DECR. 1ST BB IN CM 
BB IN CM +1 

POS< 



IN CM 



N(0) 
-1 Nil) 

0»0*SUCCL N(S) 
SET NIL) 

1 S 

0(0) 
SUCC A 

PARAMETERS FOR PRED. TABLE 
18 

SEK4 
SE21>2 

N(0) 
-1 N(l) 

0»0»PREDL N(S) 
SET N(L) 

1 S 

SET 0(0) 
PR ED A 

PARAMETERS FOR BBB TABLE 
18 BB NO. IN ADDR. 
SEK4 BB NO. IN DECR. 
SE21»2 

N(0) 

-1 N(l) IN DECR»LAST 
0»0»BBBL N(S) IN DECR»NO.+ BBS 
SET N(L) IN DECR.NO. OF BBS 
6 S IN ADDR.tNO. OF WDS PER BB 
SET D(0) IN AOOR.»INITIAL DRUM ADDR. 
BBB A IN ADD*.. INITIAL CM ADDR 

2 ED PARAMETER IS + OR - ACCORDING 

AS CM SLOCK IS FULL OR EMPTY 

SR FOR SHUFFLING TAcSlES TO AND FROM DRUM 
SEV2 STOkt. ITEM NO«»N 
2*2 IS N IN CM 

SE42»0«- 

SE41 POSSIBLY 

SEV5»4 NO»STORE RETURN INDEX 

2t2 

SE35 IS CM BLOCK EMPTY 

SE22»4 NO#FORM CHECK SUM 

SE23 

SE24 STORE 

SEV3 CHECK 

SET SUM 

SEK 

SE26»4 

ZERO 

SEV2 N(0)=(INT. PT. ( N/NCS) ) .Nl S) 

3»2 

3»2 

1*2 

1»2 

3*2 



N(1)=MIN (N (0)+N(S) tN(L) ) 



F5G02170 

F5G02180 

F5602190 

F5G02200 

F5GO2210 

F5G02220 

F5G02230 

F5G02240 

F5G02250 

F5G02260 

F5G02270 

F5G02280 

F5G02290 

F5G02300 

F5G02310 

F5G02320 

F5G02330 

F 560 2 340 

F5G02350 

F5G02360 

F5G02370 

F5G02380 

F5G02390 

F5G02400 

F5G02410 

F5G02420 

F5G02430 

F5G02440 

F5G02450 

F5G02460 

F5G02470 

F5G02480 

F5G02490 

F5G02500 

F5G02510 

F5G02520 

F5G02530 

F5G02540 

F5G02550 

F5G02560 

F5G02570 

F5G02580 

F5G02590 

F5G02600 

F5G02610 

F5G02620 

F5G02630 

F5G02640 

F5G02650 

F5G02660 

F5G02670 

F5G02680 

F5G02690 

F5G027O0 



V 



00127 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 



56000 

-0 60000 

04000 

60100 

50000 

07400 

07400 

50000 

62100 

50000 

34000 

02000 

02000 

53400 

00001 

•0 63400 

-3 00U04 

07400 



00004 

00002 

00133 

00002 

00300 SE36 

00166 

00262 

00273 

00140 

00000 SE37 

00307 

00144 SE45 

00152 

00151 SE43 

00146 

00151 SE44 

00133 

00004 



00151 00000 00000 TPCT 

00152 -0 63400 00151 SE40 

00153 -0 53400 4 00311 

00154 50000 00306 

00155 02000 00156 



00156 





40200 


2 


00001 SE41 


00157 


-0 


12000 





00106 


00160 





76500 





00043 


00161 





20000 


2 


00005 


00162 





76300 





00021 


00163 





40200 





00304 


00164 





73400 


1 


00000 


00165 





02000 


4 


00001 


00166 


-0 


63400 


4 


00310 SE26 


00167 





60100 





00260 


00170 





56000 


2 


00003 


00171 





20000 


2 


00005 


00172 





76300 





00021 


00173 





40000 





00315 


00174 





60100 





00305 



LDQ 4»2 
STQ 2»2 
TLQ SE36 
STO 2»2 

CLA SEK1 TRANSFER IN A 

TSX SE26f4 BLOCK OF THE TABLE 

TSX SE22»4 CHECK SUM 

CLA SE23 COMPARE 

STA SE37 CHECK 

CLA SET SUMS 

CAS SEV3 

TRA SE43 

TRA SE40 AGREE 

LXD TPCT»4 

TXI SE44»4»1 

SXD TPCT»4 

TXL SE36>4*4 

TSX 4t4 TRIED 5 

NOTE ON THIS 150 STOP. 

BY MACHINE ERROR. 



REPEAT 5 TIMES 



IF IX 
77744 
77732 
77721 
77707 
TO SEE 



2 CONTAINS 



F5G02710 
F5G02720 
F5G02730 
F5G02740 
F5G02750 
F5G02760 
F5G02770 
F5G02780 
F5G02790 
F5G02800 
F5G02810 
F5G02820 
F5G02830 
F5G02840 
F5602850 
F5G02860 
TRY AGAIN F5G02870 

TIMES GO TO DIAGNOSTIC F5602880 

THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890 

F5G02900 
AND CHECK F5G02910 

40 • F5G02920 

51 ALL F5G02930 

63 OCTAL F5G02940 

75 F5G02950 

F5G02960 

RATH-F5G02970 

F5G02980 



IS 



TABLE 

STAG 

SUCC 

PRED 

BBB 
IF THE CHECKED LOCATION CONTENTS ARE LESS 
THAN THE CONTENTS OF 306 OCTAL. IF SO* SOURCE PROGRAM* 
ER THAN MACHINE ERROR IS LIKELY. THE ERROR COULD BE 



A. TRANSFER TO A NON-EXECUTABLE INSTRUCTION. 

B. UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM. 

C. LAST STATEMENT OF A DO IS A TRANSFER. 

D« INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT. 
HTR - 

SXD TPCT.O RESET TAPECOUNT 
LXD SEV5»4 RESTORE RETURN INDEX 
CLA SEV2 GET N AGANIN 
TRA SE41 

THE ITEM MIGHT BE IN STORAGE 
SUB 1»2 N-N{Q) 

TMI SE42 DOES IT LIE IN STORAGE 
LRS 35 YES»INDEX= 
MPY 5»2 COMHN-N(OLS) 
LLS 17 
SUB SEK5 
PAX 0*1 
TRA 1.4 

DRUM TRANSFER SUBROUTINE PROPER 
SXD SEV4.4 STORE RETURN INDEX AND ITEM NO. 
STO SE25 STORE READ-WRITE INDICATOR 
LDQ 3»2 FORM 
MPY 5«2 N(S)*S+1 
LLS 17 AND 
ADD ONEA STORE 
STO SEV1 IT 



TO BE TRANSFERRED 



F5G02990 
F5G030O0 
F5G03010 
F5G03020 
F5G03030 
F5603040 
F5G03050 
F5G03060 
F5G03070 
F5G03080 
F5G03090 
F5G03100 
F5G03110 
F5G03120 
F5G03130 
F5G03140 
F5G03150 
F5G03160 
F5G03170 
F5G03180 
F5G03190 
F5G03200 
F5G03210 
F5G03220 
F5G03230 
F5G03240 



o 



u 



00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 



50000 
56000 
22100 
20000 
60000 
50000 
40000 
60100 
76700 
76000 
73400 
07400 
50000 
40200 
76500 
20000 
50000 
32000 
40200 
76000 
04000 
73400 
40000 
62100 
40200 
60000 
40200 
40200 
76000 
60100 
40000 
62100 
46000 
70000 
2 00001 
00001 
07400 
53400 
70000 
00001 
53400 
02000 
76300 
40000 
73400 
40000 
62100 
46000 
70000 
00001 
02000 
76200 
02000 



00314 
00001 
00003 
00305 
00305 
00006 
00305 
00313 
00007 
00006 
00000 
00260 
O00O2 
00001 
00065 
00005 
00313 
00301 
00302 
00003 
00247 
00000 
00007 
00236 
00007 
00305 
00305 
00315 
00003 
00305 
00236 
00243 
00313 
00000 
00236 
00241 
00260 
00305 
00000 
00243 
00310 
00001 
00043 
00315 
00000 
00007 
00255 
00313 
00000 
00255 
00245 
00300 
00001 



SE28 
SE27 



SE30 
SE29 
SE34 
SE31 



SE33 
SE32 



SE25 



ZERO FORM 

1*2 ((N(0)/N(SM 

3*2 (N(SH5 + 1M 

SEV1 

STQ SEV1 INITIAL DRUM ADDRESS 
CLA 6»2 =D{0) + {N0N{S))$(N(SUS=1) 
ADD SEV1 

STO SEV7 SET LDA INSTRUCTIONS 
ALS 7 COMPUTE THE 

DRUM SELECTION 

0*1 INDEX 
TSX SE25»4 SELECT DRUM 
CLA 2*2 

1*2 (N(l)-NtOnS 

53 INTO MQ 

5»2 

SEV7 FORM NO. OF 

SEK2 WORDS LEFT ON 

SEK3 DRUM GROUP 



CLA 
LDQ 
DVP 
MPY 



COM 
PDX 



SUB 
LRS 
MPY 
CLA 
ANA 
SUB 
SSP 
TLQ 
PAX 
ADD 



SE31 MUST BLOCK BE SPLIT 

0f4 YES 

7»2 SET INDEX AND 
STA SE27 COMPUTE ADDRESS OF 1ST CPY 
SUB 7*2 COMPUTE NO. 
STO SEV1 OF WORDS IN 
SUB SEV1 2 ED TRANSFER 
SUB ONEA 
SSP 

STO SEV1 
ADD SE27 

STA SE29 SET 2 ED CPY 
LDA SEV7 

CPY SET*4 TRANSFER 
TIX SE27.4.1 1ST BLOCK OF WORDS 
TIX SE30»1»1 DECREASE C(l) BY 1 
TSX SE25»4 SELECT DRUM 
LXA SEV1*4 
CPY SET»4 TRANSFER 
TIX SE29*4»1 2 EDBLOCK 
LXD SEV4*4 
TRA 1*4 RETURN 
LLS 35 (N(1)-N(0)).S+1 
ADD ONEA WORDS ARE TO 
PAX 0*4 BE TRANSFERED 
ADD 7*2 
STA SE32 
LDA SEV7 
CPY SET»4 
TIX SE32»4»1 
TRA SE34 

RDS 192*1 (OR WRSJ DRUM 
TRA 1*4 SELECTION SUBROUTINE. 
CHECK SUM SUBROUTINE 



F5G03250 

F 5 GO 3 260 

F5G03270 

F5G03280 

F5G03290 

F5G03300 

F5G03310 

F5G03320 

F5G03330 

F5G03340 

F5G03350 

F5G03360 

F5G03370 

F5G03380 

F5G03390 

F5G03400 

F5G03410 

F5G03420 

F5G03430 

F5G03440 

F5G03450 

F5G03460 

F5G03470 

F5G03480 

F5G03490 

F5G035OO 

F5G0351Q- 

F5G03520 

F5G03530 

F5G03540 

F5G03550 

F5G03560 

F5G03570 

F5G03580 

F5G03590 

F5G03600 

F5G03610 

F5G03620 

F5G03630 

F5G03640 

F5G03650 

F5G03660 

F5G03670 

F5G03680 

F5G03690 

F5G03700 

F5G03710 

F5G03720 

F5603730 

F5G03740 

F5G03750 

F5G03760 

F5G03770 

F5G03780 



/ 



00262 
00263 
00264 
00265 
00266 
00267 
00270 

00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00310 
00311 
00312 
00313 
00314 
00315 
00316 

00317 
00320 

00321 
00322 
00323 
00324 
00325 
00326 
00327 

00330 
00331 
00332 

00333 
00334 
00335 

00336 
00337 
00340 
00341 



50000 
40200 
76500 
20000 
76300 
73400 
40000 



00002 
00001 
00043 
00005 
00021 
00000 
00007 



62100 00273 
50000 00314 
36100 1 00000 
2 00001 1 00273 
60200 00307 
02000 4 00001 
76600 1 00300 
76200 1 00300 
00OO0 03777 
00000 04000 
77777 00000 
00000 1 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
+000000000000 
00000 00001 
00001 00000 

00006 00000 
00000 00010 
00317 
77777 00000 
00001 00000 

-377777777777 
77777 7 77777 
00036 00000 

+000000777777 
77777 00000 

00000 01224 
00000 00017 
00000 05216 

+000000777776 
-200000000000 
-300000000000 

+000000777777 
+000000777775 
-0O0O00000000 
00000 00002 



SE22 CLA 2*2 

SUB Ii2 COMPUTE 

LRS 35 (N(D-NIO)I.S 

MPY 5»2 THE NUMBER OF WORDS 

LLS 17 TO BE SUM 

PAX 0»1 CHECKED 

ADO 7 #2 COMPUTE AND STORE 

ADDRESS OF WORD 
STA SE23 FOLLOWING LAST TABLE WORD. 
CLA 2ER0 CLEAR SUM CHECK. 
SE23 ACL -»1 FORM THE 

TIX SE23»1#1 SUM CHECK. 

SLW SEV3 

TRA 1»4 

WRS 192*1 WRS.192tl 

RDS 192»1 RDS»192tl 

HTR 2047 MASK TO EXTRACT LAST 11 BIT 

HTR 2048 2048 IN ADDR. 

HTR 0»Ot-l IN DECR. PART 

HTR 0»1 2 15 

NS.S+1 TEMP STORAGE 

STORAGE OF N (DECR.) 

STORAGE OF CK SUM. 

RETURN FROM SE 26 

RETURN FROM SE 

STORE N TO BE TRANSFERRED 

INITIAL DRUM ADDR. 
OCT 
HTR 1 
HTR OtO»l 

CONSTANTS USED IN SI 
HTR 0t0»6 CONSTANT WHICH LOOKS LIKE PASS. REF. 
HTR 8 NO. OF S3 VARIABLES SAVED. 
SYN S1K2 

HTR 0»0*-l ONES IN DECR. PART. 
HTR 0.0.1 CONST. USED TO TEST FOR LX. 
OCT -377777777777 END LOOP LIST SENTENIAL 
HTR -l.-l.-l USED FOR CF TO FIND OUT IF THIS 
HTR 0.0.S3P1 INITIALIZING CONST. FOR LOOP LIST 
OCT 777777 MASK TO EXTRACT LAST 1/2 WORD. 
HTR O.O.-l MASK TO EXTRACT INST. TYPE 
CONSTANTS OF S4 

CMTL SIZE OF STORAGE FOR TAG TABLE. 
HTR 15 NO OF TAGS PER RECORD. 
HTR CMTAG 

THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5 

OCT 777776 E.HA5H SYMBOL 

OCT -200000000000 CONSTANTS FOR EXTRACTING 

OCT -300000000000 1ST 2»3 BITS OF WORD RESPT. 

CONSTANTS FOR MATCHING SUBROUTINE 

OCT 777777 PHI » EMPTINESS 

OCT 777775 CONSTANT USED TO TEST FOR REAL TAGS 

OCT -0-0 

HTR 2 +2 



SEK 
SEK1 
SEK2 
SEK3 
SEK4 
SEK5 
SEV1 
SEV2 
SEV3 
SEV4 
SEV5 
SEV6 
SEV7 
ZERO 
ONEA 
ONED 

S1K2 

S1K3 

C 

S2K1 

S2K2 

S3K1 

S3K2 

S3K3 

S3K4 

S3K5 

S4K1 
S4K2 
S4K3 

LK1 
LK2 
LK3 

S5K1 
S5K2 
S5K3 
S5K4 



IS BB 



F5G03790 

F5G038O0 

F5G03810 

F5G03820 

F5G03830 

F5G03840 

F5G03850 

F5G03860 

F5G03870 

F5G03880 

F5G03890 

F5G03900 

F5G03910 

F5G03920 

F5G03930 

F5G03940 

F5G03950 

F5G03960 

F5G03970 

F5G03980 

F5G03990 

F5G04000 

F5G04010 

F 5604020 

F5G04030 

F5G04040 

F5G04050 

F5G04060 

F5G04070 

F5G04080 

F5G04090 

F5G04100 

F5G04110 

F5G04120 

F5G04130 

F5G04140 

F5G04150 

F5G04160 

F5G04170 

F5G04180 

F5G04190 

F5G04200 

F5G04210 

F5604220 

F5G04230 

F5G04240 

F5G04250 

F5G04260 

F5G04270 

F5604280 

F5G04290 

F5G04300 

F5G04310 

F5G04320 



H% 



U 



U 



00342 
00343 
00344 
00345 
00346 
00347 
00350 
00351 

00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00370 
00371 

00372 
00373 
00374 
00375 
00376 
00377 
00400 

00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 



00000 
00000 
00000 
00000 1 
00000 2 
00000 4 
00003 
00000 



00003 
00010 
00004 
00000 
00000 
00000 
00000 
07776 



+001000000000 
00000 77777 
00004 00000 
04741 00000 
+177777077777 
+277777077777 

00000 7 00000 
+177777777777 

00000 00062 
-000000000000 
+200000000000 
+100000000000 
-377776000000 
-300000000000 
+200000000000 
00000 00011 
00363 
+000001000000 
00005 00000 
00004 
00007 
00002 
00000 
00000 



00000 
00000 
00000 
00000 
00000 
00366 
-377777000000 
-377700777777 

00003 00000 
-377777077777 
00000 1 00000 
00000 2 00000 
00000 4 00000 
00000 00000 
00000 00000 



S5K5 
S5K6 
S9K1 
S9K2 



S9K3 
SAK1 

SBK1 

SBK2 

SBK3 

SCK1 

FK1 

FK2 

FK3 

FK4 

FK5 

XK3 



XK4 

XK5 

XK6 

XK9 

XK10 

XK11 

XK12 

XK13 

XK14 

XK15 

XK16 

XK17 

XK18 

XK19 

XK20 

XK21 

XK22 

XK23 



S1V1 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



HTR 
HTR 
HTR 



HTR 



OCT 
HTR 
HTR 
HTR 
OCT 
OCT 
HTR 
OCT 
HTR 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
HTR 
SYN 
OCT 
HTR 
HTR 
HTR 
HTR 
HTR 
PON 
SYN 
OCT 
OCT 
HTR 
OCT 
HTR 
HTR 
HTR 

HTR 
HTR 
HTR 
HTR 
HTR 
HTR 
HTR 



3 +3 
8 +8 

4 +4 

0*1 MASK FOR PHI DIGIT NO. 1 

0»2 MASK FOR PHI DIGIT NO. 2 

0*4 MASK FOR PHI DIGIT NO. 3 

0»0»3 MASK TO EXTRACT 2 BITS IN DECR. 

4094 CONST USED TO TEST NON EXISTENT BB 

CONSTANTS OF SB 

+001000000000 CONST. USED TO GENERATE SX BIT. AD. 

-1 USED TO EXTRACT ADDR. 

0*0*4 CONST. TO GENERATE SX BIT FOR TRANSFER 

177777077777 TRANSPARANT REGION CONST 

277777077777 OPAQUE REGION CONST 

0»7 MASK TO EXTRACT TAG. 

177777777777 CONST TO TEST FOR OPAQUE REG. 

FP1 LENGTH OF REGION LIST 

-0 3 CONSTANTS USED TO 

200000000000 CHANGE REGION WDS. 

100000000000 TO INDICATE IRS LX ED. 

-377776000000 EtHASH SYMBOL* IN LQT HALF 

-300000000000 MASK FOR PREFIX 

200000000000 

9 

XK3 MASK TO EXTRACT 1ST IN BB FIT* 

1000000 CONST. TO GENERAGE LX BIT. 

0*0*5 4 CONSTS. USED TO TEST FOR ACTIVE 

0*0*4 TNX 

Q»0»7 TIX 

0*0*2 LXP 

0*4 CONST. TO GENERATE LX BIT. 

CONST. TO SEPARATE TYPES 
XK4 E IN LEFT HALF WORD* 
-377777000000 MASK LEFT HALF WORD. 
-377700777777 CONST. TO DELETE PERM. NOS. 
0*0*3 CONST. TO TEST FOR DED INST. 
-377777077777 CONST. TO DELETE PHIS. 
0*1 
0»2 
0*4 
TEMP. STORAGE FOR 



S1V3 
S1V4 
S1V5 
S1V6 
S1V7 



1ST 9 VARIABLES 
IN S3 



THE CLA IN S3 

RETURN INDEX 

C +7- > "DECIDE ON (MOST/LEAST) REPL* I.R» 

TEMP 

STORAGE 



F5G04330 
F5G04340 
F5G04350 
F5G04360 
F5G04370 
F5G04360 
F5G04390 
F5G04400 
F5G04410 
F5G04420 
F5G04430 
F5G04440 
F5G04450 
F5G04460 
F5G04470 
F5G04480 
F5G04490 
F5G04500 
F5G04510 
F5G04520 
F5G04530 
F5G04540 
F5G04550 
F5G04560 
F5G04570 
F5G04580 
F5G04590 
F5G04600 
F5G04610 
F5G04620 
F5G04630 
F5G04640 
F5G04650 
F5G04660 
F5G04670 
F5G04680 
F5G04690 
F5G04700 
F5G04710 
F5G04720 
F5G04730 
F5G04740 
F5G04750 
F5G04760 
F5G04770 
F5G04780 
F5G04790 
F5G04800 
F5G04810 
F5G04820 
F5G04830 
F5G04840 
F5G04850 
F5G04860 



00425 





00000 





ooooo 


IR1 


00426 





00000 





ooooo 


IR2 


00427 





00000 





ooooo 


IR3 


00430 





00000 





ooooo 


IRR 


00431 





00000 





ooooo 


1ND1 


00432 





00000 





ooooo 


IND2 


00433 





00000 





ooooo 


IND3 


00434 





00000 





ooooo 


IN4 


00435 





00000 





ooooo 


S3V1 


00436 





00000 





ooooo 


S3V2 


00437 





00000 





ooooo 


S3V3 


00440 





00000 





ooooo 


S3V4 


00441 





00000 





ooooo 


1TAG 


00442 





ooooo 





ooooo 


TPE 


00443 





00000 





ooooo 


I NT AG 


00444 





ooooo 





ooooo 


S3V5 


00445 





ooooo 





ooooo 


S3V8 


00446 





ooooo 





ooooo 


S3V6 


00447 





ooooo 





ooooo 


S3V7 


00450 





ooooo 





ooooo 


S3V9 


00451 





ooooo 





ooooo 


S4V1 


00452 





ooooo 





ooooo 


S4V2 


00453 





ooooo 





ooooo 


S4V3 


00454 





ooooo 





ooooo 


S4V4 


00455 





ooooo 





ooooo 


IR4 


00456 





ooooo 





ooooo 


IR5 


00457 





ooooo 





ooooo 


IR6 


00460 





ooooo 





ooooo 


ENC 


00461 





ooooo 





ooooo 


IRC 



00462 OOOOO 00000 INI 

00463 OOOOO OOOOO IN2 

00464 OOOOO OOOOO IN3 

00465 OOOOO OOOOO EN4 

00466 OOOOO OOOOO EN5 



THE IR1.2.3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS* F5G04870 
AND CONTAIN A REAL TAG* THE EMPTY SYMBOL 777777* OR THE HASH F5G04880 
SYMBOL 777776. (HASH MEANS THE REGISTER IS NOT EMPTY BUT F5G04890 
ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 ORF5G04900 
DED COMPILED IN SECTION 2. (LXP IS A WARNING THAT ALTHOUGH IRF5G04910 
IS VALUELESS. IT WILL BE LOADED VERY SOON WITH A NEW VALUE. ) )F5G04920 



THE 3 WR.S IN 

THE LAST 1/2 OF REGISTER 

HOLDS 3*2*1 IF IR1»2*3 SELECTED 

+ OR - ACCORDING AS IR1 FOUND OR IR1 NOT FOUND 
+ OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND 
+ OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND 

+F OR - IF IR HAS OR HASNT BEEN FOUND 

VARIABLES OF S3 SUBROUTINE 

LOCATION OF 1ST TAG IN BB 

TAG COUNTER* IN DECR. PART. 

+ NO. OF TAGS LEFT IN BB AFTER T1X*0R- 

LOOP LIST INDEX. 

THE TAN-TAG 

THE TYPE OF INSTR. 

TAG + INSTR. TYPE (ENTRY IN TAG LIST) 

LOOP LIST QUANTITY 

RETURN INDEX 

(1ST TAG IN BB-1ST TAG IN CM.) 

NO. OF WORDS LEFT IN CM. 

(+/-)= (THIS IS NOT NEW BB/THIS IS NEW BB ) 

VARIABLES OF S4 

LOC OF 1ST TAG IN CMTAG 

LOC OF 1ST TAG IN NEXT RECORD (TAPE POS.) 

(LOC OF LAST TA6)+ 1 

ABOVE MUST BE SET AT START. 

(LOC. OF 1ST TAG IN 6B-P0S OF TAPE) 

VARIABLES FOR MATCHING SUBROUTINE S5 

TEMP* STORAGE FOR C (IR1) 

(IR2) 
(IR3) 



TEMP. STORAGE FOR 

TEMP. STORAGE FOR 

COUNTER OF = 

COUNTER OF * 
THE IN 1*2*3* EN4.5*6 CELLS ARE LOADED BY THE S5 ROUTINE 
FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN 
ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST. 
OPTIMIZED MATCH TO CURRENT CONTENTS OF IR1>2*3 IS SECURED BY 
PERMUTING THE ENTIRE REGION AS NECESSARY. THE INl»2*3 
AND EN4.5.6 CELLS LINK THE OUTMODED SYSTEM EN1*2»3» EX1.2»3 
ACT1*2»3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1.2*3» 
AC1»2*3» LX1.2>3. FOR EXAMPLE EN4 IS 3»2»ORi DEPENDING ON 



WHETHER THE CORRESPONDENT OF EN1 IS IR 1»2,0R 3. 
INI IS 3»2*0R1 FOR THE CORRESPONDENT OF IR1 EQUAL 

INDEX OF CORRES OF IR1 

INDEX OF CORRES OF IR2 

INDEX OF CORRES OF IR3 

INDEX OF CORRES OF EN1 

INDEX OF CORRES OF EN2 



F5G04930 
F5G04940 
F5G04950 
F5G04960 
F5G04970 
F5G04980 
F5G04990 
F5G05000 
F5G05010 
F5GO502O 
F5G05030 
F5G05040 
F5G05O50 
F5G05060 
F5G05070 
F5G05080 
F5G05090 
F5G05100 
F5G05110 
F5G05120 
F5G05130 
F5G05140 
F5G05150 
F5G05160 
F5G05170 
F5G05180 
F5G05190 
F5G05200 
F5G05210 
F5G05220 
F5G05230 
F5G05240 
F5G05250 
F5G05260 
F5G05270 
F5G05280 
F5G05290 
F56053O0 
F5G05310 
F5G05320 
F5G05330 
F5G05340 



INVERSELY* 

TO EN1»2»3.F5G05350 
F5G05360 
F5G05370 
F5G05380 
F5G05390 
F5G05400 



U-J 



u 



o 



00467 





00000 





ooooo 


EN6 


00470 





00000 





ooooo 


EN1 


00471 





ooooo 





ooooo 


EN2 


00472 





00000 





ooooo 


EN3 


00473 





ooooo 





ooooo 


S5V1 


00474 





ooooo 





ooooo 


S5V2 


00475 





ooooo 





ooooo 


S9V1 


00476 





ooooo 





ooooo 


S9V2 


00477 





ooooo 





ooooo 


S9V4 


00500 





ooooo 





ooooo 


SAV1 


00501 





ooooo 





ooooo 


SAV2 


00502 





ooooo 





ooooo 


SAV3 


00503 





ooooo 





ooooo 


EX1 


00504 





ooooo 





ooooo 


EX2 


00505 





ooooo 





ooooo 


EX3 


00506 





ooooo 





ooooo 


ACT1 


00507 





ooooo 





ooooo 


HTR 


00510 





ooooo 





ooooo 


HTR 


00511 





ooooo 





ooooo 


SBV1 


00512 





ooooo 





ooooo 


SBV2 


00513 





ooooo 





ooooo 


SBV3 


00514 





ooooo 





ooooo 


SBV4 


00515 





ooooo 





ooooo 


SBV5 


00516 





ooooo 





ooooo 


scvi 


00517 





ooooo 





ooooo 


SCV2 


00520 





ooooo 





ooooo 


SCV3 


0C521 





ooooo 





ooooo 


AC I NO 


00522 





ooooo 





ooooo 


SDV1 


00523 





ooooo 





ooooo 


SDV2 


00524 





ooooo 





ooooo 


SDV3 


00525 





ooooo 





ooooo 


SDV4 


00526 





ooooo 





ooooo 


SFV1 


00527 





ooooo 





ooooo 


SFV2 


00530 





ooooo 





ooooo 


SGV1 


00531 





ooooo 





ooooo 


SGV2 


00532 





ooooo 





ooooo 


FV1 


00533 





ooooo 





ooooo 


FV2 


00534 





ooooo 





ooooo 


FV3 


00535 





ooooo 





ooooo 


FV4 


00536 





ooooo 





ooooo 


FV5 


00537 





ooooo 





ooooo 


FV6 


005^0 





00000- 





ooooo 


FV7 


00541 





00000 





ooooo 


FV8 


00542 





ooooo 





ooooo 


FV9 


00543 





ooooo 





ooooo 


FV10 


00544 





ooooo 





ooooo 


FV101 


00545 





ooooo 





ooooo 


FV102 


00546 





ooooo 





ooooo 


FV103 


00547 





ooooo 





ooooo 


FV104 



INDEX OF CORRES OF EN3 
THE ENTRANCE REOUIREM 
ENTS EN1>ENZ»EN3. 

TEMP. STORE FOR RETURN INDEX. 

TEMP STORE FOR LOOP LIST QUANT. 

TEMP. STORE FOR BB NO. 

TEMP. STORE FOR RETURN INDEX 

TEMP. STORE FOR REGION WORD. 

VARIABLES OF SA SUBROUTINE (WHICH GETS EXIT CONDITIONS 

TEMP STORE FOR PERMUTATION NQS. 

RETURN INDEX. 

TEMP. STORE FOR REGION WORD. nn 

THE EX1»2»3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR A BB 
HAS ALREADY BEEN TREATED. 

3 EXIT CONDITIONS 

THE ACT 1#2.3 CELLS CONTAIN ACTIVITY OF AN ALREADY TREAT 

3 ACTIVE 

INDICATORS 

VARIABLES OF SB 

RETURN INDEX 

TEMP. STORAGE. 

TEMP. STORAGE. 

INDEX OF REGISTER WHICH IS ACTIVE. 

STORAGE FOR PERMUTATION NOS. 

RETURN INDEX 

INDEX OF BB. 

INDEX OF POSITION IN LOOP LIST 

+ OR - MEANS 2ED OR ACTIVE PASS 

STORE FOR RETURN INDEX. 

INDEX OF ACTIVE I.R. 

THE PERMUTATION NOS. 

TEMP. STORE FOR INDEX OF BB 

ACTIVE INDICATOR FORMED HERE. 

RETURN INDEX. 

RETURN INDEX 
PERMUTED REGION WORD 

HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY) 

BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.) 

PRED. NO. (I.C. OTH WORD FROM BB. (ADDR.) 

WORD HAVING REGION NO. ( 5TH BB WORD) 

CURRENT BB NO. BEING CONSIDERED. (ADDR.) 

RETURN INDEX OF F1»F80 

PRED. NO. BEING CONSIDERED IN B.B. (ADDR.) 

FIRST PRED. FROM NEXT B.B. (ADDR.) 
0»0»- TEMP STORE FORCURRENT SUCC IN DECR ONLY 
O.O.- TEMP STORE IN DECR ONLY* CURRENT SUCC 

HIGHEST FREQ. IN BB (PRED. TABLE ENTRY) 

BB NO. BEING CONSIDERED. (ADDR.) 

PRED. NO. (OTH WORD FROM BB) (ADDR.) 

WORD HAVING REGION. NO. 



F5G05410 
F5G05420 
F5G05430 
F5G05440 
F5G05450 
F5G05460 
F5G05470 
F5G05480 
F5G05490 

} F5G05500 
F5GO5510 
F5G05520 
F5G05530 
THATF5G05540 
F5G05550 
F5G05560 
F5G05570 
F5G05580 

ED BBF5G05590 
F5G05600 
F5G05610 
F5G05620 
F5G05630 
F5G05640 
F5G05650 
F5G05660 
F5G05670 
F5G05680 
F5G05690 
F5G05700 
F5G05710 
F5G05720 
F5G05730 
F5G05740 
F5G05750 
F5G05760 
F5G05770 
F5G05780 
F5G05790 
F5G05800 
F5G05810 
F5G05820 
F5G05830 
F5G05840 
F5G05850 
F5GO5860 
F5G05870 
F5G05880 
F5G05890 
F5G05900 
F5G05910 
F5G05920 
F5G05930 
F5G05940 



) »/ 



00350 





00000 





00000 


LPIND 


00551 





00000 





00000 


LV1 


00552 





00000 





00000 


LV2 


00553 





00000 





00000 


LV3 


00554 





00000 





00000 


LV4 


00555 





00000 





00000 


LV5 



00556 00000 00000 AC1 

00557 00000 00000 AC2 

00560 00000 00000 AC3 

00561 00000 00000 



00562 





00000 





ooooo 


LX1 


00563 





00000 





ooooo 


LX2 


00564 





00000 





ooooo 


LX3 


00565 





00000 





ooooo 


XVI 


00566 





ooooo 





ooooo 


XV2 


00567 





00000 





ooooo 


XV3 


00570 





ooooo 





ooooo 


XV4 


00571 





ooooo 





ooooo 


XV5 


00572 





ooooo 





ooooo 


XV6 


00573 





ooooo 





ooooo 


XV7 


00574 





ooooo 





ooooo 


XV8 



+ OR - IF IT ISNT OF IS A LOOP F5G05950 

THE CONDITIONS OF THE URtS F5605960 

AT END OF THE F5G05970 

1ST LXING PASS. F5G05980 

THE LOOP LIST QUANTITY F5G05990 

WORD FROM BB WITH PRED. AND SUCC. LOCS F5G06000 

VARIABLES OF 2ED LXING PASS. F5G06010 

ACTIVITY. WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS» F5G06020 

IF AN LX» TXI* OR TIX IS ENCOUNTERED* THE APPROPRIATE INDEX F5G06030 

REGISTER BECOMES ACTIVE. THIS IS PLUS ACTIVITY. IF THE SAMEF5G06040 

REGISTER MUST BE DISPLACED IN THE SAME LPLST* SB IS ENTERED F5G06050 

TO RECORD AN SX NECESSARY. SINCE THE ACTIVITY IS PLUS* THE F5G06060 

SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE F5G06070 

INSTRUCTION. THIS SX ENDS THE ACTIVITY* COMPLETELY TAKING F5G06080 

CARE OF THE PROBLEM. AT THE END OF LPLST* IF THE INDEX F5G06090 

REGISTER IS STILL ACTIVE* OR IF* DURING LPLST* AN ACTIVE F5G06100 

REGISTER FALLS OBSOLETE BY A DED OR LXD* THEN ALL THE BLOCKS F5GO6110 

IN WHICH IT IS ACTIVE ARE MARKED BY SC» MAKING THIS ACTIVITY F5G06120 

MINUS. THIS* UNLIKE PLUS ACTIVITY* CAN NEVER BE ENDED. THE F5G06130 

APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE F5G06140 

APPROPRIATE AC1»2*0R3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150 

THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED* AN SB F5G06160 

ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM F5G06170 

THAT BB. THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180 

INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190 

OF SX*S THAN STRICTLY NECESSARY* BUT PLACES THEM IN LOW F5G06200 

FREQUENCY PATHS* TRADING OBJECT PROGRAM SPACE FOR OBJECT F5G06210 

PROGRAM TIME. F5606220 

THE AC1»2»3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1»2»3. F5G06230 

ZERO. ♦.NOT ACTIVE* PLUS ACTIVITY. .♦ACTIVE INSTRUCTION IN A F5G06240 

BB NOT TREATED UNTIL THIS LPLST. AC1»2*3 CONTAINS INFO. F5G06250 

FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION. F5G06260 

MINUS ACTIVITY^.. ACTIVE INSTR. IN BB ALREADY IN A REGION. F5G06270 

AC1*2#3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK F5G06280 

OUT OF THE REGION. F5G06290 

3 ACTIVE INDICATORS»+0 MEANS NOT ACTIVE F5G06300 

IF + VE*THEN ACTIVE THING IS INSTR.* DECR. IS F5G06310 

LOC. OF BB IN LOOP LIST»ADDR. IS LOC. OF Y-TAG. IF-VE* F5G06320 

HTR ACTIVE THING IS TRANSFER* LOC. IN LP LST IN DECR. F5G06330 

THE LX1*2*3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340 

3 ENTRANCE REQUIREMENTS OF A BB F5G06350 

BUILT UP HERE. +0 MEANS F5G06360 

NO ENTRANCE REQU. DETERMINED. F5G06370 

IN DECR.* INDEX OF CURRENT REGION F5G06380 

THE NEW REGION WORD. F5G06390 

THE WORD POSITION IN STAG F5G06400 

THE DIGIT INDEX WITHIN THE WORD. F5G06410 

THE LOCATION OF CURRENT TAG (INSTR.) F5G06420 

NEAR X07»C.F. OF TNX BRANCH»NEAR X85* TAG F5G06430 

X07 TO X09+* INDEX OF BB»NEAR X85»TAG F5G06440 

INDEX OF BB NEAR X33 F5G06450 

PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN F5G06460 

ALREADY TREATED REGION ARE PERMUTED* STAG* PRED AND BBB MUST F5G06470 



BE UPDATED. INSTEAD* WORD 2 OF BBB CONTAINS PERMUTATION 



F5G06480 



o 



u 



00575 





00000 





00000 


XV9 


00576 





00000 





00000 


XV10 


00577 





00000 





00000 


XV11 


00600 





00000 





00000 


XV12 


00601 





00000 





00000 


XV13 


00602 





00000 





00000 


XV14 


00603 





00000 





00000 


XV15 


00604 





00000 





00000 


XV16 


00605 





00000 





00000 


XV17 


00606 





00000 





00000 


XV18 


00607 





00000 





00000 


XV19 


00610 





00000 





00000 


XV20 


00611 





00000 





00000 


XV21 


00612 





00000 





00000 


XV22 


00613 





00000 





00000 


XV23 


00614 





00000 





00000 


XV24 


00615 





00000 





00000 


AVI 


00616 


0, 


00000 





00000 


AV2 


00617 





00000 





00000 


AV3 



NUMBERS THROUGH WHICH THESE TABLES ARE READt AND UPDATING F5G06490 
REQUIRES ONLY THESE NUMBERS TO BE CHANGED. IN SECTION 5 PARTF5G06500 
2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED* THE TABLES F5G06510 
THEMSELVES ARE ACTUALLY UPDATED. 

THE PERMUTATION NOS. 

INDEX OF I.R. IN BB CONSIDERED. 



00620 
00621 
00622 
00623 
00 62 A 
00625 
00626 
00627 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00640 
00641 
00642 
00643 
00644 
00645 
00646 
00647 
00650 



76000 

02000 

760O0 

60100 

63400 

76000 

60100 

60100 

60100 

60100 

53400 

53400 

50000 

34000 

77445 

02000 

00001 

77442 

53400 

02000 

50200 

12000 

60100 1 

56000 

60100 



00003 
00623 
00003 
00422 
00421 
00003 
00431 
00432 
00433 
00434 
00641 
00342 
00430 
00000 
00640 
00644 
00634 
00662 
00636 
00633 
00422 
00656 
00434 
00434 
00434 



Sill 

SI 
S109 



S119 
S120 

S121 

S122 
S123 



S124 



INDEX OF PARTICULAR BB X40 ON 
TEMP. STORE FOR 2 INDEXES 
WHILE USING SUBROUTINE. 

TEMP. STORE FOR PRED.= »X91-2+X90»X92 X97 ON 
TEMP. STORE FOR OLD REGION WD. »X74 
IN ADDR..X111.N0. OF SUCC. WE SEARCH FOR. 
TEMP STORE FOR PREVIOUS LPLST QUANTITY 
TEMP STORE IN DECR. ONLY 
TEMP STORE FOR TAG NEAR X43 
NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED 
DECR ONLY » TEMP STORE FOR REGION INDEX 

OR NOTO IF IS OR ISNT SAME AS 1ST REGION 
TEMP. STORE FOR PRED. TABLE ENTRY. 
TEMP. STORE FOR INDEX OF I.R. 
TEMP. STORE FOR PERM, NOS. 
THE SI AND Sill ROUTINES SELECT THE MOST (SI) OR THE LEAST 
IS111) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD 
THROUGH LPLST. THE IR WHOSE CONTENTS ARE REQUIRED AGAIN 
SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE. THESE 
ROUTINES USE THE S2 SUBROUTINE* WHICH ACTUALLY TRIES TO 
SELECT AN IR. 
SSM SET INDICATOR TO-MEANING 
TRA S109 SEARCH FOR LEAST REPLACEABLE I.R. 
SSP SET INDICATOR TO + MEANING 
STO S1V5 SEARCH FOR MOST REPLACEABLE I.R. 
SXD S1V4.4 STORE RETURN INDEX. 
SSM SET 

STO IND1 INDICATORS 
STO IND2 TO 
STO IND3 NOT 
STO IN4 FOUND. 

LXD S123.2 SET TO LOOP FOR EMPTY I.R. 
LXA S5K5.1 SET COUNT TO 3» N TO 1 
CLA IR1+3.1 IS IRN EMPTY OR 
CAS 0.2 (FILLED WITH HASH) 

TXL S122»0.-LK1 N0» COM(LOC. OF HASH) IN DECR. 
TRA S124 YES. 

TIX S120.1.1 NO»COUNT TO 3#N=N+1 
TXH S127»2.-S5K1 HAVE WE LOOKED FOR HASH 
LXD S121.2 NO. SET TO LOOP FOR HASH. 
TRA S119 

CLS S1V5 LOOKING FOR MOST REPLACEABLE 
TMI S129 I.R. 

STO IND1+3»1 N0» RECORD IRN ELIMINATED 
LDQ IN4 
STO IN4 RECORD SOME IR ELIMINATED 



F5G06520 
F5G06530 
F5G06540 
F5G06550 
F5G06560 
F5G06570 
F5G06580 
F5GQ6590 
F5^06600 
F5G06610 
F5G06620 
F5G06630 
F5G06640 
F5G06650 
F5G06660 
F5G06670 
F5G06680 
F5G06690 
F5G06700 
F5G06710 
F5G06720 
F5G06730 
F5G06740 
F5G06750 
F5G06760 
F5G06770 
F5G06780 
F5G06790 
F5G06800 
F5G06810 
F5G06820 
F5606830 
F5G06840 
F5G06850 
F5G06860 
F5G06870 
F5G06880 
F5G06890 
F5G0690O 
F5G06910 
F5G06920 
F5G06930 
F5G06940 
F5G06950 
F5G06960 
F5G06970 
F5G06980 
F5G06990 
F5G07000 
F5G07010 
F5G07020 



-/' 



00651 
00652 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
00674 
00675 
00676 
00677 
00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 
00724 
00725 
00726 
00727 
00730 
00731 
00732 
00733 
00734 
00735 
00736 



16200 
02000 
53400 
50000 
12000 
63400 
02000 
00001 
07400 
50000 
60100 
53400 
50000 
60100 
0000 1 
07400 
02000 
50000 
34000 
02000 
02000 
07400 
02000 
02000 
50000 
34000 
02000 
02000 
02000 
34000 
02000 
02000 
50000 
34000 
76100 
02000 
02000 
34000 
02000 
02000 
07400 
56000 
60000 
53400 
50000 
77100 
60200 
63400 
63400 
07400 
02000 
53400 
53400 
77777 



00653 
00640 
00342 
00434 
00660 
00430 
00001 
00654 
00004 
01122 
00420 
00320 
00445 
00420 
00665 
01023 
00706 
00410 
00435 
00676 
00701 
00766 
00745 
00670 
00411 
00436 
00676 
00741 
00676 
00323 
00711 
00763 
00444 
00324 
00000 
00716 
00670 
00417 
00721 
00741 
00070 
00317 
00442 
00342 
06444 
00022 
00441 
00423 
00424 
00766 
00745 
00423 
00424 
00737 



TOP S128 HAS AN IR BEEN ELIMINATED BEFORE 
TRA S122 N0 » 

5128 LXA S5K5»1 SET COUNT TO 3»N=1 

5126 CLA IND1+3.1 HAS IRN 
TPL S125 BEEN ELIMINATED 

5129 SXD IRR»1 NO.SELECT IRN 
TRA 1*4 AND RETURN. 

S125 TIX S126.1»l COUNT TO 3»N=N+1 

5130 TSX 4»4 DIAGNOSTIC* THERE IS AN ERROR* 

5127 CLA S39 

STO S1V3 STORE ASIDE 

LXA S1K3»4 THE 
S112 CLA S3V1+8.4 STATE 

STO SlVl+8»4 OF THE 

TIX SU2.4.1 S3 ROUTINE. 
Sll TSX S3*4 6ET NEXT TAG 

TRA SI 03 COME HERE IF TAG NOT GOT. 

CLA S1V1 

CAS S3V1 IS THE LOOP COMPLETED 

TRA S104 NO 

TRA S135 PERHAPS 

5104 TSX S2#4 NO 

TRA S16 COME HERE IF IR DECIDED ON 
TRA Sll COME HERE IF NOT DECIDED ON 

5135 CLA S1V1+1 IS THE LOOP COMPLETED 
CAS S3V2 

TRA S104 
TRA S102 YES 
TRA S104 
S103 CAS S3K1 IS THIS AN END LOOP LIST 
TRA S105 NO 
TRA S101 YES 

5105 CLA S3V5 GET LOOP LIST QUANTITY AGAIN. 
CAS S3K2 IS IT A BB 

NOP NOtIT IS EITHER A TRANSPARENT 
TRA P001 OR OPAQUE REGION 

TRA Sll YES 
P001 CAS S1V1+7 
TRA S136 
TRA S102 _ , 

5136 TS* SE»4 GET BB WHICH CONTAINS ENTR. REQU. 
LDQ S1K2 MAKE THIS LOOK LIKE A 

STQ TPE PASSIVE REFERENCE.. 
LXA S5K5.4 SET COUNT TO 3. 
SI 15 CAL BBB+2.1 PUT THIS TAU TAG 
ARS 18 IN LOCATION 
SLW 1TAG TAG 

SXD S1V6»1 STORE THE 
SXD SlV7t4 INDEXES. 
TSX S2»4 TRY TO SELECT AN I.R. 
TRA S16 COME HERE IF I.R* SELECTED. 
LXD S1V6.1 AND HERE IF NOT. RESTORE 
LXD S1V7.4 THE INDEXES. 
TXI S114.1»-l DECREASE ENTR. INDEX 



F5G07030 

F5G07040 

F5G07050 

F5G07060 

F5G07070 

F5G07080 

F5G07090 

F5G07100 

F5607110 

F5G07120 

F5G07130 

F5607140 

F5G07150 

F5G07160 

F5G07170 

F5G07180 

F5G07190 

F5G07200 

F5G07210 

F5GO7220 

F5G07230 

F5G07240 

F5G07250 

F5G07260 

F5G07270 

F5G07280 

F5G07290 

F5G07300 

F5G07310 

F5G07320 

F5G07330 

F5G07340 

F5G07350 

F5G07360 

F5G07370 

F5G07380 

F5G07390 

F5G07400 

F5G07410 

F5G07420 

F5607430 

F5G07440 

F5G07450 

F5G07460 

F5G07470 

F5G07480 

F5G07490 

F5G07500 

F5G07510 

F5G07520 

F5G07530 

F5G07540 

F5G07550 

F5G07560 



o 



u 



00737 
00740 
00741 
00742 
00743 
00744 
00745 
00746 
00747 
00750 
00751 
00752 
00753 
00754 
00755 
00756 
00757 
00760 
00761 
00762 

00763 
00764 
00765 
00766 
00767 
00770 
00771 
00772 
00773 
00774 
00775 
00776 
00777 
01000 
01001 
01002 
01003 
01004 
01005 
01006 
01007 
01010 
01011 
01012 
01013 
01014 
01015 
01016 
01017 
01020 
01021 
01022 



00001 
02000 
50000 
12000 
53400 
63400 
53400 
50000 
60100 
00001 
50000 
60100 
07400 
53400 
02000 
50000 
12000 
53400 
02000 
07400 



56000 
16200 
02000 
50000 
53400 
56000 
16200 
34000 
02000 
02000 
2 00001 
02000 
50000 
34000 
-0 50100 
76100 
63000 
50200 
12000 
63400 
02000 
56000 
60000 
50200 
12000 
60100 
02000 
53400 
50000 
12000 
00001 
07400 



00725 
00670 
00431 
00756 
00342 
00430 
00320 
00420 
00445 
00746 
00420 
01122 
01133 
00421 
00001 
00432 
00762 
00341 
00744 
00004 



S114 

S102 

S18 
S15 
S16 
S113 



514 
S13 

S108 

S107 



00550 S101 
00741 
00670 
00441 S2 
00342 
00434 S22 
00775 
1 00430 

00775 
00777 
00770 S21 
00002 
00442 
00403 
00340 
00000 
01005 
00422 
01010 
00430 S23 
00001 
00314 S25 
00434 
00434 
01016 
00434 
00002 
00342 S26 
00434 S27 
01006 

1 01017 
4 00004 



S24 



TEST 



TIX 
TRA 
CLA 
TPL 
LXA 
SXD 
LXA 
CLA 
STO 
TIX 
CLA 
STO 
TSX 
LXD 
TRA 
CLA 
TPL 
LXA 
TRA 
TSX 

LDQ 
TOP 
TRA 
CLA 
LXA 
LDQ 
TOP 
CAS 
TRA 
TRA 
TIX 
TRA 
CLA 
CAS 
ORA 
NOP 
STP 
CLS 
TMI 
SXD 
TRA 
LDQ 
STQ 
CLS 
TMI 
STO 
TRA 
LXA 
CLA 
TMI 
TIX 
TSX 



S115»4*l COUNT TO 3. 

Sll 

IND1 HAS C(IRl) BEEN 

S13 FOUND (ELIMINATED) 

S5K5»4 NO*SELECT 

IRR*4 IR1. 

S1K3*4 RESTORE S3 (GET NEXT TAG SR) 

SlVl+8»4 TO STATE 

S3Vl+8»4 BEFORE 

S113»4»l SI WAS USED* 

S1V3 

S39 

S4#4 MAKE SURE SAME TAGS ARE IN CM. 

S1V4*4 

1*4 RETURN 

IND2 HAS IR2 BEEN 

S107 FOUND (ELIMINATED) 

S5K4»4 NO*SELECT 

S15 IR2. 

4*4 DIAGNOSTIC* THERE IS AN ERROR 

OF SOME KIND. 
LPIND IS THIS 
S102 A LOOP 
Sll YES 

1TAG PUT TAU-TAG IN AC. 

S5K5»1 SET COUNT TO 3. 
IND1+3»1 
S21 BEEN FOUND 

IRl+3tl NO* IS TAU TAG EQUAL 
S21 NO»T0 C(IRN) 
S24 YES 
S22»l*l NO. 
2»4 RETURN TO L(TSX)+2 



TPE 

XK21 

S5K3 



IS IT A DED» LXP» OR LX CLASS. 

IF SO* MAKE P=lt MAKING TEST=TMI S25 

WHILE IF SO MAKE TEST TPL S25. 

THUS GO TO S23 AND USE IT IF LXPfDEDfLX 

AND TAGS LEFT IN BB AFTER TIX* OR 

IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. 

THIS MIGHT BE A TPL S25. 



TEST 

S1V5 

S25 

IRR»1 RECORD IRN INDEX. 

1*4 

ZERO RECORD IRN FOUND OR ELlM 

IND1+3»1 

IN4 HAS ONE OTHER I R BEEN 

S26 (FOUND/ELIM) 

IN4 

2*4 

S5K5*1 SEARCH FOR THE 

IND1+3»1 I.R» WHICH HASNT 

S23 BEEN (FOUND/ELIM) YET. 

S27*l»l 

4*4 NOT FOUND* DIAGNOSTIC 

THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES. 



F5G07570 
F5G07580 
F5G07590 
F5G07600 
F5G07610 
F5G07620 
F5G07630 
F5G07640 
F5607650 
F5G07660 
F5G07670 
F5G07680 
F5G07690 
F5GO7700 
F5G07710 
F5G07720 
F5G07730 
F5G07740 
F5G07750 
F5G07760 
F5G07770 
F5G07780 
F5G07790 
F5G07800 
F5G07810 
F5G07820 
F5G07830 
F5G07840 
F5G07850 
F5G07860 
F5G07870 
F5G07880 
F5G07890 
F5G07900 
F5G07910 
F5G07920 
F5G07930 
F5607940 
F5G07950 
F5G07960 
F5G07970 
F5G07980 
F5G07990 
F5G08000 
F5G08010 
F5G08020 
F5G08030 
F5G08040 
F5G08050 
F5G08060 
F5G08070 
F5G08080 
F5G08090 
F5G08100 



01023 
01024 
01025 
01026 
01027 
01030 
01031 
01032 
01033 
01034 
01035 
01036 
01037 
01040 
01041 
01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 
01052 
01053 
01054 
01055 
01056 
01057 
01060 
01061 
01062 
01063 
01064 
01065 
01066 
01067 
01070 
01071 
01072 
01073 
01074 
01075 
01076 
01077 



53400 
00001 
63400 
50000 
60100 
12000 
53400 
50000 
12000 
53400 
50000 
60100 
77777 
63400 
34000 
02000 
02000 
34000 
76100 
02000 
02000 
53400 
50000 
02000 
07400 
50000 
32000 
60100 
07400 
60100 
40200 
76000 
60100 
50000 
40000 
07400 
50000 
32000 
40200 
34000 
02000 
02000 
02000 
40200 
60100 



00436 
01122 
00445 
00437 
00450 
01114 
00440 
00444 
01035 
00325 
04777 
00444 
01040 
00440 
00323 
01044 
01052 
00324 
00000 
01050 
01053 
00445 
00444 
00001 
00070 
06443 
00326 
00435 
01133 
00446 
00330 
00003 
00447 
00444 
00316 
00070 
06443 
00326 
00435 
00447 
01076 
01117 
01117 
00447 
00437 



S3 



S306 
S31 

S32 

S305 

S35 
S34 

S303 



IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES F5608110 
THE TAG FEED EXIT. IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5608120 
LPLST AND TAKES THE LPLST FEED EXIT, WHEN IT COMES TO A F5G08130 
LPLST ITEM WHICH IS A BB AND NOT IN A REGION* IT GOES TO F5G08140 
FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150 
THAT BB HAS BEEN FED. THEN IT RETURNS TO LPLST FEED. WHEN F5G08160 
SENTINEL IS FED THE ROUTINE RE-INITIALIZES ITSELF TO THE F5G08170 
BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE. IT USES F5G08180 
THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190 



S304 



LXD S3V2.1 ARE THERE ANY 

TIX S39*ltl 

SXD S3V8»4 N0»ST0RE RETURN INDEX 

CLA S3V3 

STO S3V9 

TPL S300 ARE THERE ANY MORE TAGS IN BB 

LXD S3V4»1 NO 

CLA S3V5 WAS THE LAST THING 

TPL S306 AN END LPLST 

LXD S3K3»1 YES* RESET LPLST INDEX 

CLA LPLST+S3P1*1 GET LOOP LIST QUANTITY 

STO S3V5 QUANTITY. 

TXI S31»l»-1 

SXD S3V4.1 THE INDEX. 

CAS S3K1 IS THIS END OF LOOP LIST 

TRA S32 N0» 

TRA S35 YES* 

CAS S3K2 

NOP NO 

TRA S305 

TRA S34 YES 

LXD S3V8»4 

CLA S3V5 RETURN WITH LOOP 

TRA 1»4 LIST QUANTITY 

TSX SE*4 GET INDEX OF BB 

CLA BBB+1»1 

ANA S3K4 GET AND STORE THE 

STO S3V1 TAG LOCATION. 

TSX S4»4 GO TO PUT TAG IN CM. 

STO S3V6 STORE (1ST BB TAG-1ST TAG IN CM.) 

SUB S4K1 FORM NO. OF 

SSP WDS LEFT IN CM. 

STO S3V7 

CLA S3V5 GET THE 

ADD ONED LOC. OF 1ST 

TSX SE*4 TAG IN 

CLA BBB+1»1 NEXT BB. 

ANA S3K4 

SUB S3V1 IS NO. OF TAGS IN BB LESS 

CAS S3V7 THAN OR EQUAL TO SPACE IN CM. 

TRA S304 

TRA S36 YES» 

TRA S36 YES» 

SUB S3V7 STORE S EXCESS OF TAGS 

STO S3V3 



F5G0820O 
F5G0821O 
F5G08220 
F5G08230 
F5G08240 
F5G08250 
F5G08260 
F5608270 
F5G08280 
F5G08290 
F 5O083OO 
F5G08310 
F5G 8320 
F5G08330 
F5G08340 
F5G08350 
F5G08360 
F5G08370 
F5G08380 
F5G08390 
F5G08400 
F5G08410 
F5G08420 
F5G08430 
F5G08440 
F5G08*50 
F5G08*»60 
F5G08470 
F5G08480 
F5G08490 
F5G08500 
F5G08510 
F5608520 
F5G08530 
F5G08540 
F5G08550 
F5G08560 
F5G08570 
F5G08580 
F5G08590 
F5G08600 
F5G08610 
F5G08620 
F5G08630 
F5G06640 



si 



u 



u 



01100 





50000 





00447 




CLA 


01101 





73400 


1 


00000 


S302 


PAX 


01102 


1 


00001 


1 


01103 


S37 


TXI 


01103 


-0 


63400 


1 


00436 


S38 


SXD 


01104 





40000 





00332 




AOD 


01105 





40000 





00446 




ADD 


01106 





62100 





01122 




STA 


01107 


-0 


53400 


4 


00445 




LXD 


OHIO 





50000 





00450 




CLA 


01111 





12000 





01023 




TPL 


01112 





50000 





00444 




CLA 


01113 





02000 


4 


00001 




TRA 


01114 





50000 





00451 


S300 


CLA 


01115 





40000 





00330 




ADD 


01116 





02000 





01056 




TRA 


01117 





56000 





00323 


S36 


LDQ 


01120 


-0 


60000 





00437 




STQ 


01121 





02000 





01101 




TRA 


01122 





50000 


1 


00000 


S39 


CLA 


01123 


-0 


63400 


1 


00436 




SXD 


01124 





60100 





00443 




STO 


01125 


-0 


32000 





00326 




ANA 


01126 





60100 





00441 




STO 


01127 


-0 


50000 





00327 




CAL 


01130 


-0 


32000 





00443 




ANA 


01131 





60100 





00442 




STO 


01132 





02000 


4 


00002 




TRA 


01133 





50000 





00435 


S4 


CLA 


01134 





40200 





00451 




SUB 


01135 


-o 


12000 





01142 




TMI 


01136 





34000 





00330 




CAS 


01137 





76100 





00000 




NOP 


01140 





02000 





01142 




TRA 


01141 





02000 


4 


00001 




TRA 


01142 





50000 





00435 


S41 


CLA 


01143 





40200 





00452 




SUB 


01144 


-0 


12000 





01166 




TMI 


01145 





60100 





00454 




STO 


01146 





50000 





00453 




CLA 


01147 





40200 





00452 




SUB 


01150 





34000 





00330 




CAS 


01151 





02000 





01154 




TRA 


01152 





02000 





01173 




TRA 


01153 





02000 





01173 




TRA 


01154 





50000 





00454 


S401 


CLA 


01155 





34000 





00331 




CAS 


01156 





76100 





00000 




NOP 


01157 





02000 





01161 




TRA 


01160 





02000 





01172 




TRA 


01161 





76200 





00223 


S47 


RTB 


01162 





50000 





00452 




CLA 


01163 





40000 





00331 




ADD 


01164 





60100 





00452 


S43 


STO 


01165 





02000 





01142 




TRA 



S3V7 

0.1 SET COUNT OF NO. OF TAGS* 

S38»lfl 
S3V2»1 

S4K3 SET ADDRESS OF 
S3V6 CLA 

S39 INSTRUCTION. 
S3V8.4 

S3V9 IS THIS A 
S3 NEW BB 

S3V5 YEStRETURN WITH 
1.4 LOOP LIST QUANTITY. 
S4V1 NEXT TAG NEEDED HAS 
S4K1 LOC. (S+1ST TAG IN CM.) 
S303 
S3K1 
S3V3 
S302 

->1 GET TAG WORD 
S3V2»1 
INTAG AND 

S3K.4 SEPARATE TYPE 
IT AG FROM 

S3K5 TAU-TAG. 
INTAG 
TPE 
2t4 

S3V1 FORM (LOC. OF 1ST TAG IN BB 
S4V1 -LOC. OF 1ST TAG IN CM> 
S4l IS TAG IN CM. 
S4<1 POSSIBLY.IS IT FOR SURE 
NO 

541 NO 
1»4 YES. RETURN. 

S3V1 NO.FORM (LOC. OF 1ST TAG IN BB 
S4V2 -POSITION OF TAPE) 

542 MUST WE RUN TAPE BACK WORDS 
S4V4 NOt 

S4V3 CAN ALL THE FOLLOWING TAGS 

S4V2 BE PUT IN CM. 

S4K1 

S401 NO 

S45 YEStGO TO SET COUNT 

S45 YES. TO NO. OF TAGS IN BB. 

S4V4 

S4K2 IS TAG IN NEXT RECORD 

NO 
S47 

S44 YES 

TAPE NOt SPACE FWD 1 REC. 
S4V2 ADJUST TAPE POSITION 
S4K2 
S4V2 
S41 



F5G08650 
F5G08660 
F5G08670 
F5G08680 
F5608690 
F5G08700 
F5G08710 
F5G08720 
F5G08730 
F5G08740 
F5G08750 
F5G08760 
F5G08770 
F5GO8780 
F5G08790 
F5G08800 
F5G08810 
F5G08820 
F5G08830 
F5G08840 
F5G08850 
F5608860 
F5G08870 
F5G08880 
F5G08890 
F5G08900 
F5G08910 
F5G08920 
F5G08930 
F5G08940 
F5G08950 
F5G08960 
F5G08970 
F5G08980 
F5G08990 
F5G09000 
F5G09010 
F5G09020 
F5G09030 
F5G09040 
F5G09050 
F5G09060 
F5G09070 
F5G09080 
F5G09090 
F5G0910O 
F5G09110 
F5G09120 
F5G09130 
F5G09140 
F5G09150 
F5G09160 
F5G09170 
F5G09180 



3 V 



01166 
01167 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 



76400 
50000 
40200 
02000 
50000 
73400 
40000 
62100 
50000 
60100 
76200 
63400 
76000 
76100 
50000 
40000 
60100 
70000 
00000 
07400 4 
63400 4 
07400 
53400 
02000 
0000 I 
70000 
02000 
07400 
63400 
07400 
53400 
02000 
76600 
76000 
02000 
63400 
02000 
76400 
53400 
00001 
63400 
00004 
07400 
53400 
76200 
53400 
00000 



00203 
00452 
00331 
01164 
00330 
00000 
00332 
01207 
00452 
00451 
00223 
01210 
00012 
00000 
00452 
00331 
00452 
00000 
01216 
00004 
01244 
01226 
01244 
01200 
01207 
00454 
01217 
00004 
01244 
01226 
01244 
01133 
00333 
00012 
01233 
00151 
00001 
00203 
00151 
01236 
00151 
01241 
00004 
01210 
00223 
01244 
01207 



S42 



S44 
S45 



S49 



646 
S407 



S48 
S409 



S406 



S404 
S402 



S402A 
S402B 
S405 



01245 -0 63400 4 00473 S5 



BST TAPE ADJUST TAPE POSITION 

CLA S4V2 AFTER BACKSPACING 

SUB S4K2 ONE RECORD. 

TRA S43 

CLA S4K1 SET COUNT TO STORAGE SIZE. 

PAX 0.2 

ADD S4K3 SET CPY 

STA S46 ADDRESS* 

CLA S4V2 

STO S4V1 

RTB TAPE 

SXD S407.2 STORE (2) IN CASE OF TAPE CHECK 

RTT TURN OFF TAPE 

NOP CHECK. 

CLA S4V2 ADJUST 

ADD S4K2 TAPE 

STO S4V2 POSITION 

CPY -.2 

TXI S48.0.- VALUE OF (21 STORED HERE 

TSX 4.4 END OF FILE OCCURREDf DIAGNOSTIC 

SXD S405t4 

TSX S406t4 CHECK REDUNDANCY BITS 

LXD S405.4 

TRA S49 

TIX S46.2.1 COUNT NO. OF WORDS CPYED. 

CPY S4V4 COPY OUT TO 

TRA S409 END OF RECORD. 

TSX 4.4 ERRONEOUS END OF FILE»DI AGNOSTIC 

SXD S405.4 CHECK REDUNDANCY BITS 

TSX S406t4 

LXD S405.4 

TRA S4 

IOD 

RTT 

TRA S402 TRY AGAIN 

SXD TPCT»0 RESETS REPEAT COUNT 

TRA 1.4 RETURN 

BST TAPE PREPARE TO READ AGAIN 

LXD TPCT.2 FIVE TIMES 

TXI S402A.2.1 

SXD TPCT»2 

TXL S402B»2»4 GO ON 

TSX 4.4 NO GOOD .DIAGNOSTIC 

LXD S407.2 RESET INDEX 

RTB TAPE 

LXD 5405.4 

TXI S46.0.- RETURN ADDR. STORED HERE 

THE S5 SUBROUTINE LOADS EN1.2.3 FROM THE 
OF THE ENTRY BB IN A REGION WHEN THE REG 
IN LPLST. IN ADDITION. THE PERMUTATION 
THE REGION PROVIDING THE BEST MATCH BETW 
EN1.2.3 IS LEFT IN CELLS IN1.2.3 AND EN4 
S1.S111.S6.S7.S9. AS SUBROUTINES. 

SXD S5V1.4 STORE RETURN INDEX 



F5G09190 
F5G09200 
F5G09210 
F5G09220 
F5G09230 
F5G09240 
F5G09250 
F5G09260 
F5G09270 
F5G09280 
F5G09290 
F5G09300 
F5G09310 
F5G09320 
F5G09330 
F 5609340 
F5G09350 
F5G09360 
F5G09370 
F5G09380 
F5G09390 
F5G09400 
F5G09410 
F5G09420 
F5G09430 
F5G09440 
F5G09450 
F5G09460 
F5G09470 
F5G09480 
F5G09490 
F5G09500 
F5G09510 
F5G09520 
F5609530 
F5G09540 
F5G09550 
F5G09560 
F5G09570 
F5G09580 
F5G09590 
F5G09600 
F5G09610 
F5G09620 
F5G09630 
F5G09640 
F5G09650 
ENTRANCE CONDITIONS F5G09660 
ION IS ENCOUNTERED F5609670 
OF INDEX REGISTERS INF5G0968O 
EEN IR1.2.3 AND F5G09690 
,5.6 BY S5. SS USES F5G09700 

F5G09710 
F5G09720 



K'C 



u 



u 



01246 


60100 00474 




STO S5V2 STORE LOOP LIST QUANTITY 




01247 


07400 4 01466 




TSX S9*4 GET THE ENTRANCE 
REQUIREMENTS 




01250 


50000 00340 




CLA S5K3 




01251 


53400 2 00343 




LXA S5K6»2 STORE -OS IN THE COUNTER OF PHIS + OF REAL 


01252 


60100 2 00470 


S51 


STO ENC+8»2 STORE -OS IN THE 




01253 


2 00001 2 01252 




TIX S51»2»l REGISTERS. 




01254 


53400 1 00342 




LXA S5K5.1 SET INDEX FOR EN1»N=1 




01255 


53400 2 00342 


S54 


LXA S5K5»2 SET INDEX FOR IR1» M EQUALS 1 




01256 


50000 1 00473 




CLA EN1+3»1 




01257 


34000 00336 




CAS S5K1 IS ENN EMPTY 




01260 


02000 01262 




TRA S55 NO 




01261 


02000 01427 




TRA S58 YES 




01262 


56000 2 00465 


S55 


LDQ INl+3*2 NO 




01263 


16200 01267 




TQP S56 IS IRM ASSIGNED 




01264 


34000 2 00430 




CAS IR1+3.2 NO. IS C ( ENM ) = C( I RM) 




01265 


02000 01267 




TRA S56 NO. 




01266 


02000 01433 




TRA S59 YES. 




01267 


2 00001 2 01262 


S56 


TIX S55.2.1 NO. THRU WITH IRS 




01270 


2 00001 1 01255 


S57 


TIX S54*l*l YES. THRU WITH ENS 




01271 


53400 2 00342 




LXA S5K5*2 YEStSET INDEX FOR IR1*M=1 




01272 


53400 1 00342 


S510 


LXA S5K5»1 SET INDEX FOR EN1»N=1 




01273 


50000 2 00430 




CLA IRl+3»2 




01274 


34000 00336 




CAS S5K1 IS IRM EMPTY 




01275 


02000 01277 




TRA S511 NO 




01276 


02000 01310 




TRA S513 YES 




01277 


56000 2 00465 


S511 


LDQ INl+3»2 NO 




01300 


16200 01320 




TQP S514 IS IRM ASSIGNED 




01301 


34000 00337 




CAS S5K2 NO»IS C(IRM)REAL 




01302 


C 02000 01320 




TRA S514 N0» 




01303 


02000 01320 




TRA S514 N0» 




01304 


50000 00461 


S512 


CLA IRC INCREASE REAL 




01305 


40000 00315 




ADD ONEA UNASSIGNED TAG 




01306 


60100 00461 




STO IRC COUNTER. 




01307 


02000 01320 




TRA S514 




01310 


50000 1 00470 


S513 


CLA EN4+3»1 HAS ENN 




01311 


12000 01317 




TPL S537 BEEN ASSIGNED 




01312 


56000 00337 




LDQ S5K2 NOfIS C(ENN) 




01313 


50000 1 00473 




CLA ENl+3tl REAL 




01314 


04000 01317 




TLQ S537 




01315 


07400 4 01443 




TSX S6»4 YES»MAKE IRM=ENN 




01316 


02000 01320 




TRA S514 




01317 


2 00001 1 01310 


S537 


TIX S513»l»l ARE WE THRU WITH EN S 




01320 


2 00001 2 01272 


S514 


TIX S510>2tl YES» ARE WE THRU WITH IRS 




01321 


50000 00460 




CLA ENC YES* 




01322 


-0 12000 01327 




TMI S515 ARE THERE NO EMPTY ENS 




01323 


34000 00341 




CAS S5K4 HOW MANY EMPTY ENS. 




01324 


02000 01327 




TRA S515 3 OR 




01325 


02000 01343 




TRA S520 2 EMPTY EN 




01326 


02000 01366 




TRA S526 1 EMPTY EN 




01327 


53400 1 00342 


S515 


LXA S5K5.1 3 OR EMPTY EN.N=1 




01330 


53400 2 00342 


S519 


LXA S5K5t2 M=l 




01331 


50000 1 00470 




CLA EN4+3.1 




01332 


12000 01340 




TPL S516 ENN ASSIGNED 





F5G09730 
F5G09740 
F5G09750 
F5G09760 
F5G09770 
F5G09780 
F5G09790 
F5G09800 
F5G09810 
F5G09820 
F5G09830 
F5G09840 
F5G09850 
F5G09860 
F5G09870 
F5G09880 
F5G09890 
F5G09900 
F5G09910 
F5G09920 
F5G09930 
F5G09940 
F5G09950 
F5G09960 
F5G09970 
F5G09980 
F5G09990 
F56 10000 
F5G10010 
F5G10020 
F5G10030 
F5G10040 
F5G10050 
F5G10060 
F5G10070 
F5G10080 
F5G10090 
F5G10100 
F5G10110 
F5G10120 
F5G10130 
F5G10140 
F5G10150 
F5G10160 
F5G10170 
F5G10180 
F5G101SC 
F5G10200 
F5G10210 
F5G10220 
F5G10230 
F5G10240 
F5G10250 
F5G10260 



-J 



01333 





50000 


2 


00465 


S518 


CLA 


01334 





12000 





01337 




TPL 


01335 





07400 


4 


01443 




TSX 


01336 





02000 





01340 




TRA 


01337 


2 


00001 


2 


01333 


S517 


TIX 


01340 


2 


00001 


1 


01330 


S516 


TIX 


01341 


-0 


53400 


4 


00473 




LXD 


01342 





02000 


4 


00001 




TRA 


01343 





50000 





00461 


S520 


CLA 


01344 





34000 





00341 




CAS 


01345 





02000 





01350 




TRA 


01346 





02000 





01405 




TRA 


01347 





02000 





01405 




TRA 


01350 





07400 


4 


01450 


S536 


TSX 


01351 





07400 


4 


00622 




TSX 


01352 





53400 


1 


00342 




LXA 


01353 





07400 


4 


01435 




TSX 


01354 





50000 


1 


00473 


S521 


CLA 


01355 





34000 





00336 




CAS 


01356 





02000 





01360 




TRA 


01357 


2 


00001 


1 


01354 




TIX 


01360 





07400 


4 


01443 


S522 


TSX 


01361 





53400 


1 


00342 


S529 


LXA 


01362 





50000 


1 


00460 


S525 


CLA 


01363 





60100 


1 


00430 




STO 


01364 


2 


00001 


1 


01362 




TIX 


01365 





02000 





01327 




TRA 


01366 





56000 





00461 


S526 


LDQ 


01367 





50000 





00341 




CLA 


01370 





04000 





01403 




TLQ 


01371 





07400 


4 


01450 




TSX 


01372 





07400 


4 


00620 




TSX 


01373 





07400 


4 


01435 




TSX 


01374 





53400 


1 


00342 




LXA 


01375 





50000 


1 


00473 


S527 


CLA 


01376 





34000 





00336 




CAS 


01377 





02000 





01401 




TRA 


01400 





07400 


4 


01443 




TSX 


01401 


2 


00001 


1 


01375 


S528 


TIX 


01402 





02000 





01361 




TRA 


01403 





16200 





01405 


S530 


TOP 


01404 





02000 





01327 




TRA 


01405 





53400 


1 


00342 


S531 


LXA 


01406 





53400 


2 


00342 




LXA 


01407 





50000 


1 


00473 


S532 


CLA 


01410 





34000 





00336 




CAS 


01411 





02000 





01413 




TRA 


01412 





02000 





01415 




TRA 


01413 


2 


00001 


1 


01407 


S533 


TIX 


01414 





02000 





01327 




TRA 


01415 





5O0O0 


2 


00465 


S534 


CLA 


01416 





12000 





01425 




TPL 


01417 





50000 


2 


00430 




CLA 


01420 





34000 





00337 




CAS 



INl+3t2 NO»IRM 

S517 ASSIGNED 

S6#4 NO»MAKE IRM=*IRN 

S516 

S518t2»l 

S519»lfl 

S5V1»4 

lt4 RETURN 

IRC 

S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS 

S536 

S531 l»NO,GO MATCH EMPTY ENS 

S531 2»NO. WITH ANY REAL UNASS. IRS 

S7i4 3» YES* TO COPY IRS» ETC* 

Sl»4 SELECT MOST REPLACEABLE I«R« 

S5K5»1 

S595»4 

ENl+3fl IS EN 

S5K1 EMPTY 

S522 NO 

S521»l»l INDEX COUNTER OF IR S 

S6»4 MADE ENN = IRM 

S5K5»1 

IR4+3tl REPLACE THE IRS 

IR1+3»1 

S525»ltl 

S515 

IRC 

S5K4 ARE THERE 2 OR 3 REAL 

5530 UNASSNEO TAGS 
S7«4 YEStCQPY MS 

Slll»4 LOOK FOR LEAST REPLACEABLE I«R» 

S595»4 

S5K5*1 ASSIGN THE EMPTY 

ENl+3tl EN TO THE IR 

S5K.1 SELECTED 

S528 

S6»4 BY 

S527.1»l Sill. 

S529 

5531 IS THERE ONE REAL TAG 
S515 NO»GO MATCH ARBITRARILY. 
S5K5»1 SET COUNT TO 3»N=1 
S5K5»2 SET COUNT TO 3»M=1 
EN1+3»1 IS ENN 

S5K1 EMPTY 

5533 NOt 

5534 YES» 

S532»l»l NOtTHRU WITH ENS 

S515 YES. 

INl+3»2 

S535 

IRl+3t2 NO 

S5K.2 IS C (IRM) REAL 



F5G10270 

F5G10280 

F5G10290 

F5G10300 

F5G10310 

F5G10320 

F5G10330 

F5G10340 

F5G10350 

F5G10360 

F5G10370 

F5G10380 

F5G10390 

F5G10400 

F5G10410 

F5G10420 

F5G10430 

F5G10440 

F5G10450 

F 5610460 

F5G 10470 

F5G10480 

F5G10490 

F5G1O5O0 

F5G1O510 

F5G10520 

F5G1O530 

F5G10540 

F5G10550 

F5G10560 

F5G10570 

F5G10580 

F5G10590 

F5G10600 

F5G10610 

F5G10620 

F5G10630 

F5G10640 

F5G10650 

F5G10660 

F5G10670 

F5G10680 

F5G10690 

F5G1070O 

F5G10710 

F5G10720 

F5G10730 

F5G10740 

F5G1075O 

F5G10760 

F5G10770 

F5G10780 

F5G10790 

F5G10800 



<i 



(J 



u 



01421 
01422 
01423 
01424 
01425 
01426 
01427 
01430 
01431 
01432 
01433 
01434 
01435 
01436 
01437 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01450 
01451 
01452 
01453 
01454 
01455 
01456 
01457 
01460 
01461 
01462 
01463 
01464 
01465 

01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01300 
01501 
01502 
01503 
01504 
01505 



76100 
02000 
07400 
02000 
00001 
02000 
50000 
40000 
60100 
02000 
07400 
02000 

-0 53400 
50000 
34000 
02000 
02000 
02000 

-0 75400 
60100 

-0 75400 
60100 
02000 
53400 
50000 
60100 
56000 
16200 
34000 
76100 
02000 
02000 
50000 
60100 
00001 
02000 



00000 
01425 
01443 
01327 
01415 
01413 
00460 
00315 
00460 
01270 
01443 
01270 
00430 
00430 
01465 
00001 
01361 
00001 
00000 
00465 
00000 
00470 
00001 
00342 
00430 
00460 
1 00465 
01461 
00337 
00000 
01461 
01463 
01465 
00430 
01451 
00001 



+000000 777760 



"0 63400 
07400 
50000 
•0 73400 
50000 
60100 
53400 
50000 
60100 
50000 
77100 
77100 
32000 
73400 
50000 
32000 



00476 
00070 
06447 
00000 
05061 
00477 
00342 
1 06443 
00475 
00475 
00003 
00003 
00350 
00000 
00477 
00350 



S6 



S7 
S71 



NOP NO 
TRA S535 
TSX S6*4 YES 
TRA S515 
S535 TIX S534»2*l NO 
TRA S533 

558 CLA ENC YESENM EMPTY 

ADD ONEA INCREASE COUNTER 
STO ENC OF NO. OF EMPTY ENS. 
TRA S57 

559 TSX S6»4 MAKE IRM=ENN 
TRA S57 

S595 LXD IRR»2 

CLA IRl+3»2 

CAS S7K1 

TRA 1*4 

TRA S529 

TRA 1*4 

PXD 0#1 

STO INl+3»2 

PXD 0*2 

STO EN4+3*1 

TRA 1*4 

LXA S5K5.1 SET COUNT TO 3*M=1 

CLA IR1 + 3#1 COPY ASIDE CURM) 

STO IR4+3»1 

LDQ IN1+3»1 IRM ASSIGNED 

TOP S72 

CAS S5K2 N0» IS CURM) REAL 

NOP 

TRA S72 NO 

TRA S73 YES. 

572 CLA S7K1 N0»REPLACE CURM) 
STO IR1+3*1 BY IMPOSSIBLE TAG. 

573 TIX S71*l»l COUNT TO 3»M=M+1 
TRA 1*4 RETURN 

S7K1 OCT 777760 IMPOSSIBLE TAG VALUE. 

THE S9 SUBROUTINE LOADS EN1»2»3. 
S9 SXD S9V2t4 STORE RETURN INDEX. 

TSX SEi4 MAKE SURE BB IS IN C+M+ 

CLA BBB+5*1 GET AND 

PDX 0*2 STORE THE 

CLA REG»2 REGION 

STO S9V4 W0RD+ 

LXA S5K5*2 SET COUNT TO 3*N=1 

CLA B8B+1»1 STORE THE WORD 

STO S9V1 CONTAINING THE PERMATATION NOS. 
S92 CLA S9V1 EXTRACT THE N TH 

ARS 3*2 PERMUTATION NO. 

ARS 3*2 AND PUT IT 

ANA S9K3 IN 

PDX 0*4 INDEX 4. 

CAL S9V4 IS THIS 

ANA S9K2+3»4 AN EMPTY 



F5G10810 
F5G10820 
F5G10830 
F5G10840 
F5G10850 
F5G10860 
F5G10870 
F5G10880 
F5G10890 
F5G10900 
F5G10910 
F5G10920 
F5G10930 
F5G10940 
F5G10950 
F5G10960 
F5G10970 
F5G10980 
F5G10990 
F5G11000 
F5G11010 
F5G11020 
F5G11030 
F5G11040 
F5G11050 
F5611060 
F5G11070 
F5G1108O 
F5G11090 
F5G11100 
F5G11U0 
F5611120 
F5G11130 
F5611140 
F5G11150 
F5G11160 
F5G11170 
F5G11180 
F5G11190 
F5G11200 
F5G11210 
F5G11220 
F5G11230 
F5GU240 
F5G11250 
F5G11260 
F5G11270 
F5G11280 
F5G11290 
F5G11300 
F5G11310 
F5G11320 
F5G11330 
F5G11340 



.- ) 



> V 



01506 





10000 





01515 




TZE 


01507 





50000 





00336 




CLA 


01510 





60100 


4 


00473 


S94 


STO 


01511 


1 


77777 


1 


01512 




TXI 


01512 


2 


00001 


2 


01477 


S91 


TIX 


01513 


-0 


53400 


4 


00476 




LXD 


01514 





02000 


4 


00001 




TRA 


01515 


-0 


50000 


1 


06444 


S93 


CAL 


01516 





77100 





00022 




ARS 


01517 





34000 





00336 




CAS 


01520 





02000 





01510 




TRA 


01521 





50000 





00333 




CLA 


01522 





02000 





01510 




TRA 


01523 


-0 


63400 


4 


00501 


SA 


SXD 


01524 


-0 


32000 





00353 




ANA 


01525 





56000 





00351 




LDQ 


01526 





04000 


4 


00001 




TLQ 


01527 





07400 


4 


00067 




TSX 


01530 





50000 


1 


06447 




CLA 


01531 


-0 


73400 


2 


00000 




PDX 


01532 





50000 


2 


05061 




CLA 


01533 





60100 





00502 




STO 


01534 





50000 


1 


06443 




CLA 


01535 





60100 





00500 




STO 


01536 





53400 


2 


00342 




LXA 


01537 


-0 


50000 





00500 


SA1 


CAL 


01540 





77100 


2 


00003 




ARS 


01541 





77100 


2 


00003 




ARS 


01542 


-0 


32000 





00350 




ANA 


01543 


-0 


73400 


4 


00000 




PDX 


01544 


-0 


50000 





00502 




CAL 


01545 


-0 


32000 


4 


00350 




ANA 


01546 





10000 





01560 




TZE 


01547 





50000 





00336 




CLA 


01550 





60100 


4 


00506 


SA4 


STO 


01551 


-0 


50000 





00500 


SA5 


CAL 


01552 





76700 


2 


00003 




ALS 


01553 





60200 


4 


00511 




SLW 


01554 


1 


77777 


1 


01555 




TXI 


01555 


2 


00001 


2 


01537 


SA3 


TIX 


01556 


-0 


53400 


4 


00501 




LXD 


01557 





02000 


4 


00001 




TRA 


01560 


-0 


50000 


1 


06444 


SA2 


CAL 


01561 


-0 


32000 





00326 




ANA 


01562 





34000 





00336 




CAS 


01563 





02000 





01550 




TRA 


01564 





50000 





00333 




CLA 


01565 





02000 





01550 




TRA 



593 ItRi 

S5K1 YES*STORE EMPTINESS SYMBOL 

ENl+3»4 

S91»l»-1 DOWN THE ENTR* INDEX 

S92»2»l COUNT TO 3 

S9V2*4 

1*4 RETURN 

BBB+2»1 SET THE 

18 ENTRANCE REQUIREMENT. 

S5K1 IS IT AN EMPTINESS SYMBOL 

594 NO* 

LKl YES»STORE E»(HASH SYMBOL)* 

S94 NO* 

THE SA SUBROUTINE LOADS EX1»2*3 AND ACT1.2.3 FROM EXIT 

CONDITIONS AND ACTIVITY BITS (PREFIX* WORD 2# BBB) OF THE 

EXIT BB IN A REGION* 

SAV2»4 STORE RETURN INDEX* 

SBK2 IF THIS IS AN IMPOSSIBLE BB » 

SAK1 RETURN AT ONCE* DOING NOTHING 

1*4 

SE1*4 MAKE SURE BB IS IN CM. 

BBB+5*1 GET AND 

0»2 STORE 

REG*2 REGION 

SAV3 WORD* 

BBB+lil GET AND STORE THE 

SAV1 WORD HAVING PERMUTATION NOS* 

S5K5»2 SET COUNT TO 3»N=N+1 

SAV1 PUT PERMUTATION 

3*2 NUMBER 

3*2 IN 

S9K3 INDEX 4 

0*4 

SAV3 IS THIS 

S9K2+3»4 AN EMPTY 

SA2 EXIT 

S5K1 YES*ST0RE EMPTINESS SYMBOL* 

EXl+3»4 

SAV1 STORE THE 

3*2 ACTIVE 

ACTl+3»4 INDICATOR 

SA3»1»*1 

SA1»2.1 COUNT TO 3 

SAV2.4 

1*4 RETURN 

BBB+2»1 

S3K4 IS THIS 

S5K1 AN EMPTY SYMBOL 

SA4 NO 

LK1 YES REPLACE BY E. 

SA4 NO 

THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX 

COMPILATION* THE APPROPRIATE ACTIVITY CELL AC1»2» OR 3 IS 

EXAMINED. IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB 



F 56 11 350 
F5G11360 
F5G11370 
F5G11380 
F5G11390 
F5G11400 
F5G11410 
F5G11420 
F5G11430 
F5G11440 
F5G11450 
F5G11460 
F5G11470 
F5G11480 
F5G11490 
F5G11500 
F5G11510 
F5G11520 
F5G11530 
F5G11540 
F5G11550 
F5G11560 
F5G11570 
F5G11580 
F5G11590 
F5G11600 
F5G11610 
F5G11620 
F5G11630 
F5G11640 
F5G11650 
F5G 11660 
F5G11670 
F5G116S0 
F5G11690 
F5G11700 
F5G11710 
F5G11720 
F5G11730 
F5G11740 
F5G11750 
F5G11760 
F5G11770 
F5G11780 
F5G11790 
F5G11800 
F5G11810 
F5G11820 
F5G11830 
F5G11840 
F5G11850 
F5G11860 
F5G11870 
F5G11880 



u 



u 



01566 


-0 


63400 


1 


00514 


SB 


SXD 


01567 


-0 


63400 


4 


00511 




SXD 


01570 





50000 


1 


00561 




CLA 


01571 





12000 





01641 




TPL 


01572 


-0 


73400 


1 


00000 




PDX 


01573 





50000 


1 


04777 




CLA 


01574 





34000 





00324 




CAS 


01575 





76100 





00000 




NOP 


01576 





02000 





01600 




TRA 


01577 





77100 





00022 




ARS 


01600 





62100 





00513 


SB01 


STA 


01601 





50000 


1 


05000 




CLA 


01602 





34000 





00323 




CAS 


01603 





02000 





01605 




TRA 


01604 





50000 





04741 




CLA 


01605 





07400 


4 


00070 


SB7 


TSX 


01606 





50000 


1 


06443 




CLA 


01607 





60100 





00515 




STO 


01610 





50000 


1 


06442 




CLA 


01611 





60200 





00512 


SB4 


SLW 


01612 





07400 


4 


00055 




TSX 


01613 


-0 


50000 


1 


07337 




CAL 


01614 


-0 


32000 





00353 




ANA 


01615 





34000 





00513 




CAS 


01616 





02000 





01620 




TRA 


01617 





02000 





01623 




TRA 


01620 





50000 





00512 


SB2 


CLA 


01621 





40000 





00315 




ADD 


01622 





02000 





01611 




TRA 


01623 





53400 


2 


00342 


SB5 


LXA 


01624 


-0 


50000 





00515 


SBOO 


CAL 


01625 





77100 


2 


00003 




ARS 


01626 





77100 


2 


00003 




ARS 


01627 


-0 


32000 





00350 




ANA 


01630 





34000 





00514 




CAS 


01631 





02000 





01633 




TRA 


01632 





02000 





01635 




TRA 


01633 


2 


00001 


2 


01624 


SB8 


TIX 


01634 





07400 


4 


00004 




TSX 


01635 





50000 





00354 


SB9 


CLA 


01636 





77100 


2 


00003 




ARS 


01637 


-0 


60200 


1 


07337 




ORS 


01640 





02000 





01654 




TRA 


01641 


-0 


32000 





00326 


SB1 


ANA 


01642 





76500 





00043 




LRS 


01643 





22100 





00371 




DVP 


01644 





73400 


2 


00000 




PAX 


01645 


-0 


50000 





00352 




CAL 


01646 





76700 


2 


00010 




ALS 



ai dpady IN A REGION) • THE SX BIT IS PLACED IN PRED IN THE 

LINK OUT 2ft5P REGION: IF IT IS POSITIVE (ACTIVE INSTRUC. 

IN A BB IN THIS LPLST), THE SX BIT IS PLACED IN THE STAG 

TABLE AT THE ACTIVE INSTRUCTION, THE APPROPRIATE ACl*2t OR 

IS ALSO TURNED OFF BY SB. 

SBV4tl STORE INDEX OF ACTIVE I.R+ 

SBV1»4 STORE INDEX OF RETURNi 

ACl+3fl IS THE ACTIVE THING 

SB1 AN INSTRUCTION 

Otl NO 

LPLST+S3P1»1 GET + STORE 

S3K2 PRED. BB 

SB01 

18 NO 

SBV3 

LPLST+S3Pl+ltl 

S3K1 END LOOP LIST SENTINEL 

SB7 NOt 

LPLST YES.SUCCESSOR IS 1ST ENTRY. 

SE»4 NO»GET ADDR. OF 

BBB+ltl PRED. 

SBV5 STORE PERMUTATION NOS. 

BBBfl GET ADDR OF 1ST PRED. 

SBV2 

SE5»4 

PRED#1 

SBK2 

SBV3 IS THIS THE RIGHT TRANSFER 

SB2 NO 

SB5 YES 

SBV2 NO TRY NEXT PRED. 

ONEA 

SB4 

S5K5#2 

SBV5 SEARCH PERMUTATION 

3.2 NOS. FOR THE INDEX 

3t2 STORED IN SBV4 

S9K3 

SBV4 IS THIS PERMUTATION NO. 

SB8 NO EQUAL TO THE ACTIVE 

SB9 YES IR 

SB00»2»1 NO 

4»4 DIAGNOSTlCfERROR 

SBK3 GENERATE NO STORE 

3#2 THE 

PRED.l SX FIT IN 

SB6 PRED. TABLE. 

S3K4 

35 COMPUTE NO. OF WORD IN 

XK9 STAG AND POSITION OF SX 

0»2 FIT IN WORD. 

SBK1 GENERATE 

8»2 THE BIT 



F5G11890 
F5G11900 
F5G11910 
3F5611920 
F5G11930 
F5G11940 
F5G11950 
F5G11960 
F5G11970 
F5G11980 
F5G11990 
F5G12000 
F5G12010 
F5GI2020 
F5G12030 
F5612040 
F5G12050 
F5G12060 
F5G12070 
F5G12080 
F5G12090 
F5G12100 
F5G12110 
F5G12120 
F5G12130 
F5G12140 
F5G12150 
F5G12160 
F5G12170 
F5G12180 
F5G12190 
F5G12200 
F5G12210 
F5G12220 
F5G12230 
F5G12240 
F5G12250 
F5G12260 
F5G12270 
F5G12280 
F5G12290 
F5G12300 
F5G12310 
F5G12320 
F5G 12330 
F5G12340 
F5G12350 
F5G12360 
F5G12370 
F5G12380 
F 56 12 390 
F5G12400 
F5G12410 
F5G12420 



) V 



01647 60200 00512 



SLW 



01650 





76300 





00043 


LLS 


01651 





07400 


4 


00032 


TSX 


01652 


-0 


50000 





00512 


CAL 


01653 


-0 


60200 


1 


05061 


ORS 


01654 





50000 





00314 SB6 


CLA 


01655 


-0 


53400 


1 


00514 


LXD 


01656 





60100 


1 


00561 


STO 


01657 


-0 


53400 


4 


00511 


LXO 


01660 





02000 


4 


00001 


TRA 



01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 
01704 
01705 
01706 
01707 
01710 
01711 
01712 
01713 
01714 
01715 
01716 
01717 



50000 
10000 
63400 
63400 
62200 
50000 
40200 
40000 
10000 
50000 
12000 
53400 
50000 
34000 
02000 
02000 
02000 
40200 
34000 
02000 
02000 
53400 
50000 
34000 
02000 
02000 
34000 
76100 
02000 
02000 
53400 



00561 SC 

00001 

00516 

01736 

00520 

00520 

00316 

00440 

01674 

00521 

00001 

00520 SC40 

04777 

00324 

01721 

01721 

01734 

00316 SC4 

00440 

01706 

01725 

00520 SC2 

04777 

00323 

01713 

01732 

00324 SC3 

00000 

01717 

01734 

01736 SC04 



CLA 
TZE 
SXO 
SXD 
STD 
CLA 
SUB 
SBM 
TNZ 
CLA 
TPL 
LXD 
CLA 
CAS 
TRA 
TRA 
TRA 
SUB 
CAS 
TRA 
TRA 
LXD 
CLA 
CAS 
TRA 
TRA 
CAS 
NOP 
TRA 
TRA 
LXD 



SBV2 TO 
STORE* 
35 GET NO. OF WORD OUT OF MO. 
SE4.4 MAKE SURE THE WD IS IN CM. 
SBV2 
STAG.l 
ZERO SET IR 
SBV4.1 TO 

AC1+3»1 NOT ACTIVE. 
SBV1.4 RE- 
1»4 TURN 

THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX 
REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION. THIS 
POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND. 
THE ACTIVITY IS TRANSFERRED FROM AC1»2.3 TO PREFIX. WORD 2. 
BBB TABLE FOR ALL BB.S DURING WHICH INDEX REGISTER IS ACTIVE 
THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE 
TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK 
ING A SECTION OF LPLST ACTIVE. ALL BBtS BETWEEN THE ORIGIN 
OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC IS 
ENTERED ARE MARKED ACTIVEt AND THE DESIGNATED AC1.2.3 IS 
TURNED OFF. SD IS USED AS A SUBROUTINE* DOING THE ACTUAL 
MARKING OF BB.S ACTIVE. 
AC1+3.1 IS IR 
1.4 ACTIVE 

SCV1.4 YES.STORE RETURN 
SC9.1 AND INDEX OF ACTIVE I.R+ 
SCV3 STORE INDEX OF LOOP LIST. 
SCV3 IS THIS THE CURRENT 
ONED 
S3V4 IS THIS THE CURRENT LPLST INDEX 

SC40 
ACIND 
1.4 
SCV3.2 



NO 

YES 

IS THIS CURRENT 

LOOP LIST INDEX 



YES 

IS THIS THE ACTIVE PASS 

YES 

LPLST+S3Plt2 

S3K2 IS 1ST AACTIVE QUANTITY A 
SC02 
SC02 
SC8 
ONED 
S3V4 
SC2 NO. 
SC5 YES. 
SCV3.2 NO. 
LPLST+S3P1.2 

S3K1 IS IT END LOOP LIST 
SC3 NO. 
SC6 YES. 
S3K2 NO.IS 

NO* 
SC04 

SC8 YES. 
SC9.2 



BB 



IT A BB 



NO. PUT INDEX OF ACTIVE IR 



F5612430 
F5G12440 
F5G12450 
F5G12460 
F5G12470 
F5612480 
F5G12490 
F5G12500 
F5G12510 
F5G12520 
F5G12530 
F5G12540 
F5G12550 
F5G12560 
F5G12570 

.F5G12580 
F5G12590 

-F5G12600 
F5G12610 
F5G12620 
F5G12630 
F5G12640 
F5G12650 
F5G12660 
F5612670 
F5G12680 
F5G12690 
F5G12700 
F5G12710 
F5G12720 
F5G12730 
F5G12740 
F5G12750 
F5G 12760 
F5G12770 
F5G12780 
F5G12790 
F5G12800 
F5G 12810 
F5G12820 
F5G12830 
F5G12840 
F5G12850 
F5G12860 
F5G12870 
F5612880 
F5G12890 
F5G12900 
F5G12910 
F5G12920 
F5G12930 
F5612940 
F5G12950 
F5G12960 



■<i/ 



u 



(J 



01720 





07400 


4 


01753 




TSX 


01721 





50000 





00520 


SC02 


CLA 


01722 





40200 





00316 




SUB 


01723 





62200 





00520 


SC7 


STO 


01724 





02000 





01702 




TRA 


01725 


-0 


53400 


1 


01736 


SC5 


LXD 


01726 





50000 





00314 




CLA 


01727 





60100 


1 


00561 




STO 


01730 


-0 


53400 


4 


00516 




LXD 


01731 





02000 


4 


00001 




TRA 


01732 





50000 





00325 


SC6 


CLA 


01733 





02000 





01723 




TRA 


01734 





07400 


4 


00070 


SC8 


TSX 


01735 


-0 


63400 


1 


00517 




SXD 


01736 


1 


00000 


1 


01737 


SC9 


TXI 


01737 





50000 


1 


06447 


SC01 


CLA 


01740 


-0 


32000 





00326 




ANA 


01741 


-0 


53400 


2 


01736 




LXD 


01742 





34000 


2 


00430 




CAS 


01743 





02000 





01721 




TRA 


01744 





02000 





01746 




TRA 


01745 





02000 





01721 




TRA 


01746 


-0 


50000 





00340 


SC03 


CAL 


01747 





77100 


2 


00003 




ARS 


01750 


-0 


53400 


1 


00517 




LXD 


01751 


-0 


60200 


1 


06443 




ORS 


01752 





02000 





01721 




TRA 


01753 


-0 


63400 


2 


00523 


5D 


SXD 


01754 


-0 


63400 


4 


00522 




SXD 


01755 





07400 


4 


00070 




TSX 


01756 





50000 


1 


06447 




CLA 


01757 


-0 


73400 


1 


00000 




PDX 


01760 





50000 


1 


05061 




CLA 


01761 





07400 


4 


00070 




TSX 


01762 


-0 


63400 


1 


00525 


SD7 


SXD 


01763 





50000 


1 


06443 




CLA 


01764 





60100 





00524 




STO 


01765 





53400 


2 


00342 




LXA 


01766 


-0 


50000 





00524 


SD3 


CAL 


01767 





77100 


2 


00003 




ARS 


01770 





77100 


2 


00003 




ARS 


01771 


-0 


32000 


Q 


00350 




ANA 


01772 





34000 





00523 




CAS 


01773 





02000 





01775 




TRA 


01774 





02000 





02000 




TRA 


01775 


1 


77777 


1 


01776 


SD1 


TXI 


01776 


2 


00001 


2 


01766 


SD2 


TIX 


01777 





07400 


4 


00004 




TSX 


02000 


-0 


50000 


1 


06444 


SD4 


CAL 


02001 


-0 


32000 





00326 




ANA 


02002 


-0 


53400 


4 


00523 




LXD 


02003 


-0 


53400 


1 


00525 




LXD 


02004 





34000 


4 


00430 




CAS 


02005 





02000 





02007 




TRA 



SD*4 IN 2. GO TO RECORD REGION ACTIVE* 

SCV3 PREPARE TO GET 

ONED NEXT 

SCV3 LOOP LIST QUANTITY. 

SC4 

SC9tl 

ZERO RECORD I*R. NOT 

AC1+3»1 ACTIVE ANYMORE. 

SCV1»4 

lt4 RETURN. 

S3K3 ARRANGE TO GET 1ST LPLST QUANTITY 

SC7 QUANTITY NEXT. 

SE»4 

SCV2*1 GET INDEX OF BB 

SCOltUO INCREASE INDEX BY INDEX OF OCT. I«R* 

BBB+5tl GET THE 

S3K.4 EXIT CONDITION. 

SC9»2 IS EXIT COND* SAME 

IRl+3»2 AS TAG IN ACTIVE I.RH 

SC02 NO* 

SCO 3 YES» 

SC02 NO* 

S5K3 RECORD THAT BB IS 

3*2 ACTIVE 

SCV2»1 WO THIS 

8BB+1*1 I+R* 

SC02 

SDV2»2 

SDV1»4 STORE RETURN. 

SE*4 GET INDEX OF 8B 

BBB+5.1 GET 

0*1 REGION 

REGti ftORD. 

SE*4 GET BB INDEX* 

SDV4»1 

BBB+1.1 STORE 

SDV3 AWAY THE PERMUTATION NOS* 

S5K5*2 SET COUNT TO 3»N=1 

SDV3 IS 

3*2 PERMUTATION NO. 

3*2 

S9K3 N EQUAL 

SDV2 TO I.R. INDEX 

SD1 NO 

SD4 YES 

SD1+1»1«-1 NO 

SD3»2*1 COUNT TO 3 

4*4 

BBB+2*1 

S3IC4 IS TAG IN 

SDV2»4 EXIT CONDITION 

SDV4*1 SAME AS IN ACTIVE I*R* 

IRl+3*4 

SD5 NO 



F5G12970 
F5612980 
F5G12990 
F5G1300Q 
F5G13010 
F5G13020 
F5G13030 
F5G 13040 
F5G13050 
F5G13060 
F5G13070 
F5613080 
F5G13090 
F5G13100 
F5G13110 
F5G13120 
F5G13130 
F5G13140 
F5G13150 
F5G13160 
F5G13170 
F5G13180 
F5G13190 
F5G13200 
F5G13210 
F5G13220 
F5G13230 
F5G13240 
F5G13250 
F5G13260 
F5G13270 
F5G13280 
F5G13290 
F5G13300 
F5G13310 
F5613320 
F5G13330 
F5G13340 
F5G13350 
F5G13360 
F5G13370 
F5G13380 
F5G13390 
F5G13400 
F5G13410 
F5G 13420 
F5G13430 
F5G13440 
F5G13450 
F5G13460 
F5G13470 
F5G13480 
F5G13490 
F5G13500 



',>•> 



02006 
02007 
02010 
02011 
02012 
02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 



02024 
02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 



02042 
02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 
02063 
02064 
02065 
02066 



02000 
50000 
32000 
34000 
02000 
02000 
07400 
02000 
53400 
02000 
50000 
77100 
60200 
02000 



63400 
56000 
60000 
50000 
07400 
50000 
73400 
53400 
50000 
73400 
50000 
76700 
32000 
77100 
60200 
50000 
77100 
32000 
76700 
60200 
00001 



50000 

34000 

02000 

02000 

34000 

020O0 

02000 

02000 

50000 

60100 

53400 

00001 

63400 

02000 



02020 

06447 SD5 

00353 

00353 

02014 

02016 

00067 SD6 

01762 

00522 SD8 

00001 

00340 SD9 

00003 

06443 

02007 



00442 SF 

00322 

02030 

02034 

00373 SF1 

00001 

02034 

00001 

00571 SF4 

00526 

00440 

02040 

00526 SF5 

00002 



00530 SG 

00315 

00531 

00444 

00070 

06447 

00000 

00342 

00470 SGI 

00000 

05061 

00003 

00340 

00003 

00531 

05061 

00003 

00405 

00003 

00531 

02052 



TRA SD9 YES»IS 

CAL BBB+5tl NO THIS LAST 

ANA SBK2 BB 

CAS SBK2 IN REGION 

TRA SD6 NO 

TRA SD8 YES 

TSX SElf4 NO 

TRA SD7 

LXD SDVlt4 RETURN 

TRA 1*4 

CAL S5K3 RECORD THIS BB 

ARS 3»2 ACTIVE 

ORS BBB+1#1 WO THIS IR 

TRA SD5 

THE SF SUBROUTINE FORMS APPROPRIATE AC1»2»3 ENTRY WHEN AN 

ACTIVE INSTRUCTION IS ENCOUNTERED. 
CLA TPE IS THIS 
CAS S2K2 AN LX 
TRA SF1 NO. 
TRA SF4 YES. 

CAS XK12 NO»IS IT AN ACTIVE INSTR 
TRA 1»4 NO RETURN 
TRA SF4 YESt 
TRA 1.4 NO 

CLA XV5 FORM QUANTITY TO 
STO SFV1 BE PUT 
LXD S3V4.2 INTO 
TXI SF5.2.1 ACTIVE 
SXD SFV1.2 INDICATOR 
TRA 2»4 

PERMUTE THE PHI AND LX BITS SUBROUTINE 

THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4.5.6 ON A REG 

ENTRY* 

SAVE RETURN 

SET NEW LX AND PHI BITS TO ONEA 



SXD SGV1.4 
LDQ ONEA 
STQ SGV2 
CLA S3V5 
TSX SEt4 
CLA BBB+5*1 
PDX 0t2 
LXA S5K.5.4 
CLA EN4+3.4 
PDX 0.1 
CAL REG.2 
ALS 3*4 
ANA S5K3 
ARS 3.1 
ORS SGV2 
CAL REG.2 
ARS 3t4 
ANA XK23 
ALS 3#1 
ORS SGV2 
TIX SG1.4.1 



GET INDEX OF REGION WORD 



SET COUNT TO 3 
FIND INDEX OF IR 

PERMUTE THE LX BIT 



PERMUTE THE PHI BIT 



COUNT TO 3 



F5G13510 
F5G13520 
F5G13530 
F5G13540 
F5G13550 
F5G13560 
F5G13570 
F5G13580 
F5G13590 
F5G13600 
F5G13610 
F5G13620 
F5G13630 
F5G13640 
F5G13650 
F5G13660 
F5G 13670 
F5G13680 
F5G13690 
F5G1370O 
F5G13710 
F5G13720 
F5G13730 
F5G13740 
F5G13750 
F5G13760 
F5G13770 
F5G13780 
F5G13790 
F5G13800 
F5G13810 
F5G13820 
F5G13830 
F5G13840 
F5G13850 
F5G13860 
F5G13870 
F5G13880 
F5G13890 
F5G13900 
F5G13910 
F5G13920 
F5G13930 
F5G13940 
F5G13950 
F5G13960 
F5G13970 
F5G13980 
F5G13990 
F5G14000 
F5614010 
F5G14020 
F5G14030 
F5G14040 



9 1 



u 



u 



02067 


-0 


50000 


2 


05061 


02070 


-0 


32000 





00303 


02071 


-0 


50100 





00531 


02072 





60200 


2 


05061 


02073 


-0 


53400 


4 


00530 


02074 





02000 


4 


00001 


02075 


-0 


63400 


4 


00537 Fl 


02076 





56000 





00314 


02077 


-0 


60000 





00544 


02100 





60100 





00545 


02101 





07400 


4 


00067 


02102 





50000 


1 


06447 


02103 





60100 





00547 


02104 


-0 


50000 


1 


06442 


02105 





62100 





00540 


02106 


-0 


50000 





00545 


02107 





40000 





00315 


02110 





07400 


4 


00067 


02111 





50000 


1 


06442 


02112 





62100 





O0541 


02113 





50000 





00540 


02114 





34000 





00541 F4 


02115 





02000 





02117 


02116 





02000 





02134 


02117 





07400 


4 


00055 F2 


02120 





50000 


1 


07337 


02121 





34000 





00544 


02122 





02000 





02125 


02123 





76100 





00000 


02124 





02000 





02130 


02125 





60100 





00544 F92 


02126 





50000 





00540 


02127 





60100 





00546 


02130 





50000 





00540 F3 


02131 





40000 





00315 


02132 





62100 





00540 


02133 





02000 





02114 


02134 


-0 


53400 


4 


00537 F5 


02135 





02000 


4 


00001 


02136 


-0 


63400 


4 


00537 F30 


02137 





56000 





00314 


02140 


-0 


60000 





00544 


02141 





60100 





00545 


02142 





07400 


4 


00070 


02143 





50000 


1 


06447 


02144 





60100 





00547 


02145 


-0 


50000 


1 


06442 


02146 





62200 





00542 


02147 


-0 


50000 





00545 


02150 





40000 





00316 



CAL REG»2 

ANA SEK4 

ORA S6V2 

SLW REGt2 

LXO SGV1»4 RETURN 

TRA 1»4 

THE Fl SUBROUTINE FINOS THE HIGHEST 
A GIVEN BB AND STORES IT IN FV 101. 

SXD FV6*4 STORE RETURN 

LDQ ZERO SET HIGHEST 

STQ FV101 FREQ. TO 0* 

STO FV102 STORE BB NO+ 

TSX SElf4 GET INDEX OF BB 

CLA B£B+5#1 STORE REGION 

STO FV104 NO* WORD. 

CAL BBBfl GET PRED. 

STA FV7 NO. AND STORE IT 

CAL FV102 GET AND STORE 

ADD ONEA FIRST PRED. IN 

TSX SE1»4 NEXT B.B. 

CLA BBB»1 

STA FV8 

CLA FV7 IS THIS PRED. 

CAS FV8 IN SAME BB 

TRA F2 

TRA F5 NO 

TSX SE5.4 GET INDEX OF PRED 

CLA PREDtl 

CAS FV101 IS THIS FREQ. GREATER 

TRA F92 

NOP 

TRA F3 NO 

STO FV101 STORE NEW MAX. 

CLA FV7 STORE NEW 

STO FV103 PRED. NO. 

CLA FV7 ARRANGE TO 

ADD ONEA CONSIDER NEXT PRED. 

STA FV7 

TRA F4 

LXD FV6»4 

TRA 1*4 RETURN 

THE F30 SUBROUTINE FINDS THE HIGHEST 
A GIVEN BB AND STORES IT IN FV 101. 

SXD FV6»4 

LDQ ZERO SET HIGHEST FREQH 

STQ FV101 TO 0. 

STO FV102 STORE BB NO. 

TSX SE»4 

CLA BBB+5»1 

STO FV104 

CAL BBB»1 GET SUCC. NO. 

STD FV9 AND STORE IT 

CAL FV102 GET AND STORE 

ADD ONED SUCC. 



F5G14050 
F5G14060 
F5G14070 
F5G14080 
F5614090 
F5G14100 
FREQUENCY PRED ENTRY FOR F5G14110 

F5614130 
F5G14140 
F5614150 
F5G14160 
F5614170 
F5G14180 
F5G14190 
F5G1420O 
F5614210 
F5G14220 
F5G14230 
F5614240 
F5G14250 
F5614260 
F5G14270 
F5G14280 
F5G14290 
F5G14300 
F5G14310 
F5G14320 
F5G14330 
F5G14340 
F5G14350 
F5G14360 
F5G14370 
F5G14380 
F5G14390 
F5G14400 
F5G14410 
F5G14420 
F5G14430 
F5614440 
F5G14450 
FREQUENCY SUCC ENTRY FORF5G14460 

F5G14470 
F5G14480 
F5G14490 
F5G14500 
F5G14510 
F5G14520 
F5G14530 
F5G14540 
F5G14550 
F5G14560 
F5G14570 
F5G14580 



02151 
02152 
02153 
02154 
02155 
02156 
02157 
02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 
02170 
02171 
02172 
02173 
02174 
02175 
02176 
02177 
02200 
02201 
02202 
02203 
02204 
02205 
02206 
02207 
02210 
02211 
02212 
02213 
02214 
02215 
02216 
02217 
02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 



07400 
50000 
62200 
50000 
34000 
02000 
02000 
07400 
50000 
34000 
02000 
76100 
02000 
60100 
50000 
60100 
50000 
40000 
62200 
02000 
53400 
02000 
50000 
60100 
60100 
60100 
50000 
07400 
50000 
34000 
02000 
76100 
02000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
50000 
40000 
60100 
40200 
40000 
10000 
76000 
07400 
50000 
10000 
02000 
50000 
10000 
73400 



00070 
06442 
00543 
00542 

00543 F31 
02160 
02175 
00044 F32 
07555 
00544 
02166 
00000 
02171 

00544 F93 
00542 
00546 
00542 F33 
00316 
00542 
02155 
00537 F34 
00001 
00314 F 
00550 
00532 
00536 
00536 F7 
02075 
00544 
00532 
02212 
00000 
02221 
00532 F85 
00545 
00533 
00546 
00534 
00547 
00535 
00536 F6 
00315 
00536 
07774 
00315 
02203 

00012 F86 
00004 
00532 
02234 
00030 

00535 F86A 
02245 
00000 



TSX SE#4 NO. 

CLA 88B»1 OF 1ST SUCC. 

STD FV10 IN NEXT BB 

CLA FV9 

CAS FV10 IS SUCC IN SAME BB 

TRA F32 

TRA F34 NO. 

TSX SE6»4 6ET INDEX OF SUCC. 

CLA SUCCtl 

CAS FV101 IS THIS FREQ. 6REATER 

TRA F93 

NOP 

TRA F33 NO 

STO FV101 STORE NEW MAX. 

CLA FV9 STORE NEW 

STO FV103 SUCC. NO. 

CLA FV9 ARRANGE TO CONSIDER 

ADD ONED NEXT SUCC. 

STD FV9 

TRA F31 

LXD FV6»4 

TRA 1»4 RETURN 

CLA ZERO SET INDICATOR TO SAY 

STO LPIND THIS ISNT A LOOP. 

STO FV1 SET HIGHEST FREQ. TO 0. 

STO FV5 SET TO CONSIDER OTH BB 

CLA FV5 

TSX Fl»4 FIND MOST FREQ. UNCONSIDERED TRANSFER 

CLA FV101 IS IT GREATER THAN 

CAS FV1 PREVIOUS MAXIMUM 

TRA F85 

NOP 

TRA F6 N0+ 



STO FV1 



REPLACE PREV. MAX. 



CLA FV102 AND BB NO. 

STO FV2 

CLA FV103 AND PRED. NO. 

STO FV3 

CLA FV104 AND REGION NO. WORD. 

STO FV4 

CLA FV5 ARRANGE TO CONSIDER NEXT 

ADD ONEA B.B. 

STO FV5 

SUB KEYS 

ADD ONEA 

TNZ F7 WAS THIS THE LAST BB 

OCT YES. IF ANY DIVIDE CHECKS GO 

TSX 4»4 TO DIAGNOSTIC. 

CLA FV1 NO DVD CHECKS. WERE THERE ANY 

TNZ F86A UNCONSIDERED PREDS 

TRA R NO»CONTINUE PROGRAM, PART I DONE. 

CLA FV4 YES 

TZE F9 IS THIS A REGION ALREADY 

PDX 0.1 YES. 



F5G14590 
F5G14600 
F5G14610 
F5G14620 
F5G14630 
F5G14640 
F5G14650 
F5G14660 
F5G14670 
F5G 14680 
F5G14690 
F5G14700 
F5G14710 
F5G14720 
F5G14730 
F5G14740 
F5G14750 
F5G14760 
F5G14770 
F5G147S0 
F5G14790 
F5G14800 
F5G14810 
F5614820 
F5G14830 
F5G14840 
F5G14850 
F5G14860 
F5G14870 
F5G14880 
F5G14890 
F5G14900 
F5G14910 
F5G14920 
F5G14930 
F5G 14940 
F5G14950 
F5G14960 
F5G14970 
F5G14980 
F5G14990 
F5G15000 
F5G15010 
F5G15020 
F5G15030 
F5G15040 
F5G15050 
F5G15060 
F5G15070 
F5G15080 
F5G15090 
F5G151O0 
F5G15110 
F5615120 



:V" 



U 



u 



02237 


50000 1 05061 




CLA 


02240 


-0 32000 00360 




ANA 


02241 


10000 02244 




TZE 


02242 


50000 00356 




CLA 


02243 


02000 02245 




TRA 


02244 


50000 00357 


F8 


CLA 


02245 


60100 04775 


F9 


STO 


02246 


50000 00533 




CLA 


02247 


76700 00022 




ALS 


02250 


62200 04775 




STD 


02251 


50000 00350 




CLA 


02252 


62200 02270 




STD 


02253 


50000 00532 


F23 


CLA 


02254 


07400 4 00067 




TSX 


02255 


50000 1 06447 




CLA 


02256 


1000© 02611 




TZE 


02257 


-0 73400 2 00000 




PDX 


02260 


50000 2 05061 




CLA 


02261 


60100 00535 




STO 


02262 


-0 32000 00360 




ANA 


02263 


10000 02603 




TZE 


02264 


53400 1 00341 




LXA 


02265 


50000 1 04777 


F12 


CLA 


02266 


1 00001 1 02267 




TXI 


02267 


-0 63400 1 02412 


F25 


SXD 


02270 


3 00000 1 02321 


Fll 


TXH 


02271 


34000 00324 




CAS 


02272 


76100 00000 




NOP 


02273 


02000 02275 




TRA 


02274 


02000 02265 




TRA 


02275 


07400 4 00070 


F87 


TSX 


02276 


50000 1 06447 




CLA 


02277 


-0 73400 1 00000 




PDX 


02300 


50000 1 05061 




CLA 


02301 


-0 53400 1 02412 




LXD 


02302 


34000 00535 




CAS 


02303 


02000 02265 




TRA 


02304 


02000 02306 




TRA 


02305 


02000 02265 




TRA 


02306 


50000 00532 


F100 


CLA 


02307 


62100 1 05000 




STA 


02310 


2 00001 1 02311 


F13 


TIX 


02311 


-0 53400 2 022 70 


F24 


LXD 


02312 


-0 63400 1 02412 


F43 


SXD 


02313 


56000 00323 




LDQ 


02314 


-0 60000 00550 




STQ 


02315 


2 00001 2 02316 




TIX 


02316 


07400 4 02407 


F14 


TSX 


02317 


07400 4 02651 




TSX 


02320 


02000 02717 




TRA 


02321 


50000 00356 


F19 


CLA 


02322 ■ 


-0 53400 1 02270 




LXD 


02323 


60100 1 04777 




STO 


02324 


50000 00532 




CLA 



RE6»1 GET REGION WORD. 

FK3 

FB IS IT AN OPAQUE REGION 

FK1 NO»GET TRANSPARENT REGION MARKER. 

F9 

FK2 GET OPAQUE REGION MARKER. 

LPLST+S3P1-2 

FV2 STORE THE REGION MARKER 

18 AT END OF LPLST. 

LPLST+S3P1-2 

S9K3 INITIALIZE THE STORING 

Fll POSITION IN LPLST. 

FV1 GET INDEX 

SE1»4 OF BB UP FOR ENTRY. 

BBB+5*1 IS THIS BB IN 

F57 A REGION 

0»2 YES 

REG»2 GET AND STORE 

r'V4 REGION WORD 

FK3 

F55 IS IT AN OPAQUE REGION 

S5K4»1 NOt TRANSPARENT 

LPLST+S3P1»1 

F25»ltl STORE INDEX OF LPLST QUANTITY BEING COMPARED. 

F18*l 

F19»1»K ARE WE THRU WITH COMPARISONS 

S3K2 NO»IS THIS BB ENTRY 

F87 

F12 YES. 

SE.4 GET INDEX OF BB 

BBB+5»1 GET 

0»1 REGION 

REG#1 WORD. 

F18»l 

FV4 IS THIS THE SAME REGION 

F12 NO 

F100 

F12 NO 

FV1 PUT EXIT BB NO. 

LPLST+S3P1+1U IN TR. REG. QUANTITY 

F24»l»l GENERATE INDEX OF LAST THING TO BE MOVED UP. 

Fll»2 GET INDEX TO GENERATE INDEX OF 1ST THING 

F18»l STORE INDEX OF LAST THING 

S3K1 RECORD 

LPIND LOOP. 

F14»2»l GENERATE INDEX OF 1ST THING 

F15»4 GO TO MOVE LPLST QUANTITIES UP+ 

F80#4 

L TO 1ST LXING PASS. 

FK1 

Flltl STORE TRANSPARENT 

LPLST+S3P1*1 REGION MARKER 

FV1 



F5G15130 
F5G15140 
F5G15150 
F5G15160 
F5G15170 
F5G15180 
F5G15190 
F5G15200 
F5G15210 
F5G15220 
F5G15230 
F5G15240 
F5G15250 
F5G15260 
F5G15270 
F5G15280 
F5G15290 
F5G15300 
F5G15310 
F5G15320 
F5615330 
F5G15340 
F5615350 
F5G15360 
F5G15370 
F5G15380 
F5G15390 
F5G15400 
F5G15410 
F5G15420 
F5615430 
F5G15440 
F5G15450 
F5G15460 
F5G 15470 
F5615480 
F5G15490 
F5G15500 
F5G15510 
F5G15520 
F5615530 
F5G15540 
F5G15550 
F5G15560 
F5G15570 
F5G15580 
F5G15590 
F5G15600 
F5G15610 
F5G15620 
F5G15630 
F5G15640 
F5G15650 
F5G15660 



02325 
02326 
02327 
02330 
02331 
02332 
02333 
02334 
02335 
02336 
02337 
02340 
02341 
02342 
02343 
02344 
02345 
02346 
02347 
02350 
02351 
02352 
02353 
02354 
02355 
02356 
02357 
02360 
02361 
02362 
02363 
02364 
02365 
02366 
02367 
02370 
02371 
02372 
02373 
02374 
02375 
02376 
02377 
02400 
02401 
02402 
02403 
02404 
02405 
02406 
02407 
02410 
02411 
02412 



62100 
07400 
50000 
60100 
50000 
73400 
50000 
77100 
07400 
50000 
34000 
02000 
76100 
02000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
50000 
32000 
34000 
02000 
02000 
02000 
50000 
10000 
50000 
53400 
76700 
62200 
00001 
63400 
00036 
02000 
53400 



53400 1 



63400 
07400 
50000 
34000 
76100 
02000 
00002 
02000 
50000 
62200 
02000 
53400 
50000 
60100 
00000 



04777 
00067 
00314 
00532 
06447 
00000 
05061 
00022 
02075 
00544 
00532 
02343 
00000 
02352 
00532 
00545 
00533 
00546 
00534 
00547 
00535 
00547 
00353 
00353 
02335 
02360 
02335 
00532 
02372 
00533 
02270 
00022 
04777 
02367 
02270 
02404 
02253 
02270 
00341 
02412 
02407 
04740 
00361 
00000 
02706 
02421 
02706 
00303 
04741 
02536 
00325 
04777 
04777 
02415 



STA 
TSX 
CLA 
STO 
CLA 
PDX 
CLA 
ARS 

F21 TSX 
CLA 
CAS 
TRA 
NOP 
TRA 

F88 STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 

F20 CLA 
ANA 
CAS 
TRA 
TRA 
TRA 

F22 CLA 
TZE 
CLA 
LXD 
ALS 
STD 
TXI 

F70 SXD 
TXH 
TRA 

F28 LXD 

F56 LXA 
SXD 
TSX 
CLA 
CAS 
NOP 
TRA 
P002 TXH 
TRA 

F73 CLA 
STD 
TRA 

F15 LXD 

F26 CLA 
STO 

F18 TXL 



LPLST+S3P1»1 

SE1»4 FIND BB INDEX. 

ZERO SET INITIAL MAX 

FV1 FREQ. TO 0+ 

BBB+5.1 GET THE 

0*1 REGION 

REG»1 WORD 

18 

Fl»4 DETERMINE MOST FREQ. PRED IN BB. 

FV101 IS IT MORE FREQ. THAN 

FV1 PREV. MAX. 

F88 

F20 NO. 

FV1 REPLACE PREV. MAX. 

FV102 AND BB NO. 

FV2 AND 

FV103 PRED. NO. 

FV3 AND 

FV104 REGION NO. WORD. 

FV4 

FV104 ARRANGE TO CONSIDER THE 

SBK2 NEXT B.B. IN REGION. 

SBK2 ARE WE THRU WITH REGION 

F21 

F22 YES 

F21 

FV1 WAS THERE AN UNCONSIDERED 

F28 PRED 

FV2 YEStSTORE THE 

Fllrl ENTRY B.B. 

18 NO. 

LPLST+S3Plil 

F70»l»l UP THE STORING INDEX 

Fll»l 

F73»1»S3P1 IS LPLST FULL 

F23 

Fll»2 

S5K4tl 

F18»l 

F15»4 NONE LPLST UP. 

LPLST-1 

FK4 IS THIS AN OPAQUE REGION 

F75 TO 2ED LXING PASS. 

F29»l*2 

F75 

SEK4 STORE SPECIAL 

LPLST SYMBOL IN DECR. PART OF 1ST LPLST 

F53 QUANTITY 

S3K3»1 SET INDEX TO START OF LOOP LIST. 

LPLST+S3P1»2 MOVE THIS 

LPLST+S3P1#1 ENTRY UP. 

F17.2t- IN DECR.. THE INDEX OF LAST TO BE 



MOVED. 



F5G15670 
F5G15680 
F5G15690 
F5G15700 
F5G15710 
F5G15720 
F5G15730 
F5G15740 
F5G15750 
F5G15760 
F5G15770 
F5G15780 
F5G15790 
F5G15800 
F5G15810 
F5G15820 
F5G15830 
F5G15840 
F5G15850 
F5G15860 
F5G15870 
F5G15880 
F5G15890 
F5G15900 
F5G15910 
F5G15920 
F5G15930 
F5G15940 
F5G15950 
F5G15960 
F5G15970 
F5G15980 
F5G15990 
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TRA 


02455 
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02460 




TRA 


02456 





76700 





00022 
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02434 
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CLA 
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00533 




CLA 
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TZE 



F16*l»l NO* 

F26*2»l ARE WE FINISHED COPYING 

LPLST-J CASE OF LQQP»STORE PREO. OF 1ST ELEMENT* 

S3K1 STORE THE END 

LPLST+S3P1+1*! LOOP LIST QUANTITY* 

lt4 

F39#l INITIALIZE STORING LOCATION. 

S3X2 ISNT OPAQUE REGIONH IS IT BB 

NO « 
FSf 

F44 YE§« 

ZERO NO* SET INITIAL 
FV1 FREQ+ TO 0* 
SI»4 GET 
|gB*5il REGION 
# 1 NO * 

RiGtl GET NO* OF 1ST BB IN REGION 
p|0»4 DETERMINE MOST FREQ SUCC IN BB 
FV101 IS IT MORE FREQt THAN 
FV1 PREV+ MAX 
F90 

YES» 
W %& NO 

FV1 YES# REPLACE PREV*MAX* 
FV102 AND BB NO* 
FV2 AND 

FV103 SUCC* N0+ 
FV3 AND 
FV104 REGION NO* WORD 

FV4 

FV104 ARRANGE TO CONSIDER THE 

SBK2 NEXT 3B IN REGION 

SBK2 IS IT LAST BB IN REGION 

F94 

F37 YES 

16 

F35 

FV1 WAS THERE AN UNCONSIDERED 

F39tl SUCC 

F47 

FV2 EXIT BB 

18 NO* 

LPLST+S3Pl#i 

F62»l»l DOWN THE STORING 

F39»l INDEX* 

FV1 GET INDEX OF 

SE1»4 BB UP FOR ENTRY* 

BBB+5»1 IS THIS BB IN 

F48 A REGION 

0*2 YES* 

REG»2 GET AND 

FV4 STORE REGION WORD* 

FX3 IS IT IN AN 

F54 OPAGUE REGION 



F5G16210 
F5G16220 

F5G16230 
F5G1624Q 
F5G1625Q 
F5G16260 
F5G1627Q 
F5G16280 
F5G16290 

F5016I10 
F5G16320 
F5G16I3Q 
FI6I614Q 
Fi6i635Q 
F5G16360 
PIG16370 
FIG16I80 
FI6.16S90 
FIG164O0 
F|G 16410 
FIG16420 

FIG16430 
F5G16440 

F5S164I0 
F|§ 16460 
FIG16470 
F5G16480 
F5G 16490 
F5G16IO0 
FIG16I10 
F5G16I20 
F5G16I30 
F§§16i40 
F5G16I50 
F5G16I60 
FiG16§70 
F5G16§!0 
F§G16if0 
F5G 16600 
F5G16610 
F5G16620 
F5G16630 
F5G16640 

F5G 16650 
F5G16660 
F5G 16670 
F5G16680 
F5G16690 
F5G 16700 
F5G 16710 
F5616720 
F5G16730 
F5G16740 



02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 
02513 
02514 
02515 
02516 
02517 
02520 
02521 
02522 
02523 
02524 
02525 
02526 
02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
02540 
02541 
02542 
02543 
02544 
02545 
02546 
02547 
02550 
02551 
02552 
02553 
02554 
02555 
02556 
02557 
02560 
02561 
02562 
02563 
02564 
02565 
02566 



53400 
50000 
60100 
50000 
76700 
62200 
53400 
50000 
34000 
76100 
02000 
02000 
63400 
07400 
50000 
73400 
50000 
53400 
34000 
02000 



02000 



00001 
00000 
02000 
50000 
53400 
62100 
02000 
00002 
50000 
60100 
02000 
50000 
02000 
07400 
50000 
60100 
53400 
10000 
50000 
60100 
02000 
53400 
50000 
32000 
76700 
60100 
60100 
63400 
53400 
50000 
34000 
02000 
02000 



02527 

00356 

04777 

00532 

00022 

04777 

00325 

04777 F38 

00324 

00000 

02515 

02526 

02412 F91 

00067 

06447 

00000 

05061 

02412 

00535 

02526 

02531 

02527 F40 

02535 F39 

02510 

04777 F41 

02527 

04777 

02312 

02541 F42 

00323 F53 

04776 

02706 

04777 F63 

02422 

02136 F44 

00544 

00532 

02527 

02466 

00323 F47 

05000 

02706 

02527 F48 

00532 

00353 

00022 

00535 

04777 

02570 

00325 

04777 F51 

00535 

02567 

02312 



LXD F39»l NO. 

CLA FK1 STORE TRANSPARENT REGION 

STO LPLST+S3P1»1 MARKER 

CLA FV1 WITH 

ALS 18 ENTRY 

STD LPLST+S3Pltl BB NO. IN DECR. 

LXD S3K3»2 SET INDEX TO 1ST ELEMENT IN LPLST. 

CLA LPLST+S3P1»2 

CAS S3K2 IS THIS A BB ENTRY 

NOP 

TRA F91 

TRA F40 YES 

SXD F18»2 STOREINDEX OF QUANTITYBEING C.F. ED 

TSX SE1*4 

CLA BBB+5»1 GET 

PDX 0»2 REGION WORD. 

CLA REG»2 

LXD F18t2 GET INDEX OF QUANTITY BEING COMPARED. 

CAS FV4 IS THIS NAME REGION 

TRA F40 

TRA F41 YES 

TIX F39t2»l n n ni _^ 

TXL F42»2»- IS THIS INDEX OF QUANTITY BEING COMPARED 

TRA F38 NO 

CLA LPLST+S3P1»2 PUT EXIT BB NO. 

LXD F39»l FROM PREVIOUS QUANTITY 

STA LPLST+S3Pltl IN THIS LATEST ONE. 

TRA F43 

TXH F63»2t2 IS LPLST FULL 

CLA S3K1 STORE END 

STO LPLST+S3P1-1 LOOP LIST SENTINEL. 

TRA F75 GO TO DEAL WITH STRING. 

CLA LPLST+S3Plt2 

TRA F64 

TSX F30»4 DETERMINE MOST FREQ. SUCC* IN BB. 

CLA FV101 STORE THE 

STO FV1 MOST FREQ. SUCC. AWAY. 

LXD F39»l 

TN2 F45 WAS THERE AN UNCONSIDERED SUCC. 

CLA S3K1 NOtRECORD AN 

STO LPLST+S3P1+1»1 END LOOP LIST SENTINEL. 

TRA F75 

LXD F39»l ENTER BB 

CLA FV1 NO. AND MARKER 

ANA SBK2 IN 

ALS 18 LPLST 

STO FV4 

STO LPLST+S3P1»1 

SXD F50»l 

LXD S3K3*2 S + TO 

CLA LPLST+S3P1»2 

CAS FV4 IS THIS SAME BB AS NEW ENTRY 

TRA F49 

TRA F43 YES 
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F5G17130 
F5G17140 
F5G17150 
F5G17160 
F5G17170 
F5G17180 
F5G17190 
F5G17200 
F5G17210 
F5G17220 
F5G17230 
F5G17240 
F5G17250 
F5G17260 
F5G17270 
F5G17280 
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026O1 
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02604 
02605 
02606 
02607 
02610 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02620 
02621 
02622 
02623 
02624 
02625 
02626 
02627 
02630 
02631 
02632 
02633 
02634 
02635 
02636 
02637 
02640 
02641 
02642 
02643 
02644 
02645 
02646 
02647 
02650 
02651 
02652 
02653 
02654 
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00000 
02000 
00002 
02000 
53400 
50000 
60100 
50000 
76700 
62200 
02000 
53400 
50000 
60100 
50000 
62100 
02000 
50000 
32000 
76700 
60100 
50000 
62200 
53400 
50000 
00001 
63400 
00000 
34000 
02000 
02000 
020O0 
53400 
50000 
32000 
76700 
60100 
50000 
07400 
50000 
60100 
10000 
53400 
02000 
53400 
00001 
63400 
00036 
02000 
53400 
50000 
10000 
00001 



02570 F49 

02572 F50 

02563 

02541 F52 

02536 

02527 F54 

00357 

04777 

00532 

00022 

04777 

02550 

02270 F55 

00357 

04777 

00532 

04777 

02373 

00532 F57 

00353 

00022 

00535 

02270 

02623 

00341 

04777 F61 

02622 

02412 F58 

02630 F59 

00535 

02620 

02310 

02620 

02270 F60 

00532 

00353 

00022 

04777 

00532 

02075 

00544 

00532 

02644 

02270 

02373 

02270 F71 

02646 

02270 F72 

02536 

02253 

00362 F80 

05061 F81 

02656 

02652 



TIX F50»2tl DECREASE COMPARISON INDEX. 

TXL F52t2»- IS THIS INDEX OF NEW QUANTITY 

TRA F51 NO. 

TXH F63.2t2 IS LPLST FULL 

TRA F53 YES. 

LXD F39»l IS OPAQUE REGION 

CLA FK2 ENTER OPAQUE 

STO LPLST+S3P1«1 REGION MARKER 

CLA FV1 WITH CORRECT 

ALS 18 ENTRY BB 

STD LPLST+S3P1»1 NO. 

TRA F47 

LXD Fll»2 STORE THE 

CLA FK2 OPAQUE 

STO LPLST+S3P1#2 REGION MARKR 

CLA FV1 WITH 

STA LPLST+S3P1»2 EXIT BB 

TRA F56 NO. 

CLA FV1 PUT THE 

ANA SBK2 B.B. NO. 

ALS 18 IN 

STO FV4 DECR. PART. 

CLA Fll SET THE END 

STD F59 TEST. 

LXA S5X4.1 SET INDEX OF 1ST LPLST TO BE COMPARED 

CLA LPLST+S3P1»1 

TXI F58.1»l 

SXD F18»l 

TXH F60.1*- WAS THAT THE LAST QUANTITY 

CAS FV4 IS THIS THE SAME BB. 

TRA F61 

TRA F13 YES 

TRA F61 

LXD Fll»l 

CLA FV1 STORE THE 

ANA SBK2 BB 

ALS 18 MARKER. 

STO LPLST+S3P1#1 

CLA FV1 

TSX Flt4 FIND MOST FREQ. PRED. OF BB. 

CLA FV101 DOES B.B. HAVE 

STO FV1 UNCONSIDERED PRED. 

TNZ F71 

LXD Fll»2 NO»GO TO MOVE LPLST UP. 

TRA F56 

LXD Fllfl 

TXI F72#l»l UP THE STORING INDEX 

SXD Fll»l 

TXH F53»ltS3Pl IS LPLST FULL 

TRA F23 NO. 

LXA FK5»1 FIND 

CLA REG»1 THE 1ST AVAILABLE REGION 

TZE F82 POSITION. 

TIX F81tl»l 
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F5G17330 
F5G17340 
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F5G17400 
F5G17410 
F5G17420 
F5617430 
F5G17440 
F5G17450 
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F5G17470 
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F5G17820 
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04741 
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56000 
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04000 





02662 
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53400 
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00342 
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50000 





00336 
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60100 
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00430 
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00001 
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02000 





03061 




02717 
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00340 
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00437 
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07400 
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01023 


1L4 


02733 





02000 





03013 




02734 





53400 
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00342 
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50000 





00441 




02736 





34000 
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00430 


LZ 


02737 





02000 





02741 




02740 





02000 





03000 





TSX 4t4 DIAGNOSTICS ERROR 

SXD XVI »1 STORE THE INDEX 

OF THE NEW REGION WORD 
LDQ ZERO STORE INITIAL 

STQ XV2 VALUE OF REGION 
TRA 1»4 

TSX SA»4 GET EXIT CONDITIONS OF REGION. 
LXA S5K5»1 PUT EXIT 
LDQ ZERO 

CLA EX1+3»1 CONDI TONS 
STO IR1+3»1 INTO 
CLA ACT1+3*1 I+R.S 
STQ AC1+3»1 

TPL F77 IS THIS EXIT ACTIVE 
CLA S3K3 YES»FORM AND 
SSM STORE ACTIVE 
STO AC1+3»1 INDICATOR 
TIX F76»l»l COUNT TO 3 
CLA S3K3 INITIALIZE 
SUB ONED LOOP LIST 
STO S3V4 TO ITS 
STO S3V5 
CLA S5K3 2ED 
STO S3V3 ELEMENT 
SXD S3V2»0 
TRA X32 

TSX F80»4 DETERMINE NEW REGION INDEX 
CLA LPLST IS 1ST 
LDQ S3K2 ELEMENT OF LPLST A TRANSPARENT 

TLQ F78 ON OPAQUE REGION 

LXA S5K5»1 N0»INITIALIZE 

CLA S5K1 THE 

STO IR1+3#1 I.RiS 

TIX F79»l.l TO EMPTINESS 

TRA X 

FIRST LXING PASS* 
SXD ROT3»0 
SXD ROT1»0 

LXA S5K5tl INITIALIZE 

CLA S5K1 THE 

STO IR1+3»1 INDEX REGISTERS 
TIX L23»l»l TO EMPTINESS. 
LDQ S3K3 

STQ S3V4 INITIALIZE THE 
LDQ S5K3 LOOP LIST. 
STQ S3V3 MAKE SURE THAT THE 
SXD S3V2»0 

TSX S3t4 GET NEXT TAG. 

TRA L6 *RETURN HERE IF TAG WASNT GOTTEN, 
LXA S5K5#1 SET COUNT TO 3tN=l 
CLA 1TAG IS CL (TAG) EQUAL 

CAS IR1 + 3»1 TO C URN) 
TRA Ll NO. 
TRA 1L3 YES 



F5G17830 

F5G17840 

F5G17850 

F5G17860 

F5G17870 

F5G17880 

F5G17890 

F5G17900 

F5G17910 
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F5G18020 
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F5G18050 

F5G18060 

F5G18070 

F5G18080 

F5G18090 

F5G18100 

F5G18110 

F5G18120 

F5G18130 

F5G18140 

F5G18150 

F5G18160 

F5G18170 

F5G18180 

F5618190 

F5G1820O 

F5G18210 

F5G18220 

F5G18230 

F5G18240 

F5G18250 

F5G18260 

F5G18270 

F5G18280 

F5G18290 

F5618300 

F5G18310 

F5G18320 

F5G18330 

F5G18340 

F5G18350 

F5G18360 
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-0 
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SXD 


02760 
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2 


00314 




LXD 
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50000 


2 


04741 
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CLA 


02762 





34000 





00323 




CAS 


02763 


-3 


00000 





02765 


ROT 3 
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-3 
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60100 


2 
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02766 
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2 
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02767 


-0 


63400 


2 


02756 


ROT 5 


SXD 


02770 





50000 





04740 




CLA 


02771 





60100 


2 


04740 




STO 


02772 





02000 





02721 




TRA 


02773 





07400 


4 


00622 


L17 


TSX 


02774 


-0 


53400 


4 


00430 




LXD 


02775 





50000 





00441 




CLA 


02776 





60100 


4 


00430 




STO 


02777 





02000 





02732 




TRA 


03000 





50000 





00442 


1L3 


CLA 


03001 





34000 





00376 




CAS 


03002 





02000 





03004 




TRA 


03003 





02000 





03010 




TRA 


03004 





34000 





00403 


1L19 


CAS 


03005 





02000 





02732 




TRA 


03006 





02000 





03010 




TRA 


03007 





02000 





02732 




TRA 


03010 





50000 





00333 


L5 


CLA 


03011 





60100 


1 


00430 




STO 


03012 





02000 





02732 




TRA 


03013 





60100 





00554 


L6 


STO 


03014 





34000 





00323 




CAS 


03015 


b 


02000 





03017 




TRA 


03016 





02000 





03051 




TRA 


03017 


-0 


50000 





00554 


L14 


CAL 


03020 


-0 


32000 





00335 




ANA 


03021 





10000 





02732 




TZE 


03022 


c 


5000C 





00554 




CLA 


03023 





07400 


4 


01245 




TSX 


03024 





50000 





00554 




CLA 


03025 





07400 


4 


01523 




TSX 


03026 





53400 


1 


00342 




LXA 



L2.1.1 NO. COUNT TO 3,N=N+1 

TPE IS THIS 

XK15 AN LXP INSTR. 

L18 NO. 

ROTO YES 

XK21 NO. IS IT A DED INSTR* 

L17 NO 

ROTO YES 

L17 

S3V4»2 

lL4»2»S3Pl-2 

ROT3.2 

R0T1.2.-1 

lL4»2t- 

ROT3»2 

ZERO, 2 

LPLST.2 

S3K1 

R0T4»0#- 

R0T5*0#- 

LPLST-lf2 

R0Ti#2*-l 

R0T1.2 

LPLST-1 

LPLST-1.2 

INIZ 

Sl»4 SELECT MOST REPLACEABLE UR« 

IRR»4 PLACE TAU-TAG 

1TAG IN APPROPRIATE 

IR1+3.4 WR. 

1L4 

TPE IS THIS AN LXP 

XK15 

1L19 

L5 YES 

XK21 IS IT AN DED 

1L4 

L5 YES# 

1L4 

LK1 PLACE AN E (HASH 

IR1+3»1 SYMBOL) IN 

1L4 RIGHT IRt 

LV4 IS THIS AN END OF LOOP 

S3K1 LIST SENTINEL 

L14 NO. 

L15 YES* 

LV4 IS 

LK.3 THIS A 

1L4 BB 

LV4 NOt FORM CORRESPONDENCE 

S5.4 BETWEEN IRS AND ENS 

LV4 GET + STORE EXIT CONDITIONS 

SA.4 AND 1USELESSLY+ OCTIVE INDICATORS. 

S5K.5.1 SET COUNT TO 3»N=1 



F5G18370 
F5G18380 
F5G18390 
F5G18400 
F5G18410 
F5G18420 
F5G18430 
F5G18440 
F5G18450 
F5G18460 
F5G1847C 
F5G18480 
F5G18490 
F5G18500 
F5G18510 
F5G18520 
F5G18530 
F5G18540 
F5G18550 
F5G18560 
F5G18570 
F5G18560 
F5G18590 
F5G18600 
F5G18610 
F5G18620 
F5G18630 
F5G18640 
F5G18650 
F5G18660 
F5G18670 
F5G18680 
F5G18690 
F5G 13700 
F5G1S710 
F5G18720 
F5G18730 
F5G18740 
F5G18750 
F5G18760 
F5G18770 
F5G18780 
F5G18790 
F5G18800 
F5G18810 
F5G18820 
F5G18830 
F5G18840 
F5G18850 
F5G18860 
F5G18870 
F5G18880 
F5G18890 
F5G18900 



>> 



o if 



03027 





50000 


1 


00470 


Lll 


CLA 


03030 


-0 


73400 


2 


00000 




PDX 


03031 





50000 


1 


00506 




CLA 


03032 





34000 





00336 




CAS 


03033 





02000 





03035 




TRA 


03034 





02000 





03040 




TRA 


03035 





60100 


2 


00430 


L13 


STO 


03036 


2 


00001 


1 


03027 


L10 


TIX 


03037 





02000 





02732 




TRA 


03040 





50000 


2 


00430 


P003 


CLA 


03041 





56000 





00333 




LDQ 


Gi042 





04000 





03036 




TLQ 


03043 





53400 


4 


00342 




LXA 


03044 





34000 


4 


00506 


P003A 


CAS 


03045 





02000 





03047 




TRA 


03046 


-0 


60000 


2 


00430 




STQ 


03047 


2 


00001 


4 


03044 


P003B 


TIX 


03050 





02000 





03036 




TRA 


03051 





53400 


1 


00342 


L15 


LXA 


03052 





50000 


1 


00430 


L16 


CLA 


03053 





34000 





00333 




CAS 


03054 





76100 





00000 




NOP 


03055 





50000 





00336 




CLA 


03056 





60100 


1 


00430 




STO 


03057 





60100 


1 


00554 




STO 


03060 


2 


00001 


1 


03052 




TIX 


03061 





56000 





00325 


X 


LDQ 


03062 


-0 


60000 





00440 




STQ 


03063 





56000 





00340 




LDQ 


03064 


-0 


60000 





00437 




STQ 


03065 


-0 


63400 


1 


00436 




SXD 


03066 





50000 





00314 


X21 


CLA 


03067 





60100 





00556 




STO 


03070 





60100 





00557 




STO 


03071 





60100 





00560 




STO 


03072 





50O00 





00314 


X32 


CLA 


03073 





60100 





00562 




STO 


03074 





60100 





00563 




STO 


03075 





60100 





00564 




STO 


03076 





60100 





00521 




STO 


03077 





07400 


4 


01023 


X3 


TSX 


03100 





02000 





03322 




TRA 


03101 





50000 





01122 




CLA 


03102 


-0 


32000 





00353 




ANA 


03103 





40000 





00451 




ADD 


03104 





40200 





00332 




SUB 


03105 





76700 





00022 




ALS 


03106 


-0 


40000 





00436 




5BM 


03107 





76500 





00065 




LRS 


03110 


-0 


60000 





00571 




STQ 


03111 





22100 





00371 




DVP 


03112 


-0 


60000 





00567 




STQ 



EN4+3»1 PUT CORRESPONDENCE INDEX 

0t2 IN 2. 

EX1+3»1 IS THIS EXIT CONDITION 

S5K1 EMPTY 

L13 NOt 

P003 

IRl+3»2 NO. REPLACE C (IR) BY EXIT CONDITION. 

L11»1>1 COUNT TO 3»N=N+1 

1L4 

IRl+3»2 

LK1 

L10 

S5K5.4 

EXl+3»4 

P003B 

IR1+3.2 

P003A»4.1 

L10 

S5K5.1 COPY ASIDE THE FINAL 

IR1+3.1 CONTENTS 

L K1 CIF REAL* OTHERWISE 

S5K1 SET TO 

IR1+3.1 EMPTY) 

LV1+3»1 OF THE 
L16»l»l IRS 

THE SECOND LXING PASS FOLLOWS. 

PRECEEDED BY 1ST LXING PASS 
S3K3 INITIALIZE THE 
S3V4 LOOP LI5T AND 
S5K3 MA-<E SURE TAG 
S3V3 LOC. GETS SET. 
S3V2.1 

ZERO SET ACTIVE INDICATORS 
AC1 TO 
AC2 

AC3 NOT ACTIVE. 
ZERO SET LX INDICATORS 
LX1 TO 
LX2 NOT 

LX3 LX ED. .„„ nAe . e 

ACIND SET IND. TO SAY THIS IS 2ED LXING PASS 
S3*4 TRY TO GET NEXT TAG. 
X13 COME HERE IF TAG NOT GOT. 
S39 COMPUTE LOCATIONS OF 
SBK2 THIS TAG=(ADDR. FOLLOWING 
S4V1 TIX BLACK + L (CM)- 
S4K3 CMTAG-INDEX OF TAG 
18 

S3V2 

53 THEN FORM LOC/9 
XV5 AND REMAINDER 
XK9 STORE INTEG. PART 
XV3 AND REMAINDER. 



F5G18910 

F5G18920 

F5G18930 

F5G18940 

F5G18950 

F5618960 

F5G18970 

F5G18980 

F5G18990 

F5G19000 

F5G19010 

F5G19020 

F5G19030 

F5G19040 

F5G19050 

F5G19060 

F5G19070 

F5G19080 

F5G19090 

F5G19100 

F5G19110 

F5G19120 

F5G19130 

F5619140 

F5G19150 

F5G19160 

F5G19170 

F5G19180 

F5G19190 

F5619200 

F5G19210 

F5G19220 

F5G19230 

F5G19240 

F5G19250 

F5G19260 

F5G19270 

F5G19280 

F5G19290 

F5G19300 

F5G19310 

F5G19320 

F5G19330 

F5G19340 

F5G19350 

F5G19360 

F5G19370 

F5G19380 

F5G19390 

F5G19400 

F5G19410 

F5G19420 

F5619430 

F5G19440 



o 



u 



03113 





60100 





00570 




STO 


03114 





53400 


1 


00342 




LXA 


03115 





50000 





00441 




CLA 


03116 





34000 


1 


00430 


X2 


CAS 


03117 





02000 





03121 




TRA 


03120 





02000 





03257 




TRA 


03121 


2 


00001 


1 


03116 


XI 


TIX 


03122 





50000 





00442 




CLA 


03123 





34000 





00376 




CAS 


03124 





02000 





03126 




TRA 


03125 





02000 





03131 




TRA 


03126 





34000 





00403 


X103 


CAS 


03127 





02000 





03131 




TRA 


03130 





02000 





03077 




TRA 


03131 





07400 


4 


00622 


X8 


TSX 


03132 


-0 


53400 


1 


00430 




LXD 


03133 





50000 





00441 




CLA 


03134 





60100 


1 


00430 




STO 


03135 





50000 


1 


00561 




CLA 


03136 





10000 





03140 




TZE 


03137 





07400 


4 


01566 




TSX 


03140 





50000 





00442 


X4 


CLA 


03141 





34000 





00322 




CAS 


03142 





02000 





03144 




TRA 


03143 





02000 





03155 




TRA 


03144 


-0 


50000 





00443 


X5 


CAL 


03145 


-0 


32000 





00363 




ANA 


03146 


-0 


10000 





03204 




TNZ 


03147 





50000 





00567 




CLA 


03150 





07400 


4 


00032 




TSX 


03151 





53400 


2 


00570 




LXA 


03152 


-0 


50000 





00372 




CAL 


03153 





76700 


2 


00010 




ALS 


03154 


-0 


60200 


1 


05061 




ORS 


03155 





07400 


4 


02024 


X14 


TSX 


03156 





02000 





03162 




TRA 


03157 


-0 


53400 


1 


00430 




LXD 


03160 





50000 





00526 




CLA 


03161 





60100 


1 


00561 




STO 


03162 


-0 


53400 


2 


00430 


X01 


LXD 


03163 


0. 


50000 


2 


00565 




CLA 


03164 


-0 


10000 





03167 




TNZ 


03165 





50000 





00333 




CLA 


03166 





60100 


2 


00565 




STO 


03167 


-0 


50000 





00340 


X19 


CAL 


03170 





77100 


2 


00003 




ARS 


03171 


-0 


60200 





00566 




ORS 


03172 





50000 





00567 


X02 


CLA 


03173 





07400 


4 


00032 




TSX 


03174 


-0 


50000 





00570 




CAL 


03175 





76000 





00006 




COM 


03176 





73400 


2 


00000 




PAX 


03177 


-0 


50000 





00430 




CAL 


03200 





77100 


2 


00000 




ARS 



XV4 

S5K5.1 SET COUNT TO 3»N=1 

1TAG 

IR1+3*1 IS CONTENTS OF IRN SAME AS OF TAG 

XI NO 

X7 YES 

X2»l»l NO COUNT OT 3»N=N+1 

TPE IS THIS AN 

XK15 LX PRIME 

X103 NO 

X8 YES. COMPILE LXD FOR LXP. 

XK21 IS IT A DED 

X8 

X3 YES 

SI #4 SELECT MOST REPLACEABLE I.R. 

IRR»1 PLACE TAU-TAG 

1TAG IN SELECTED 

IRl+3tl I*R« 

ACl+3tl IS THIS 

X4 IR ACTIVE 

SB»4 YES.RECORD SXO NECESSARY. 

TPE IS THIS 

S2K2 AN LX 

X5 NO 

X14 YES 

INTAG IS THIS 1ST INSTR. 

XK10 IN A BB 

X9 

XV3 N0» 

SE4*4 DETERMINE INDEX IN STAG 

XV4»2 

XK11 GENERATE 

8f2 LX BIT 

STAG.l STORE IN STAG. 

SF#4 CHECK IF AN ACTIVE INSTR. 

X01 COME HERE IF NOT ACTIVE 

IRR.l ACTIVE-STORE ACTIVE 

SFV1 INDICATOR 

ACl+3il 

IRR*2 

LX1+3.2 WAS AN ENTRANCE REQUIREMENT 

X19 BEEN DETERMINED FOR THIS BB. 

LK1 NOfRECORD HASH 

LXl+3.2 AS ENTRANCE REQUIREMENT 

S5K3 RECORD THAT THERE IS AN 

3»2 LX FOR THIS IR IN 

XV2 REGION. 

XV3 RECORD THE 

SE4t4 SPECIFIC 

XV4 TAG 

IN 
0»2 THE 
IRR STAG 
0»2 TABLE 



F5G19450 

F5G19460 

F5G19470 

F5G19480 

F5G19490 

F5G19500 

F5G19510 

F5G19520 

F5G19530 

F5G19540 

F5G19550 

F5G19560 

F5G19570 

F5G19580 

F5G19590 

F5G19600 

F5G19610 

F5G19620 

F5G19630 

F5G19640 

F5G19650 

F5G19660 

F5G19670 

F5G19680 

F5G19690 

F5G19700 

F5G19710 

F5G19720 

F5G19730 

F5G19740 

F5G19750 

F5G19760 

F5G19770 

F5G19780 

F5G19790 

F5G19800 

F5G19810 

F5G19820 

F5G19830 

F5G19840 

F5G19850 

F5G19860 

F5G19870 

F5G19880 

F5G19890 

F5G19900 

F5G19910 

F5G19920 

F5G19930 

F5G19940 

F5G19950 

F5G19960 

F5G19970 

F5G19980 



5* 



< 



m? 



03201 





77100 


2 


00000 


03202 


-0 


60200 


1 


05061 


03203 





02000 





03077 


03204 


-0 


53400 


1 


00440 


03205 


-3 


00034 


1 


03212 


03206 





50000 





00550 


03207 


-0 


12000 





03212 


03210 


-0 


53400 


2 


00430 


03211 





02000 





03243 


03212 





50000 


1 


04775 


03213 





34000 





00324 


03214 





76100 





00000 


03215 





02000 





03217 


03216 





77100 





00022 


03217 





62100 





00513 


03220 





50000 


1 


04776 


03221 





07400 


4 


00070 


03222 





50000 


1 


06442 


03223 





60200 





00512 


03224 





07400 


4 


00055 


03225 


-0 


50003 


1 


07337 


03226 


-0 


32000 





00353 


03227 





34000 





00513 


03230 





02000 





03232 


03231 





02000 





03235 


03232 





50000 





00512 


03233 





40000 





00315 


03234 





02000 





03223 


03235 


-0 


53400 


2 


00430 


03236 


-0 


50000 





00377 


03237 





77100 


2 


00003 


03240 


-0 


60200 


1 


07337 


03241 


-0 


53400 


4 


00440 


03242 


-0 


60200 


4 


04776 


03243 





50000 


2 


00430 


03244 





60100 


2 


00565 


03245 





02000 





03155 


03246 





07400 


4 


01661 


03247 





56000 





00333 


03250 





50000 


1 


00565 


03251 


-0 


10000 





03253 


03252 


-0 


60000 


1 


00565 


03253 


-0 


60000 


1 


00430 


03254 





50000 





00314 


03255 





60100 


1 


00561 


03256 





02000 





03172 


03257 


-0 


63400 


1 


00430 


03260 





50000 





00442 


03261 





34000 





00376 


03262 





02000 





03264 


03263 





02000 





03246 


03264 





34000 





00403 


03265 





02000 





03267 


03266 





02000 





03246 



ARS 0*2 

ORS STAG»1 

TRA X3 
X9 LXD S3V4.1 GET 

TXL XIl+l»l*S3Pl-2 

CLA LPIND 

TMI XI 1+1 

LXD IRR»2 
XII TRA X16-3 

CLA LPLST+S3P1-2.1 AND 

CAS S3K2 STORE 

NOP BB 

TRA X117 

ARS 18 PRED 
X117 STA SBV3 NO. 

CLA LPLST+S3P1-1»1 

TSX SEt4 GET ADDR. OF 

CLA BBB*1 1ST PRED* 
X03 SLW SBV2 

TSX SE5»4 GET PRED. 

CAL PRED#1 

ANA SBK2 

CAS SBV3 IS THIS RIGHT PRED* 

TRA X0<+ NO 

TRA X05 rES 
X04 CLA SBV2 NO ARRANGE TO 

ADD ONEA TRY NEXT 

TRA X03 PRED. 
X05 LXD IRR»2 PUT LX 

CAL XK16 BIT INTO 

ARS 3»2 PRED. 

ORS PREDtl TABLE. 

LXD S3V4.4 

ORS LPLST+S3P1-1»4 

CLA IRl+3»2 SET ENTR. REQU. 

STO LXl+3*2 

TRA X14 
X16 - TSX SC.4 RECORD I.R. ACTIVE IN SECTION OF LPLST 

LDQ LK1 

CLA LXl+3.1 HAS THIS 

TNZ X100 ENTR. REQU. BEEN DETERMINED 

STQ LX1+3.1 NO. RECORD ENTR. REQU. IS AN E. 
X100 STQ IRl+3tl ERASE THIS I.R. 

CLA ZERO RECORD THAT THIS 

STO AC1+3.1 I.R. ISNT ACTIVE. 

TRA X02 
X7 SXD IRR»1 

CLA TPE IS THIS 

CAS XK15 AN LXP 

TRA X104 NO 

TRA X16 YES. 
X104 CAS XK21 IS IT A DED 

TRA X15 

TRA X16 YES. 



F5G19990 

F5G20000 

F5G20010 

F5G20020 

F5G20030 

F5G20040 

F5G20050 

F5G20060 

F5G20070 

F5G20080 

F5G20090 

F5G20100 

F5G20110 

F5G20120 

F5G20130 

F5G20140 

F5G20150 

F5G20160 

F5G20170 

F5G20180 

F5G20190 

F5G202O0 

F5G20210 

F5G20220 

F5G20230 

F5G20240 

F5G20250 

F5G20260 

F5G2027O 

F5G20280 

F5G20290 

F5G20300 

F5G20310 

F5G20320 

F5G20330 

F5G20340 

F5G20350 

F5G20360 

F5G20370 

F5G20380 

F5G20390 

F5G20400 

F5G20410 

F5G20420 

F5G20430 

F5G20440 

F5G20450 

F5G20460 

F5620470 

F5G20480 

F5G20490 

F5G205O0 

F5G20510 

F5G20520 



,(■ 



u 



u 



03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 
03277 
03300 
03301 
03302 
03303 
03304 
03305 
03306 
03307 
03310 
03311 
03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 
03322 
03323 
03324 
03325 
03326 
03327 
03330 
03331 
03332 
03333 
03334 
03335 
03336 
03337 
03340 
03341 
03342 
03343 
03344 
03345 
03346 
03347 
03350 
03351 
03352 
03353 
03354 



07400 
02000 
53400 
07400 
50000 
60100 
50000 
34000 
02000 
02000 
53400 
50000 
10000 
50000 
60100 
02000 
07400 
53400 
50000 
10000 
50000 
76700 
40000 
60200 
77777 
00001 
02000 
53400 
00034 
50000 
60100 
56000 
04000 
77100 
32000 
56000 
04000 
07400 
50000 
77100 
40000 
10000 
53400 
50000 
10000 
07400 
00001 
50000 
34000 
76100 
02000 
02000 
50000 
34000 



02024 
03275 
00430 
01661 
00526 
00561 
00442 
00322 
03301 
03162 
1 00430 
I 00565 
03172 
00430 
00565 
03172 
00070 
00342 
00565 
03314 
00430 
00022 
00430 
06444 
03320 
03311 
03353 
00440 
03353 
04775 
00607 
00324 
03331 
00022 
00326 
00351 
03346 
00067 
06442 
00041 
00315 
03346 
00342 
00561 
03345 
01566 
03342 
00607 
00324 
00000 
03353 
03307 
00444 
00323 



X15 



X17 



X18 



X22 
X25 

X23 

X24 
X13 



X126 



X128 



X127 
X129 



X26 



TSX 
TRA 
LXD 
TSX 
CLA 
STO 
CLA 
CAS 
TRA 
TRA 
LXD 
CLA 
TNZ 
CLA 
STO 
TRA 
TSX 
LXA 
CLA 
TNZ 
CLA 
ALS 
ADD 
SLW 
TXI 
TIX 
TRA 
LXD 
TXH 
CLA 
STO 
LDQ 
TLQ 
ARS 
ANA 
LDQ 
TLQ 
TSX 
CLA 
ARS 
ADD 
TNZ 
LXA 
CLA 
TZE 
TSX 
TIX 
CLA 
CAS 
NOP 
TRA 
TRA 
CLA 
CAS 



SF|4 DETERMINE ACTIVITY. 

X17 COME HERE IF NOT ACTIVE, 

IRR»1 

SCt4 RECORD PART OF LOOP LIST ACTIVE. 

SFV1 STORE ACTIVE 

AC1+3»1 INDICATOR. 

TPE 

S2K2 IS THIS AN LX 

X18 

X01 YES. 

IRR.l 

LX1+3»1 WAS THIS 

X02 I.R. LX ED 

IR1+3.1 NO.STORE THE TAG 

LX1+3.1 IN TH LX INDICATOR. 

X02 

SE.4 MAKE SURE BB IS IN C+M. 

S5K5.2 

LXl+3»2 

X23 HAS THIS ENTRANCE REQ. BEEN FOUND 

IR1+3.2 NO.ENTRANCE = EXIT. 

18 PUT ENTR. REQ» IN LEFT. 

IR1+3.2 ADD THE EXIT REQUIREMENTS. 

BBB+2»1 

X24.1#-l DOWN INDEX OF ENTR-EXIT REQU. 

X25»2»l COUNT TO 3 

X26 

S3V4»1 GET LOOP LIST QUANTITY 

X26.1.S3P1-2 TRANSFER IF THIS IS 1ST IN LPLST 



OF PREVIOUS QUANTITY 



IS THERE 



LPLST+S3P1-2.1 

XV19 

S3K.2 WAS IT 

X126 A BB 

18 YES 

S3K4 

SAK1 

X129 

SE1.4 

BBBfl 

33 

ONE A 

X129 

S5K5.1 

AC1+3»1 

X127 

SB»4 

X128fl.l 

XV19 

S3K2 

NO 
X26 

X22 YES» 
S3V5 NO 
S3K1 IS THIS AN END-LOOP-LIST 



YES» GET EXIT BB 
WAS THAT BB 
TERMINATED BY 
A 
GO TO N 
YES* SET COUNT TO 3 
IS THIS IR 
ACTIVE 

YES» RECORD SXD NECESSARY 
COUNT TO 3 
GET 



F5G20530 
F5G20540 
F5G20550 
F5G20560 
F5G20570 
F5G20580 
F5G20590 
F5G20600 
F5G20610 
F5G20620 
F5G20630 
F5G20640 
F5G20650 
F5G20660 
F5G20670 
F5G20680 
F5G20690 
F5G20700 
F5G20710 
F5G20720 
F5G20730 
F5620740 
F5G20750 
F5G20760 
F5G20770 
F5G20780 
F5G20790 
F5G20800 
F5G20810 
F5G20820 
F5G20830 
F5G20840 
F5G20850 
F5G20860 
F5G20870 
F5G20880 
F5G20890 
F5G20900 
F5620910 
F5G20920 
F5G20930 
F5G20940 
F5G20950 
F5G20960 
F5G20970 
F5G20980 
F5G20990 
F5G21000 
F5G21010 
F5G21020 
F5G21O30 
F5G21040 
F5G21050 
F5G21060 



i,r 



ov 



03355 





02000 





03357 




TRA X31 NO 




03356 





02000 





04370 




TRA X88 YES 




03357 


-0 


50000 





00444 


X31 


CAL S3V5 




03360 


-0 


32000 





00335 




ANA LK3 




03361 





34000 





00400 




CAS XK17 WHAT TYPE ENTRY IS THIS 


03362 





02000 





03365 




TRA X118 




03363 





02000 





04043 




TRA X33 TRANSPARENT REGION 


03364 





02000 





03072 




TRA X32 BB 




03365 





50000 





00444 


X118 


CLA S3V5 


OPAQUE REGION 


03366 





07400 


4 


00070 




TSX SE»4 


IS 


03367 





50000 


1 


06447 




CLA BBB+5*1 


THIS 


03370 





60100 





00614 




STO XV24 




03371 





62200 





00613 




STD XV23 


THE 


03372 





50000 





04741 




CLA LPLST 


SAME 


03373 





56000 





00361 




LDQ FK4 




03374 





04000 





03376 




TLQ X221 




03375 


1 


00000 





03404 




TXI X213»0»- 




03376 





07400 


4 


00067 


X221 


TSX SE1»4 


REGION 


03377 





50000 


1 


06447 




CLA BBB+5»1 


AS 


03400 


-0 


32000 





00321 




ANA S2K1 


AT THE BEGINNING 


03401 





40200 





00613 




SUB XV23 


OF THE 


03402 





60100 





00614 




STO XV24 


STORE IND. OF SAMENESS OF 


03403 





10000 





03724 




TZE X61 


LPLST 


03404 





50000 





00444 


X213 


CLA S3V5 




03405 





07400 


4 


01245 


X57 


TSX S5#4 N0*MATCH ENTR. REQU. 


03406 


-0 


53400 


1 


00613 


X63 


LXD XV23tl 


GtT 


03407 





50000 


1 


05061 




CLA REGfl 


REGION WORD 


03410 





07400 


4 


00070 




TSX SE»4 


GET INDEX OF 1ST BB 


03411 


-0 


50000 


1 


06443 


X209 


CAL BBB+1»1 


GET THE 


03412 





60200 





00575 




SLW XV9 


ORIGINAL PERMt NOS. 


03413 


-0 


32000 





00402 




ANA XK.20 


STORE WORD TO 


03414 





60200 





00574 




SLW XV8 


CONTAIN NEW PERM. NOS. 


03415 





53400 


2 


00342 




LXA S5K5»2 


SET COUNT TO 3 


03416 


-0 


50000 





00575 


X210 


CAL XV9 


GET THE 


03417 





77100 


2 


00003 




ARS 3»2 




03420 





77100 


2 


00003 




ARS 3»2 


PERM. NO. AND 


03421 


-0 


32000 





00350 




ANA S9K3 


PUT IT 


03422 


-0 


73400 


4 


00000 




PDX 0t4 


IN 4« 


03423 





50000 


4 


00470 




CLA EN4+3»4 


GET THE 


03424 





76700 


2 


00003 




ALS 3»2 


CORRESPONDENCE 


03425 





76700 


2 


00003 




ALS 3*2 


OF THE ENTR. REQUIREMENTS 


03426 


-0 


60200 





00574 




ORS XV8 


FORM NEW PERM. 


03427 


2 


00001 


2 


03416 




TIX X210»2fl 




03430 


-0 


50000 





00574 




CAL XV8 


STORE NEW PERM. 


03431 





62200 


1 


06443 




STD BBB+1»1 


NOS. 


03432 





50000 


1 


06447 




CLA BBB+5#1 


IS THIS THE LAST 


03433 


-0 


32000 





00353 




ANA SBK2 


BB IN REGION 


03434 





34000 





00353 




CAS SBK2 




03435 





02000 





03437 




TRA X211 


NO. 


03436 





02000 





03441 




TRA X212 


YES# DONE 


03437 





07400 


4 


00067 


X211 


TSX SE1»4 


ARRANGE TO DO NEXT 


03440 





02000 





03411 




TRA X209 


BB. 


03441 





53400 


1 


00342 


X212 


LXA S5K5tl 


SET COUNT TO 3 


03442 





50000 


1 


00465 


X60 


CLA IN1+3»1 


GET INDEX 



F5G21070 
F5G21080 
F5G21090 
F5G21100 
F5G21110 
F5G21120 
F5G21130 
F5G21140 
F5G21150 
F5G21160 
F5G21170 
F5G21180 
F5G21190 
F5G21200 
F5G21210 
F5G21220 
F5G21230 
F5G21240 
F5G21250 
F5G21260 
F5G21270 
F5G21280 
F5G21290 
F5G21300 
F5G21310 
F5G21320 
F5G21330 
F5G21340 
F5G21350 
F5G21360 
F5G21370 
F5G21380 
F5G21390 
F5G21400 
F5G21410 
F5G21420 
F5G21430 
F5G21440 
F5G21450 
F5G21460 
F5G21470 
F5G21480 
F5G21490 
F5G21500 
F5G21510 
F5G21520 
F5G21530 
F5G21540 
F5G21550 
F5G21560 
F5G21570 
F5G21580 
F5G21590 
F5G21600 



t ; ^ 



u 



u 



03443 


-0 


73400 


2 


00000 




PDX 


0#2 OF ENt 




03444 





50000 


2 


00473 




CLA 


EN1+3.2 IS C(ENM) 


03445 





34000 


1 


00430 




CAS 


IR1+3#1 =C(IRN) 


03446 





02000 





03450 




TRA 


X58 




03447 





02000 





03734 




TRA 


X64 YES. 




03450 





34000 





00337 


X58 


CAS 


S5K2 IS C(ENM) REAL 


03451 





76100 





00000 




NOP 


NO* 




03452 





02000 





03454 




TRA 


X119 




03453 





02000 





03771 




TRA 


X67 YESt 




03454 





50000 


1 


00561 


X119 


CLA 


AC1+3»1 NO»IS 


03455 





10000 





03457 


X102 


TZE 


X59 IRN ACTIVE 


03456 





07400 


4 


01566 


X65 


TSX 


SB»4 YES»RECORD SXD NECESSARY. 


03457 


2 


00001 


1 


03442 


X59 


TIX 


X60»lf 1 




03460 





07400 


4 


02042 




TSX 


SG»4 


PERMUTE REGION WORD 


03461 





50000 





04741 


X89 


CLA 


LPLST 




03462 





34000 





00324 




CAS 


S3K2 


IS IT A BB 


03463 





07400 


4 


00067 




TSX 


SE1*4 


NO 


03464 





02000 





03466 




TRA 


X206 




03465 





02000 





03471 




TRA 


X207 




03466 





50000 


1 


06447 


X206 


CLA 


BBB+5.1 




03467 


-0 


73400 


1 


00000 




PDX 


0*1 




03470 





50000 


1 


05061 




CLA 


REGtl 


FORM NO OF 1ST BB IN REGI 


03471 





62200 





00566 


X207 


STD 


XV2 




03472 





53400 


1 


00342 




LXA 


S5K5.1 




03473 





50000 





00336 


XI 16 


CLA 


S5K.1 




03474 





34000 


1 


00430 




CAS 


IR1+3»1 


IS THIS IR EMPTY 


03475 





02000 





03500 




TRA 


X115 




03476 


-0 


50000 


1 


00410 




CAL 


XK23+3.1 


YES. INITIALIZE IR 


03477 


-0 


60200 





00566 




ORS 


XV2 TO 


SMPTYNESS 


03500 


2 


00001 


1 


03473 


X115 


TIX 


X116*l»l 


COUNT TO 3 


03501 


-0 


53400 


2 


00325 




LXD 


S3K3.2 


PREPARE TO SCAN LOOP LIST 


03502 


-0 


63400 


2 


00600 




SXO 


XV12»2 




03503 





50000 


2 


04777 


X79 


CLA 


LPLST+S3P1*2 




03504 





34000 





00323 




CAS 


S3K1 IS THIS 


END LOOP LIST 


03505 





02000 





03507 




TRA 


X120 




03506 





02000 





03717 




TRA 


X81 YES* 




03507 





34000 





00324 


X120 


CAS 


S3K2 


IS IT A BB 


03510 





76100 





00000 




NOP 






03511 





02000 





03513 




TRA 


X121 




03512 





77100 





00022 




ARS 


18 YES* 




03513 





62100 





00513 


X121 


STA 


SBV3 STORE EXIT BB NO, 


03514 





50000 


2 


05000 




CLA 


LPLST+S3P1+1 


>2 


03515 





34000 





00323 




CAS 


S3K1 IS NEXT 


QUANTITY AN END LPLST 


03516 





02000 





03520 




TRA 


X107 




03517 





02000 





03603 




TRA 


X114 YES. 




03520 





77100 





00022 


X107 


ARS 


18 




03521 





62100 





00606 




STA 


XV18 STORE ENTRY BB NO. 


03522 





40000 





00315 




ADD 


ONEA 




03523 





07400 


4 


00067 




TSX 


SE1*4 




03524 


-0 


50000 


1 


06442 




CAL 


BBB.l 




03525 


-o 


32000 





00353 




ANA 


SBK2 




03526 





60100 





00515 




STO 


SBV5 




03527 





50000 





00606 




CLA 


XV18 




03530 





07400 


4 


00067 




TSX 


SE1»4 





%-;- 



F5G21610 
F5G21620 
F5G21630 
F5G21640 
F5G21650 
F5G21660 
F5G21670 
F5G21680 
F5G21690 
F5G21700 
F5G21710 
F5G21720 
F5G21730 
F5G21740 
F5G21750 
F5G21760 
F5G21770 
F5G21780 
F5G21790 
F5G21800 
F5G21810 
F5G21820 
F5G21830 
F5G21840 
F5G21850 
F5G21860 
F5G21870 
F5G21880 
F5G21890 
F5G21900 
F5G21910 
F5G21920 
F5G21930 
F5G21940 
F5G21950 
F5G21960 
F5G21970 
F5621980 
F5G21990 
F5G22000 
F5G22010 
F5G22020 
F5G22030 
F5G22040 
F5G22050 
F5G22060 
F5G22070 
F5G22080 
F5G22090 
F5G22100 
F5G22110 
F5G22120 
F5G22130 
F5G22140 



■<*■ 



TV 



03531 
03532 
03533 
03534 
03535 
03536 
03537 
03540 
03541 
03542 
03543 
03544 
03545 
03546 
03547 
03550 
03551 
03552 
03553 
03554 
03555 
03556 
03557 
03560 
03561 
03562 
03563 
03564 
03565 
03566 
03567 
03570 
03571 
03572 
03573 
03574 
03575 
03576 
03577 
03600 
03601 
03602 
03603 
03604 
03605 
03606 
03607 
03610 
03611 
03612 
03613 
03614 
03615 
03616 



50000 
32000 
60200 
07400 
50000 
32000 
34000 
02000 
02000 
50000 
40000 
34000 
02000 
02000 
02000 
50000 
76000 
60100 
02000 
50000 
40000 
07400 
50000 
32000 
60100 
50000 
07400 
50000 
32000 
60200 
07400 
50000 
32000 
34000 
02000 
02000 
50000 
40000 
34000 
02000 
02000 
02000 
50000 
12000 
50000 
02000 
50000 
76000 
60100 
02000 
53400 
50000 
34000 
76100 



06442 
00353 
00512 
00055 
07337 
00353 
00513 
03542 
03550 
00512 
00315 
00515 
03533 
03554 
03533 
07337 
00003 
07337 
03542 
00513 
00315 
00067 
06442 
00321 
00515 
00513 
00067 
06442 
00321 
00512 
00044 
07555 
00353 
00606 
03575 
03607 
00512 
00316 
00515 
03566 
03613 
03566 
00550 
03613 
04741 
03520 
07555 
00003 
07555 
03575 
00600 
04777 
00324 
00000 



X109 



X108 



X110 



X222 



X112 



Xlll 



X114 



X113 



X74 



CLA 


BBB»1 










ANA 


SBK2 










SLW 


SBV2 










TSX 


SE5»4 










CAL 


PRED»1 










ANA 


S8K2 










CAS 


SBV3 IS THIS 


THE 


RIGHT TRANSFER 


TRA 


X108 










TRA 


X110 YES 










CLA 


SBV2 ARRANGE 


TO 


TRY 






ADD 


ONEA NEXT PRED. 








CAS 


SBV5 




IS 


THIS PRED 


ENTRY IN SAME 


TRA 


X109 










TRA 


X222 










TRA 


X109 










CLA 


PREDtl SET SIGN 








SSM 


OF PRED. 










STO 


PRED»1 ENTRY 


NEGATIVE. 




TRA 


X108 










CLA 


SBV3 




GET 


INDEX 




ADD 


ONEA 










TSX 


SE1»4 OF 










CLA 


BBB»1 










ANA 


S2K1 










STO 


SBV5 










CLA 


SBV3 










TSX 


SE1#4 










CLA 


BB8»1 










A.NA 


S2K1 










SL* 


s 3 v 2 










TSX 


SEbt 4 










CAL 


SUCCfl 










ANA 


SBK2 










CAS 


XV18 IS THIS 


RIGHT 


SUCC. 




TRA 


Xlll 










TRA 


X113 










CLA 


SBV2 ARRANGE 


TO 


TRY 


NEXT sua 


. • 


ADD 


ONED 










CAS 


SBV5 




IS 


THIS SUCC 


IN SAME BB 


TRA 


X112 










TRA 


X74 










TRA 


X112 










CLA 


LPIND IS THIS 








TPL 


X74 A 


LOOP 






CLA 


LPLST YES 










TRA 


X107 










CLA 


SUCC»1 SET SIGN 








SSM 


OF SUCC+ ENTRY 








STO 


SUCC»1 NEGATIVE 








TRA 


Xlll 










LXD 


XV12»2 










CLA 


LPLST+S3P1»2 










CAS 


S3K2 


IS 


IT 


A BB 




NOP 













F5G22150 
F5G22160 
F5G22170 
F5G22180 
F5G22190 
F5G22200 
F5G22210 
F5G22220 
F5G22230 
F5G22240 
F5G22250 
F5G22260 
F5G22270 
F5G22280 
F5G22290 
F5G22300 
F5G22310 
F5G22320 
F5G22330 
F5G22340 
F5G22350 
F5G22360 
F5G22370 
F5G22380 
F5G22390 
F5G22400 
F5G22410 
F5G22420 
F5G22430 
F5G22440 
F5G22450 
F5G22460 
F5G22470 
F5G22480 
F5G22490 
F5G22500 
F5G22510 
F5G22520 
F5G22530 
F5G22540 
F5G22550 
F5G22560 
F5G22570 
F5G22580 
F5G22590 
F5G22600 
F5G22610 
F5G22620 
F5G22630 
F5G22640 
F5G22650 
F5G22660 
F5G22670 
F5G22680 



u 



u 



n 



03617 
03620 
03621 
03622 
03623 
03624 
03625 
03626 
03627 
03630 
03631 
03632 
03633 
03634 
03635 
03636 
03637 
03640 
03641 
03642 
03643 
03644 
03645 
03646 
03647 
03650 
03651 
03652 
03653 
03654 
03655 
03656 
03657 
03660 
03661 
03662 
03663 
03664 
03665 
03666 
03667 
03670 
03671 
03672 
03673 
03674 
03675 
03676 
03677 
03700 
03701 
03702 
03703 
03704 



02000 
02000 
73400 
77776 
77100 
07400 
50000 
73400 
50000 
60200 
10000 
32000 
60200 
50000 
50100 
32000 
50000 
60100 
50000 
77100 
62100 
07400 
50000 
62200 
50000 
32000 
34000 
02000 
02000 
02000 
50000 
07400 
50000 
62100 
02OO0 
77100 
62100 
07400 
53400 
77777 
63400 
50000 
34000 
00000 
50000 
62100 
50000 
62200 
02000 
56000 
04000 

77100 

1 00000 
63400 



03621 
03662 
00000 
03624 
00022 
00067 
06447 
00000 
05061 
00605 
03655 
00335 
00566 
00404 
00605 
00566 
00314 
05061 
00605 
00022 
00612 
00067 
00565 
06447 
06447 
00353 
00353 
03643 
03665 
03643 
00612 
00067 
00404 
06447 
03717 
00022 
00612 
00067 
00600 
03667 
00600 
04777 
O0323 
03700 
00336 
06447 
00565 
06447 
03503 
00324 
03704 
00022 
03674 
03672 



X122 



X205 



X75 
X101 



X105 



X80 

X76 
X140 

X77 

X219 

X216 

X217 

X215 
X218 
X220 



TRA 
TRA 
PDX 
TXH 
ARS 
TSX 
CLA 
PDX 
CAL 
SLW 
TZE 
ANA 
ORS 
CAL 
ORA 
ANS 
CLA 
STO 
CLA 
ARS 
STA 
TSX 
CLA 
STD 
CLA 
ANA 
CAS 
TRA 
TRA 
TRA 
CLA 
TSX 
CLA 
STA 
TRA 
ARS 
STA 
TSX 
LXD 
TXI 
SXD 
CLA 
CAS 
TXI 
CLA 
STA 
CLA 
STD 
TRA 
LDQ 
TLQ 
ARS 
TXI 
SXD 



IS THE DECR. AN IMPOSSIBLE BB 



WORD 



X122 

X80 YES 

0*4 

X205t4»-2 

18 

SE1»4 

BBB+5»1 THE 

0#1 REGION 

RE6»1 

XV17 

X105 HAS THIS REGION ALREADY BEEN RENUMBERED 

LK3 OR THE LX BITS FOR 

XV2 OLD REGION IN NEW REGION WORD. 

XK22 AND THE OLD PHI 

XV17 BITS 

XV2 INTO NEW REGION WORD. 

ZERO CLEAR OLD 

REGtl REGION WORD. 

XV17 GET INDEX OF 

18 FIRST BB IN REG 

XV22 STOREBB NO. 

SE1»4 GET INDEX OF BB 

XVI STORE THE 

BBB+5»1 NEW REGION NO. 

BBB+5.1 IS THIS THE 

SBK2 LAST BB 

SBK2 OF THE REGION 

X75 

X76 YES. 

X75 

XV22 RECORD THAT PREVIOUSLY 

SE1»4 NUMBERED BB 

XK22 WAS LAST 

BBB+5»1 ONE IN NEW REGION. 

X81 FINISHED RENUMBERING. 

18 

XV22 

SE1»4 

XV12»2 

X140+lt2t-l 

XV12»2 

LPLST+S3P1»2 

S3K1 IS THIS END LOOP LIST 



X217*0»- 

S5K1 

BBB+5»1 

XVI RECORD THE 

BBB+5»1 NEW REGION 

X79 NO. 

S3K2 

X220 

18 NO 

X216»0»- 

X219t2 



SEE X217+2 

YES 

RECORD THE NEXT BB NO. 



F5G22690 
F5G22700 
F5G22710 
F5G22720 
F5G22730 
F5G22740 
F5G22750 
F5G22760 
F5G22770 
F5G22780 
F5G22790 
F5G22800 
F5G22810 
F5G22820 
F5G22830 
F5G22840 
F5G22850 
F5G22860 
F5G22870 
F5G22880 
F5G22890 
F5G22900 
F5G22910 
F5G22920 
F5G22930 
F5G22940 
F5G22950 
F5G22960 
F5G22970 
F5G22980 
F5G22990 
F5G23000 
F5G23010 
F5G23020 
F5G23030 
F5G23040 
F5G23050 
F5G23060 
F5G23070 
F5G23080 
F5G23090 
F5G2310O 
F5G23110 
F5G23120 
F5G23130 
F5G23140 
F5G23150 
F5G23160 
F5G23170 
F5G23180 
F5G23190 
F5G23200 
F5G23210 
F5G23220 



Oi 



JJY 



03705 





07400 


4 


00070 




TSX 


SEt4 


03706 





50000 


1 


06447 




CLA 


BBB+5.1 


03707 


-0 


73400 


1 


00000 




PDX 


0*1 


03710 





50000 


1 


05061 




CLA 


REG*1 GET REGION WORD 


03711 





62200 





03703 




STD 


X218 


03712 





50000 





00612 




CLA 


XV22 


03713 





07400 


4 


00067 




TSX 


SE1#4 


03714 





50000 





03703 




CLA 


X218 


03715 


-0 


53400 


2 


03672 




LXD 


X219f2 


03716 


1 


00000 





03702 




TXI 


X215»-»- 


03717 





50000 





00566 


X81 


CLA 


XV2 


03720 


-0 


50100 





00315 




ORA 


ONE A 


03721 


-0 


53400 


1 


00565 




LXD 


XV1»1 NEW REGION 


03722 





60100 


1 


05061 




STO 


REG»1 WORD* 


03723 





02000 





02177 




TRA 


F 


03724 





53400 


1 


00342 


X61 


LXA 


S5K5»1 


03725 


-0 


75400 


1 


00000 


X62 


PXD 


0«1 PLACE APPROPRIATE NOS. 


03726 





62200 


1 


00465 




STD 


INl+3tl IN CORRSEPONDENCE 


03727 





62200 


1 


00470 




STD 


EN4+3»1 TABLES 


03730 


2 


00001 


1 


03725 




TIX 


X62>1»1 


03731 





50000 





00444 




CLA 


S3V5 


03732 





07400 


4 


01466 




TSX 


S9#4 GET THE ENTRANCE REQUIREMENTS 


03733 





02000 





03406 




TRA 


X63 


03734 





50000 


1 


00561 


X64 


CLA 


AC1+3»1 IS THIS I.R. 


03735 





10000 





03457 




TZE 


X59 ACTIVE 


03736 


-0 


53400 


4 


00440 




LXD 


S3V4t4 YES. 


03737 





50000 


4 


04776 




CLA 


LPLST+S3Pl-lt4 GET 


03740 


-0 


63400 


1 


00577 




SXD 


XV11»1 THE 


03741 


-0 


63400 


2 


00600 




SXD 


XV12»2 REGION 


03742 





07400 


4 


00070 




TSX 


SE»4 WORD 


03743 





50000 


1 


06447 




CLA 


BBB+5»1 IN 


03744 


-0 


73400 


4 


00000 




PDX 


0*4 THE 


03745 





56000 


4 


05061 




LDQ 


REG»4 MQ. 


03746 


-0 


53400 


1 


00577 




LXD 


XV11»1 HAS THERE 


03747 


-0 


53400 


2 


00600 




LXD 


XV12»2 


03750 


-0 


77300 


2 


00003 




ROL 


3,2 BEEN AN LX 


03751 





16200 





03753 




TOP 


X66 FOR THIS I.R. 


03752 





02000 





03456 




TRA 


X65 YES 


03753 





50000 





00614 


X66 


CLA 


XV24 


03754 


-0 


10000 





03762 




TNZ 


X208 IS THIS SAME REG. AS BEGINS S 


03755 





50000 





04741 




CLA 


LPLST YES 


03756 





07400 


4 


01523 




TSX 


SA»4 GET ACTIVE INDS. AT START OF 


03757 


-0 


53400 


1 


00577 




LXD 


XV11»1 


03760 





50000 


1 


00511 




CLA 


ACT1+3»1 WAS THIS IR ACTIVE AT START 


03761 





12000 





03456 




TPL 


X65 


03762 


-0 


53400 


4 


00440 


X208 


LXD 


S3V4,4 YES. MARK ALL 


03763 





50000 


4 


04776 




CLA 


LPLST+S3P1-1»4 BBS IN OPAQUE 


03764 


-0 


53400 


2 


00577 




LXD 


XVllt2 REGION ACTIVE 


03765 





07400 


4 


01753 




TSX 


SD.4 


03766 


-0 


53400 


1 


00577 




LXD 


XV11*1 


03767 





07400 


4 


01661 




TSX 


SC»4 MARK SECTION OF LLLST ACTIVE 


03770 





02000 





03457 




TRA 


X59 


03771 


-0 


63400 


1 


00577 


X67 


SXD 


XV11»1 


03772 


-0 


53400 


1 


00440 




LXD 


S3V4»1 GET 



F5G23230 
F5G23240 
F5G23250 
F5G23260 
F5G23270 
F5G23280 
F5G23290 
F5G23300 
F5G23310 
F5G23320 
F5G23330 
F5G23340 
F5G23350 
F5G23360 
F5G23370 
F5G23380 
F5G23390 
F5G23400 
F5G23410 
F5G23420 
F5G23430 
F5G23440 
F5G23450 
F5G23460 
F5G23470 
F5G23480 
F5G23490 
F5G23500 
F5G23510 
F5G23520 
F5G23530 
F5G23540 
F5G23550 
F5623560 
F5G23570 
F5G23580 
F5G23590 
F5G23600 
F5G23610 
F5G23620 
F5G23630 
F5G23640 
F5G23650 
F5G23660 
F5G23670 
F5G23680 
F5G23690 
F5G23700 
F5G23710 
F5G23720 
F5G23730 
F5G23740 
F5G23750 
F5G23760 



V 



o 



u 



03773 





50000 


1 


04775 




CLA 


0377* 





34000 





00324 




CAS 


03775 





76100 





00000 




NOP 


03776 





02000 





04000 




TRA 


03777 





77100 





00022 




ARS 


04000 





62100 





00513 


X123 


STA 


04001 





50000 


1 


04776 




CLA 


04002 





07400 


4 


00070 




TSX 


04003 





50000 


1 


06443 




CLA 


04004 





60100 





00575 




STO 


04005 





50000 


1 


06442 




CLA 


04006 





60200 





00512 


X68 


SLW 


04007 





07400 


4 


00055 




TSX 


04010 


-0 


50000 


1 


07337 




CAL 


04011 


-0 


32000 





00353 




ANA 


04012 





34000 





00513 




CAS 


04013 





02000 





04015 




TRA 


04014 





02000 





04020 




TRA 


04015 





50000 





00512 


X69 


CLA 


04016 





40000 





00315 




ADD 


04017 





02000 





04006 




TRA 


04020 





53400 


4 


00342 


X70 


LXA 


04021 


-0 


50000 





00575 


X72 


CAL 


04022 





77100 


4 


00003 




ARS 


04023 





77100 


4 


00003 




ARS 


04024 


-0 


32000 





00350 




ANA 


04025 





34000 





00577 




CAS 


04026 





02000 





04030 




TRA 


04027 





02000 





04032 




TRA 


04030 


2 


00001 


4 


04021 


X71 


TIX 


04031 





07400 


4 


00004 




TSX 


04032 


-0 


50000 





00377 


X73 


CAL 


04033 





77100 


4 


00003 




ARS 


04034 


-0 


60200 


1 


07337 




ORS 


04035 


-0 


53400 


4 


00577 




LXD 


04036 


-0 


50000 





00340 




CAL 


04037 





77100 


4 


00003 




ARS 


04040 


-o 


60200 





00566 




ORS 


04041 


-0 


53400 


1 


00577 




LXD 


04042 





02000 





03454 




TRA 


04043 





50000 





00^44 


X33 


CLA 


04044 





07400 


4 


01245 




TSX 


04045 





50000 





00444 




CLA 


04046 





07400 


4 


01523 




TSX 


04047 





50000 





00444 




CLA 


04050 





07400 


4 


00070 




TSX 


04051 





50000 


1 


06447 




CLA 


04052 


-0 


73400 


1 


00000 




PDX 


04053 





50000 


1 


05061 




CLA 


04054 





07400 


4 


00070 




TSX 


04055 


-0 


63400 


1 


00601 


X40 


SXD 


04056 


-0 


50000 


1 


06443 




CAL 


04057 





60200 





00575 




SLW 


04060 


-0 


32000 





00402 




ANA 



LPLST+S3P1-2»1 PRED* NO 
S3K2 IS THIS A BB 

NO 
X123 

18 YES»SHIFT BB NO RIGHT* 
SBV3 AND STORE IT 
LPLST+S3Pl-ltl GET INDEX OF 
SE»4 THIS BB 
BBB+1»1 GET TO STORE 
XV9 PREM. NO. 
BBB»1 GET PRED. NO* 
SBV2 

SE5»4 GET INDEX OF PRED. 
PRED.l IS THIS THE 
SBK2 RIGHT PRED 
SBV3 
X69 

X70 YES. 
SBV2 
ONEA 
X68 

S5K5»4 SET COUNT TO 3 
XV9 FIND 
3»4 THE 
3*4 PERM+ NO. 
S9K3 

XV11 IS THIS THE RIGHT I»R« 
X71 NOt 
X73 YES» 
X72»*»l N0» 

4»4 DIAGNOSTIC! ERROR. 
XK16 RECORD THAT AN 
3»4 LX IS 
PRED»1 NECESSARY. 
XV11*4 RECORD 
S5K3 LX 

3t4 FOR THIS I.R. 
XV2 IN THIS REGION. 
XV11»1 
X119 
S3V5 

S5*4 MATCH ENTRANCE REQU. 
S3V5 

SA*4 GET EXIT COND. 
S3V5 

SE»4 GET INDEX OF 
BBB+5»1 B.B. 
0»1 GET 
REG#1 REGION 
SEt4 WORD. 

XV13#1 GET INDEX OF FIRST BB. 
BBB+1»1 CLEAR REGISTER TO 
XV9 CONTAIN PERM. NOS. 
XK.20 GET ORIGINAL PERM. NOS. 



F5G23770 

F5G23780 

F5G23790 

F5G23800 

F5G23810 

F5G23820 

F5G23830 

F5G23840 

F5G23850 

F5G23860 

F5G23870 

F5G23880 

F5G23890 

F5G23900 

F5G23910 

F5G23920 

F5G23930 

F5G23940 

F5G23950 

F5G23960 

F5G23970 

F5G23980 

F5G23990 

F5G240O0 

F5G24010 

F5G24020 

F5G24030 

F5G24040 

F5G24050 

F5G24060 

F5G24070 

F5G24080 

F5G24090 

F5G24100 

F5G24110 

F5G24120 

F5G24130 

F5G24140 

F5G24150 

F5G24160 

F5G24170 

F5G24180 

F5G24190 

F5G24200 

F5G24210 

F5G24220 

F5G24230 

F5G24240 

F5G24250 

F5G24260 

F5G24270 

F5G24280 

F5G24290 

F5G24300 



O V 



04061 
04062 
04063 
04064 
04065 
04066 
04067 
04070 
04071 
04072 
04073 
04074 
04075 
04076 
04077 
04100 
04101 
04102 
04103 
04104 
04105 
04106 
04107 
04110 
04111 
04112 
04113 
04114 
04115 
04116 
04117 
04120 
04121 
04122 
04123 
04124 
04125 
04126 
04127 
04130 
04131 
04132 
04133 
04134 
04135 
04136 
04137 
04140 
04141 
04142 
04143 
04144 
04145 
04146 



60200 
53400 
50000 
77100 
77100 
32000 
73400 
50000 
76700 
76700 
60200 
63400 
50000 
73400 
50000 
34000 
02000 
02000 
34000 
02000 
02000 
34000 
02000 
02000 
53400 
77777 
00001 
50000 
62200 
63000 
50000 
32000 
34000 
02000 
02000 
07400 
02000 
50000 
56000 
04000 
02000 
50000 
63400 
12000 
50000 
10000 
50000 
60100 
53400 
50000 
32000 
34000 
02000 
02000 



00574 
00342 
00575 
00003 
00003 
00350 
00000 
00470 
00003 
00003 
00574 
00576 
00470 
00000 
00473 
00336 
04103 
04150 
00333 
04106 
04111 
00430 
04111 
04132 
00576 
04113 
04063 
00574 
06440 
06440 
06444 
00353 
00353 
04124 
04217 
00067 
04055 
00506 
00337 
04135 
04111 
00511 
1 05164 
04126 
00561 
04111 
00430 
00611 
00576 
06444 
00336 
00611 
05144 
04213 



X38 



X34 



X35 



X36 
X42 
X37 



X39 
X200 



X43 

PWO 

X130 



SLW 
LXA 
CAL 
ARS 
ARS 
ANA 
POX 
CLA 
ALS 
ALS 
ORS 
SXD 
CLA 
PDX 
CLA 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
LXO 
TXI 
TIX 
CAL 
STD 
STP 
CLA 
ANA 
CAS 
TRA 
TRA 
TSX 
TRA 
CLA 
LDQ 
TLQ 
TRA 
CLA 
SXD 
TPL 
CLA 
TZE 
CLA 
STO 
LXD 
CLA 
ANA 
CAS 
TRA 
TRA 



XV8 

S5K5*2 SET COUNT TO 3. 

XV9 GET THE 

3»2 PERM. 

3*2 NO* AND 

S9K3 PUT IT 

0t4 IN 4* 

EN4+3»4 GET THE CORRESPONDENCE 

3#2 OF THE ENTRt 

3*2 REQUIREMENTS* 

XV8 FORM NEW PERM* NOS* 

XV10»1 

EN4+3#4 

0«1 GET INDEX OF I*R* 

ENl+3»4 

S5K1 IS ENM EMPTY 

X34 N0» 

X41 YES* 

LK1 NOtIS C(ENM)=E 

X35 NO* 

X36 YESt 

IRl+3fl C-(ENM)=CURN) 

X36 NO 

X43 YES 

XV10»1 NO 

X42+l»l»-l 

X38»2»l COUNT TO 3 

XV8 STORE NEW 

BBB-2»1 PERM* NOS* 

BBB-2»1 AND ACTIVE INDICATORS 

BBB+2»1 IS THI5 

SBK2 LAST BB IN REGION 

SBK2 

X39 

X45 YES»DONE* 

SE1»4 GET INDEX OF NEXT B*B* 

X40 

EXl+3»4 

S5K2 

X130 

X36 

ACTl+3*4 

W2+l»l 

X200 

AC1+3* 1 

X36 

IR1+3.1 YES 

XV21 

XV10»1 DOES THIS BB CONTAIN THE 

BBB+2.1 SAME TAG IN THIS POSITION 

S5K1 

XV21 

WO 

X44 YES* 



IS CONTENTS OF IR 
AT EXIT 
REAL 
YES 



IS IT ACTIVE AT EXIT 
YES.IS THIS IR ACTIVE 



F5G24310 
F5G24320 
F5G24330 
F5G24340 
F5G24350 
F5G24360 
F5G24370 
F5G24380 
F5G24390 
F5G24400 
F5G24410 
F5G24420 
F5G24430 
F5G24440 
F5G24450 
F5G24460 
F5G24470 
F5G24480 
F5G24490 
F5G245O0 
F5G24510 
F5G24520 
F5G24530 
F5G24540 
F5G24550 
F5G24560 
F5G24570 
F5G24580 
F5G24590 
F5G24600 
F5G24610 
F5G24620 
F5G24630 
F5G24640 
F5G24650 
F5G24660 
F5G24670 
F5G24680 
F5G24690 
F5G24700 
F5G24710 
F5G24720 
F5G24730 
F5G24740 
F5G24750 
F5G24760 
F5G24770 
F5G24780 
F5G24790 
F5G24800 
F5G24810 
F5G24820 
F5G24830 
F5G24840 



u 



u 



04147 02000 05144 



TRA WO 



C(XV10)= INDEX OF PARTICULAR 
ENTRANCE REQUIREMENT. 



04150 





50000 


1 


00430 


X41 


CLA 


IR1+3#1 




04151 





60100 





00572 




STO 


XV6 




04152 





76700 





00022 




ALS 


18 STORE AWAY THIS 




04153 





40000 


1 


00430 




ADD 


IR1+3»1 TAG TEMPORARILY. 




04154 





60200 





00573 




SLW 


XV7 




04155 





50000 


1 


00430 




CLA 


IR1+3.1 IS THIS 




04156 





560O0 





00337 




LDQ 


S5K2 TAG 




04157 





04000 





04176 




TLQ 


X201 




04160 


-0 


53400 


1 


00601 




LXD 


XV13tl 




04161 





53400 


4 


00342 




LXA 


S5K5»4 SET COUNT TO 3. 




04162 


-0 


50000 


1 


06444 


X85 


CAL 


BB8+2tl 




04163 





76500 





00022 




LRS 


18 




04164 





34000 





00572 




CAS 


XV6 IS ENTR. REQU. EQUAL 


TO TAG 


04165 





02000 





04167 




TRA 


X82 N0» 




04166 





02000 





04202 




TRA 


X86 YES» 




04167 





50000 





00314 


X82 


CLA 


ZERO NO* 




04170 





76300 





00022 




LLS 


18 




04171 





34000 





00572 




CAS 


XV6 IS TAG EQUAL TO EXIT 


COND. 


04172 





02000 





04174 




TRA 


X83 




04173 





02000 





04206 




TRA 


X87 YES 




04174 


1 


77777 


1 


04175 


X83 


TXI 


X83+l»l»-l 




04175 


2 


00001 


4 


04162 


X84 


TIX 


X85»4.1 COUNT TO 3. 




04176 





50000 





00573 


X201 


CLA 


XV7 STORE THE 




04177 


-0 


53400 


1 


00576 




LXD 


XVlOtl NEW ENTRAMCE- 




04200 





60100 


1 


06444 




STO 


BBB+1»1 EXIT REQUI. 




04201 





02000 





04112 




TRA 


X42 




04202 


-0 


50000 





00366 


X86 


CAL 


XK18 °UT AN E 




04203 





62200 





00573 




STD 


XV7 IN THE ENTR. REQU. 




04204 





63000 





00573 




STP 


XV7 




04205 





02000 





04167 




TRA 


X82 




04206 


-0 


50000 





00573 


X87 


CAL 


XV7 PLACE E 




04207 


-0 


32000 





00401 




ANA 


XK19 IN 




04210 





40000 





00333 




ADD 


LK1 EXIT 




04211 





60200 





00573 




SLW 


XV7 REQUIREMENT. 




04212 





02000 





04174 




TRA 


X83 




04213 


-0 


50000 





00340 


X44 


CAL 


S5K3 RECORD THIS 




04214 





77100 


2 


00003 




ARS 


3*2 I.R* 




04215 


-0 


60200 





00574 




ORS 


XV8 ACTIVE 




04216 





02000 





04112 




.TRA 


X42 




04217 





53400 


2 


00342 


X45 


LXA 


S5K5t2 




04220 


-0 


63400 


2 


00602 


X56 


SXD 


XV14#2 




04221 





50000 


2 


00470 




CLA 


EN4+3»2 




04222 


-0 


73400 


4 


00000 




PDX 


0.4 GET INDEX 




04223 


-o 


63400 


4 


00514 




SXD 


SBV4»4 OF I.R. 




04224 





50000 


2 


00473 




CLA 


ENl+3»2 




04225 





34000 





00336 




CAS 


S5K1 IS ENM EMPTY 




04226 





02000 





04230 




TRA 


X46 




04227 





02000 





04343 




TRA 


X223 




04230 





34000 





00333 


X46 


CAS 


LK1 IS THERE HASH IN ENM 




04231 





02000 





04233 




TRA 


X134 




04232 





02000 





04307 




TRA 


X55 YES 





F5G24850 
F5G24860 
F5G24870 
F5G24880 
F5G24890 
F5G24900 
F5G24910 
F5G24920 
F5G24930 
F5G24940 
F5G24950 
F5G24960 
F5G24970 
F5G24980 
F5G24990 
F5G250O0 
F5G25010 
F5G25020 
F5G25030 
F5G25040 
F5G25050 
F5G25060 
F5G25070 
F5G25080 
F5G25090 
F5G25100 
F5G25110 
F5G25120 
F5G25130 
F5G25140 
F5G25150 
F5G25160 
F5G25170 
F5G25180 
F5G25190 
F5G25200 
F5G25210 
F5G25220 
F5G25230 
F5G25240 
F5G25250 
F5G25260 
F5G25270 
F5G25280 
F5G25290 
F5G25300 
F5G25310 
F5G25320 
F5G25330 
F5G25340 
F5G25350 
F5G25360 
F5G25370 
F5G25380 



UY 



04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 
04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 
04262 
04263 
04264 
04265 
04266 
04267 
04270 
04271 
04272 
04273 
04274 
04275 
04276 
04277 
04300 
04301 
04302 
04303 
04304 
04305 
04306 
04307 
04310 
04311 
04312 
04313 
04314 
04315 
04316 
04317 
04320 



34000 

02000 

02000 

-0 53400 

50000 

34000 

76100 

02000 

77100 

62100 

50000 

07400 

50000 

60100 

50000 

-0 73400 

-0 53400 

-0 50000 

77100 

-0 60200 

50000 

60200 

07400 

-0 50000 

-0 32000 

34000 

02000 

02000 

50000 

40000 

02000 

53400 

-0 50000 

77100 

77100 

-0 32000 

34000 

02000 

02000 

00001 

07400 

-0 50000 

77100 

-0 60200 

-0 53400 

50000 

10000 

07400 

-.0 53400 

-0 53400 

50000 

60100 

50000 

12000 



00430 
04236 
04357 
00440 
04775 
00324 
00000 
04244 
00022 
00513 
04776 
00070 
06443 
00575 
06447 
00000 
00602 
00340 
00003 
05061 
06442 
00512 
00055 
07337 
00353 
00513 
04267 
04272 
00512 
00315 
04260 
00342 
00575 
00003 
00003 
00350 
00514 
04302 
04304 
04273 
00004 
00377 
00003 
07337 
00514 
00561 
04313 
01566 
00602 
00514 
00506 
00430 
00511 
04325 



X134 
X47 

X124 



X48 



X49 



X50 
X52 



X51 
X53 

X55 

X135 

X136 



CAS 
TRA 
TRA 
LXD 
CLA 
CAS 
NOP 
TRA 
ARS 
STA 
CLA 
TSX 
CLA 
STO 
CLA 
PDX 
LXD 
CAL 
ARS 
ORS 
CLA 
SLW 
TSX 
CAL 
ANA 
CAS 
TRA 
TRA 
CLA 
ADD 
TRA 
LXA 
CAL 
ARS 
ARS 
ANA 
CAS 
TRA 
TRA 
TIX 
TSX 
CAL 
ARS 
ORS 
LXD 
CLA 
TZE 
TSX 
LXD 
LXD 
CLA 
STO 
CLA 
TPL 



IRl+3»4 DOES CONTENTS OF IR EQUAL CONTENTS OF EN 

X47 NO 

X131 YES 

S3V4»1 GET AND 

LPLST+S3Pl-2tl STORE PRED* 

S3K2 BB 

NO* 
X124 
18 

SBV3 

LPLST+S3P1-1#1 6ET 
SE»4 BB NO. 
BBB+1»1 STORE THE 
XV9 PERM. NOS* 
BBB+5»1 
0*4 
XV14»2 
S5K3 
3*2 
REG»4 

BBB*1 GET PRED* NO* 
SBV2 STORE PRED. NO. 

SE5»4 OBTAIN PRED. INDEX. 
PRED»1 IS THIS 
SBK2 THE CORRECT 
SBV3 PRED 
X49 

X50 YES* 
SBV2 ARRANGE TO 
ONEA TRY NEXT PREDECESSOR. 
X48 

55K5»4 1 HAS INDEX OF PRED. 
XV9 EXTRACT 
3*4 THE 
3*4 PERM. 
S9K3 N0» 

SBV4 IS THIS THE PERM. NO. 
X51 

X53 YES* 
X52»4#l 

4*4 DIAGNOSTIC* ERROR* 
XK16 GENERATE 
3,4 THE LX BIT* 
PRED*1 INSERT LX BIT* 
SBV4»1 IS THE 
AC1+3»1 I.R* 
X135 ACTIVE 

SB»4 YES»REC0RD SXD NEEDED* 
XV14»2 REPLACE IR 
SBV4»4 BY EXIT CONDITIONS 
EXl+3*2 OF THE 
IRl+3»4 REGION 
ACTl+3»2 IS IR 
X54 ACTIVE AT EXIT 



F5G25390 
F5G25400 
F5G25410 
F5G25420 
F5G25430 
F5G25440 
F5G25450 
F5G25460 
F5G25470 
F5G25480 
F5G25490 
F5G25500 
F5G25510 
F5G25520 
F5625530 
F5G25540 
F5G25550 
F5G25560 
F5G25570 
F5G25580 
F5G25590 
F5G25600 
F5G25610 
F5G25620 
F5G25630 
F5G25640 
F5G25650 
F5G25660 
F5G25670 
F5G25680 
F5G25690 
F5G25700 
F5G25710 
F5G25720 
F5G25730 
F5G25740 
F5G25750 
F5G25760 
F5G25770 
F5G25780 
F5G25790 
F5G25800 
F5G25810 
F5G25820 
F5G25830 
F5G25840 
F5G25850 
F5G25860 
F5G25870 
F5G25880 
F5G25890 
F5G25900 
F5625910 
F5G25920 



<^ 



u 



u 



04321 
04322 
04323 
04324 
04325 
04326 
04327 
04330 
04331 
04332 
04333 
04334 
04335 
04336 
04337 
04340 
04341 
04342 
04343 
04344 
04345 
04346 
04347 
04350 
04351 
04352 
04353 
04354 
04355 
04356 
04357 
04360 
04361 
04362 
04363 
04364 
04365 
04366 
04367 
04370 
04371 
04372 
04373 
04374 
04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 
04406 



50000 
76000 
40200 
60100 
53400 
00001 
07400 
50000 
32000 
60200 
53400 
50000 
40200 
10000 
50000 
60200 
00001 
02000 
50000 
56000 
04000 
53400 
34000 
02000 
02000 
00001 
02000 
50000 
60100 
02000 
56000 
50000 
04000 
53400 
07400 
02000 
50000 
12000 
02000 
50000 
12000 
50000 
34000 
76100 
02000 
77100 
62100 
50000 
07400 
63400 
50000 
60200 
07400 
50000 



00440 
00003 
00316 
00561 
00602 
04220 
02042 
05061 
00404 
05061 
00342 
00430 
00336 
04341 
00410 
05061 
04334 
03077 
00430 
00337 
04325 
00342 
00506 
04352 
04354 
04347 
04325 
00333 
00430 
04325 
00506 
00337 
04365 
00514 
01661 
04313 
00511 
04313 
04362 
00550 
04416 
04740 
00324 
00000 
04377 
00022 
00513 
04741 
00070 
00574 
06442 
00604 
00055 
07337 



X54 



XY1 

XY2 
X223 

X225 

X224 
X226 

X131 

X133 

X132 

X88 



X125 



X91 



CLA 
SSM 

SUB 
STO 
LXD 
TIX 
TSX 
CAL 
ANA 
SLW 
LXA 
CLA 
SUB 
TNZ 
CAL 
ORS 
TIX 
TRA 
CLA 
LDQ 
TLQ 
LXA 
CAS 
TRA 
TRA 
TIX 
TRA 
CLA 
STO 
TRA 
LDQ 
CLA 
TLQ 
LXD 
TSX 
TRA 
CLA 
TPL 
TRA 
CLA 
TPL 
CLA 
CAS 
NOP 
TRA 
ARS 
STA 
CLA 
TSX 
SXD 
CLA 
SLW 
TSX 
CLA 



S3V4 

ONED 

ACl+3»4 

XV14#2 

X56t2»l 

SG»4 

REG»2 

XK22 

REG»2 

S5K5»4 

IRl+3»4 

S5K1 

XY2 

XK23+3»4 

REGt2 

XYl»4fl 

X3 

IRl+3t4 

S5K2 

X54 

S5K5»1 

EXl+3tl 

X224 

X226 

X225»ltl 

X54 

LK1 

IRlf 3t4 

X54 

EX 1+3 1 2 

S5K2 

X132 

SBV4.1 

SC»4 

X135 

ACTl+3t2 

X135 

X133 

LPIND 

XY3 

LPLST-1 

S3K2 IS 

NO 
X125 
18 YES 
SBV3 
LPLST 
SE»4 GET 
XV8*1 
BBB»1 
XV16 

SE5»4 GE 
PRED»1 I 



SET 

ACTIVE 
INDICATOR 

COUNT TO 
3 
PERMUTE REGION WORD 



IS CONTENTS OF IR REAL 



YES* SET COUNT TO 3 

IS CONTENTS SAME AS EXIT CONDITIONS 

YES 

COUNT TO 3 

REPLACE IR BY E 



IS THE EXIT 
CONDITION REAL FOR THIS IR 

NO 
RECORD PART OF LPLST ACTIVE 

IS THIS IR ACTIVE 
AT EXIT OF REGION 
YES 

IS THIS A LOOP 
YES 
LAST LPLST QUANTITY A BB 



STORE PRED. NO. 

INDEX OF 1ST BB IN LOOP. 
STORE INDEX OF 1ST BB 

STORE PRED. NO. 
T INDEX OF PRED. 
S 



F5G25930 
F5625940 
F5G25950 
F5G25960 
F5G25970 
F5G25980 
F5G25990 
F5G26000 
F5G26010 
F5G26O20 
F5G26030 
F5G26040 
F5G26050 
F5G26060 
F5G26070 
F5G26080 
F5G26090 
F5G26100 
F5G26110 
F5G26120 
F5G26130 
F5G26140 
F5G26150 
F5G26160 
F5G26170 
F5G26180 
F5G26190 
F5G26200 
F5G26210 
F5G26220 
F5G26230 
F5G26240 
F5G26250 
F5G26260 
F5G2627.0 
F 562 6 280 
F5G26290 
F5G26300 
F5G26310 
F5G26320 
F5G26330 
F5G26340 
F5G26350 
F5G26360 
F5G26370 
F5G26380 
F5G26390 
F5G26400 
F5G26410 
F5G26420 
F5G26430 
F5G26440 
F5G26450 
F5G26460 



"DT7 



04407 -0 

04410 

04411 

04412 

04413 

04414 

04415 

04416 

04417 

04420 

04421 

04422 -0 

04423 

04424 

04425 

04426 -0 

04427 

04430 -0 

04431 -0 

04432 -0 

04433 -0' 

04434 

04435 

04436 -0 

04437 -0 

04440 -0 

04441 

04442 ~0 

04443 -0 

04444 1 

04445 -0 

04446 

04447 

04450 

04451 -0 

04452 

04453 

04454 -0 

04455 -0 

04456 -0 

04457 
04460 
04461 
04462 
04463 
04464 
04465 

04466 -0 

04467 -0 

04470 

04471 -0 

04472 -0 

04473 1 

04474 2 



32000 
34000 
02000 
02000 
50000 
40000 
02000 
53400 
07400 
00002 
02000 
63400 
34000 
02000 
02000 
50000 
77100 
53400 
60200 
63400 
63400 
50000 
07400 
53400 
53400 
50000 
77100 
60200 
53400 
00000 
53400 
53400 
50000 
60100 
50000 
77100 
77100 
32000 
73400 
50000 
77100 
34000 
76100 
02000 
02000 
50000 
10000 
63400 
63400 
07400 
53400 
53400 
77777 
00001 



00353 
00513 
04413 
04445 
00604 
00315 
04404 
00342 
01661 
04417 
03461 
04444 
00430 
04426 
04473 
00340 
00003 
00565 
05061 
00602 
00603 
00604 
00055 
00602 
00603 
00377 
00003 
07337 
04444 
04464 
00574 
00342 
06443 
00575 
00575 
00003 
00003 
00350 
00000 
06444 
00022 
00337 
00000 
04464 
04422 
00561 
04473 
00602 
00603 
01566 
00602 
00603 
04474 
04451 



X90 



XY3 
XY4 



X97 



X98 



X137 
X92 



X95 



X96 



IS CONTENTS OF IRN EQUAL TO CONTENTS OF ENM 



X93 
X9<t 



ANA SBK2 THIS THE 

CAS SBV3 RIGHT PRED 

TRA X90 

TRA X92 YES 

CLA XV16 

ADD ONEA 

TRA X91 

LXA S5K5tl 

TSX SC»4 

TIX XY4»1»1 

TRA X89 

SXD X137»l 

CAS IR1+3>1 

TRA X98 

TRA X93 YES 

CAL S5K.3 RECORD LX FOR 

ARS 3»1 THIS IR IN THIS 

LXD XV1»1 REGION* 

ORS REGtl 

SXD XV14#4 GET 

SXD XV15t2 INDEX 

CLA XV16 OF 

TSX SE5»4 PRED. 

LXD XV14f4 

LXD XV15t2 

CAL XK16 RECORD 

ARS 3»4 LX 

ORS PRED»1 NECESSARY* 

LXD X137»l 

TXI X96»0t- 

LXD XV8»2 

LXA S5K5»4 SET COUNT TO 3 

CLA BBB+1*2 GET THE WORD WITH 

STO XV9 PERM, NOS. 

CAL XV9 GET 

ARS 3#4 INDEX 

ARS 3t4 OF 

ANA S9K3 THE 

PDX 0*1 I«R* 

CAL BBB+2.2 GET ENTRANCE 

ARS 18 REQUIREMENT* 

CAS S5IC2 IS ENM REAL 

NOP 

TRA X96 NO 

TRA X97 YES 

CLA AC1+3»1 IS IRN 

TZE X93 ACTIVE 

SXD XV14f2 YES. 

SXD XV15»4 

TSX SB»4 RECORD SXD NECESSARY. 

LXD XV14»2 

LXD XV15.A 

TXI X93+lf2»-l 

TIX X95»4»l COUNT TO 3 



F5G26470 
F5G26460 
F5G26490 
F5G26500 
F5G26510 
F5G26520 
F5G26530 
F5G26540 
F5626550 
F5G26560 
F5G26570 
F5G26580 
F5G26590 
F5G26600 
F5G26610 
F5G26620 
F5G26630 
F5626640 
F5626650 
F5G26660 
F5G26670 
F5G26680 
F5G26690 
F5G267O0 
F5G26710 
F5G26720 
F5G26730 
F5G26740 
F5G26750 
F5G26760 
F5G26770 
F5626780 
F5G26790 
F5G26800 
F5G26810 
F5G26820 
F5G26830 
F5G26840 
F5G26850 
F5G26860 
F5G26870 
F5G26880 
F5G26890 
F5G2690O 
F5G26910 
F5G26920 
F5G26930 
F5G26940 
F5626950 
F5G26960 
F5G26970 
F5G26980 
F5G26990 
F5G2700O 



tM 



U 



U 



04475 





56000 





00325 


LOQ 


04476 


-0 


60000 





00440 


STQ 


04477 





56000 





00340 


LDQ 


04500 


-0 


60000 





00437 


STQ 


04501 


-0 


60000 





00521 


STQ 


04502 


-0 


63400 





00436 


SXD 


04503 





50000 





00314 A3 


CLA 


04504 





40100 





00556 


ADM 


04505 





40100 





00557 


ADM 


04506 





40100 





00560 


ADM 


04507 





10000 





03461 


TZE 


04510 





07400 


4 


01023 


TSX 


04511 





02000 





04644 


TRA 


04512 





50000 





01122 


CLA 


04513 


-0 


32000 





00353 


ANA 


04514 





40000 





00451 


ADD 


04515 





40200 





00332 


SUB 


04516 





76700 





00022 


ALS 


04517 


-0 


40000 





00436 


SBM 


04520 





76500 





00065 


LRS 


04521 


-0 


60000 





00571 


STQ 


04522 





22100 





00371 


DVP 


04523 


-0 


60000 





00567 


STQ 


04524 





60100 





00570 


STO 


04525 





50000 





00442 


CLA 


04526 





34000 





00 322 


CAS 


04527 





02000 





045 31 


TRA 


04530 





02000 





04570 


TRA 


04531 





34000 





O0376 Al 


CAS 


04532 





02000 





04534 


TRA 


04533 





02000 





04614 


TRA 


04534 





34000 





00403 A20 


CAS 


04535 





02000 





04537 


TRA 


04536 





02000 





04614 


TRA 


04537 





34000 





00373 A21 


CAS 


04540 





02000 





04542 


TRA 


04541 





02000 





04570 


TRA 


04542 





50000 





00567 A2 


CLA 


04543 





07400 


4 


00032 


TSX 


04544 





53400 


2 


00570 


LXA 


04545 


-0 


50000 


1 


05061 


CAL 


04546 





77100 


2 


00010 


ARS 


04547 


-0 


32000 





00372 


ANA 


04550 





34000 





00372 


CAS 


04551 





02000 





04503 


TRA 


04552 





02000 





04554 


TRA 


04553 





02000 





04503 


TRA 


04554 


-0 


50000 





00570 A4 


CAL 


04555 





76000 





00006 


COM 


04556 





73400 


2 


00000 


PAX 


04557 


-0 


50000 


1 


05061 


CAL 


04560 





76700 


2 


00000 


ALS 



ACTIVE PASS* 

FOLLOWS 2 ED LXING PASS. 
S3K3 INITIALIZE THE 
S3V4 LOOP LIST 
S5K3 AND 

S3V3 MAKE SURE TAG 

ACIND SET IND. TO SAY THIS IS ACTIVE PASS 
S3V2»0 LOCATION GETS SET 
ZERO ARE 
AC1 THERE 
AC2 ANY 

AC3 ACTIVE I*R*S 
X89 LEFT GO TO RENUMBER* 
S3»4 YES. TRY TO GET NEXT TAG* 
A 12 COME HERE IF TAG NOT GOT 
S39 COMPUTE LOCATION OF THIS 
SBK2 TAG=(ADDR* FOLLOWING 
S4V1 TIX BLOCK + L(CM)-CM TAG 
S4K3 - INDEX OF TAG*) 
18 

S3V2 
53 
XV5 

XK9 FORM LOC/9 AND 
XV3 REMAINDER 
XV4 

TPE IS THIS 
S2K2 AN LX 
Al 

A5 YES 

XK15 IS IT AN LX PRIME 
A20 

A8 YES 

XK21 IS IT A OED 
A21 

A8 YES. 

XK12 IS IT AN ACTIVE INSTR. 
A2 

A5 YES* 
XV3 GET INDEX 
SE4»4 OF STAG ENTRY. 
XV4»2 IS THERE 
STAG.l AN LX 
8*2 IN FRONT 
XK11 OF 

XK11 THIS INSTR* 
A3 

A4 YES* 
A3 
XV4 GET 

THE 
0t2 S-TAG 
STAG»1 IN 
0*2 DECR* 



F5G27010 

F5G27020 

F5G27030 

F5G27040 

F5G27050 

F5G27060 

F5627070 

F5G27080 

F5G27090 

F5G27100 

F5G27110 

F5G27120 

F5G27130 

F5G27140 

F5G27150 

F5G27160 

F5G27170 

F5G27180 

F5G27190 

F5G27200 

F5G27210 

F5G27220 

F5G27230 

F5G27240 

F5G27250 

F5G27260 

F5G27270 

F5G27280 

F5G27290 

F5G27300 

F5G27310 

F5G27320 

F5G27330 

F5G27340 

F5G27350 

F 562 7 360 

F5627370 

F5G27380 

F5G27390 

F5G27400 

F5G27410 

F5G27420 

F5G27430 

F5G27440 

F5G27450 

F5G27460 

F5G27470 

F5G27480 

F5G27490 

F5G27500 

F5G27510 

F5G27520 

F5G27530 

F5G27540 



0*561 
0*562 
0*563 
0*564 
0*565 
0*566 
0*567 
0*570 
0*571 
0*572 
0*573 
0*57* 
0*575 
0*576 
0*577 
0*600 
0*601 
0*602 
0*603 
0*60* 
0*605 
0*606 
0*607 
0*610 
0*611 
0*612 
0*613 
0*61* 
0*615 
0*616 
0*617 
0*620 
0*621 
0*622 
0*623 
0*62* 
0*625 
0*626 
0*627 
0*630 
0*631 
0*632 
0*633 
0*63* 
0*635 
0*636 
0*637 
0*6*0 
0*6*1 
0*6*2 
0*643 
0*644 
0*6*5 
0*6*6 



76700 
32000 
73*00 
50000 
10000 
07*00 
02000 
50000 
07400 
50000 
76000 
73400 
50000 
76700 
76700 
32000 
73400 
50000 
10000 
50000 
34000 
02000 
02000 
07400 
02000 
07400 
02000 
50000 
07400 
50000 
76000 
73400 
50000 
60100 
76700 
76700 
32000 
73400 
10000 
50000 
10000 
50000 
75400 
76000 
73400 
50000 
77100 
32000 
10000 
07400 
02000 
53400 
50000 
60100 



00000 

00350 

00000 

00561 

04503 

01566 

04503 

00567 A5 

00032 

00570 

00006 

00000 

05061 

00000 

00000 

00350 

00000 

00561 

04503 

00*30 

00441 

0*610 

04612 

01566 A6 

04503 

01661 A7 

04503 

00567 A8 

00032 

00570 

00006 

00000 

05061 

00*23 

00000 

00000 

00350 

00000 

04503 

00561 

04503 

00314 

00000 

00006 

00000 

00423 

00010 

00316 

04604 

01661 

04503 

00440 A12 

04775 

00607 



A51 



ALS 
ANA 
POX 
CLA 
T2E 
TSX 
TRA 
CLA 
TSX 
CAL 
COM 
PAX 
CAL 
ALS 
ALS 
ANA 
PDX 
CLA 
TZE 
CLA 
CAS 
TRA 
TRA 
TSX 
TRA 
TSX 
TRA 
CLA 
TSX 
CAL 
COM 
PAX 
CAL 
STO 
ALS 
ALS 
ANA 
PDX 
TZE 
CLA 
TZE 
CLA 
PXD 
COM 
PDX 
CLA 
ARS 
ANA 
TNZ 
TSX 
TRA 
LXD 
CLA 
STO 



0.2 PART. 

S9K3 

0*1 

ACl+3tl IS THE CORRESPONDING 

A3 I.R. ACTIVE 

SB»4 YES.RECORD SXD NECESSARY 

A3 

XV3 

SE4f4 GET STAG INDEX* 

XV4 

IS IT 
0.2 TO 
STAG.l AN 
0*2 

0.2 ACTIVE 
S9K3 
0.1 IR 
AC1+3.1 
A3 

IR1+3.1 IS IT 

IT AG SAME TAU-TAG 

A6 

A7 YES 

SB.4 RECORD SXD NEEDED. 
A3 

5C.4 RECORD CERTAIN PART OF 
A3 LOOP LIST ACTIVE. 
XV3 GET 
SE*t* THE 
XV^ 

S-TAG 
0.2 OF 
STAG.l 
S1V6 

0.2 THIS 
0.2 INSTR. 
S9K3 
0.1 

A3 DOES THIS INSTR HAVE AN S-TAG 
AC1+3.1 YES. 
A3 IS THIS IR ACTIVE 

ZERO 
0*2 

0.4 

S1V6 

8.4 

ONED 

A51 

SC.4 YES. RECORD SECTION OF LPLST ACTIVE 

A3 

S3V4.1 GET INDEX OF LPLST QUANTITY 

LPLST+S3P1-2.1 GET PREVIOUS LPLST QUANTITY 

XV19 



F5G27550 
F5G27560 
F5G27570 
F5G27580 
F5G27590 
F5G27600 
F5G27610 
F5G27620 
F5G27630 
F5G27640 
F5G27650 
F5G27660 
F5G27670 
F5G27680 
F5G27690 
F5G27700 
F5G27710 
F5G27720 
F5G27730 
F5G27740 
F5G27750 
F5G27760 
F5G27770 
F 562 7 780 
F5G27790 
F5G27800 
F5G27810 
F5G27820 
F5G27830 
F5G278*0 
F5G27850 
F5G27860 
F5G27870 
F5G27871 
F5G27880 
F5G27890 
F5G27900 
F5G27910 
F5627920 
F5G27930 
F5G27940 
F5G27941 
F5G27942 
F5G27943 
F5G27944 
F5G27945 
F5G27946 
F5G27947 
F5G27948 
F5627950 
F5G27960 
F5G27970 
F5G27980 
F5G27990 



iV 5 



U 



u 



04647 





56000 





00324 




LDQ 


S3K2 


WAS IT A 


04650 





04000 





04663 




TLQ 


A28 




04651 





07400 


4 


00070 


A25 


TSX 


SE*4 


YESt WAS THAT 


04652 





50000 


1 


06442 




CLA 


BBB»1 


BB TERMINATED 


04653 





77100 





00041 




ARS 


33 


BY A 


04654 





40000 





00315 




ADD 


ONEA 


GO TO N 


04655 


-0 


10000 





04663 




TNZ 


A28 




04656 





53400 


1 


00342 




LXA 


S5K5fl 


YES 


04657 





50000 


1 


00561 


A26 


CLA 


ACl+3tl 


IS THIS 


04660 





10000 





04662 




TZE 


A27 


IR ACTIVE 


©466i 


074 00 4 01564 




TSX SB+4 


YES* RECORD SXO NEXESSARY 


04662 


2 


00001 


1 


04657 


A27 


TIX 


A26»lf 1 




04663 





50000 





00444 


A28 


CLA 


S3V5 




04664 





56000 





00324 




LDQ 


S3K2 


IS THIS 


04665 





04000 





04700 




TLQ 


A35 


ATR. REGION 


04666 


-0 


32000 





00336 




ANA 


S5K1 


NO* BB 


04667 





10000 





04503 




TZE 


A3 




04670 





76700 





00003 




ALS 


3 




04671 


-0 


73400 


1 


00000 




PDX 


0*1 




04672 


-3 


00002 


1 


04674 




TXL 


AP1»1»2 




04673 


1 


77777 


1 


04674 




TXI 


AP1»1»-1 




04674 





50000 


1 


00561 


API 


CLA 


AC1+3*1 




04675 





10000 





04503 




TZE 


A3 




04676 





07400 


4 


01566 




TSX 


SB»4 




04677 





02000 





04503 




TRA 


A3 




04700 





07400 


4 


00070 


A35 


TSX 


SE»4 




04701 





50000 


1 


06447 




CLA 


BBB+5»1 




04702 


-0 


73400 


2 


00000 




PDX 


0*2 


INDEX OF REGION TO 2 


04703 





50000 


2 


05061 




CLA 


REG»2 


GET REGION 


04704 





60100 





00607 




STO 


XV19 




04705 





53400 


1 


00342 




LXA 


S5K5fl 




04706 


-0 


50000 





00607 


A31 


CAL 


XV19 




04707 





76700 


1 


00003 




ALS 


3#1 




04710 


-0 


76000 





00001 




PBT 




IS THERE AN LX 


04711 





02000 





04715 




TRA 


A30 


FOR THIS IR 


04712 





50000 


1 


00561 




CLA 


ACl+3tl 


YES 


04713 





10000 





04715 




TZE 


A30 


IS THIS IR ACTIVE 


04714 





07400 


4 


01566 




TSX 


SB»4 


YES* RECORD SXD NECESSARY 


04715 


2 


00001 


1 


04706 


A30 


TIX 


A31»l»l 




04716 





50000 





00444 




CLA 


S3V5 




04717 





07400 


4 


01523 




TSX 


SA»4 


GET THE EXIT CONDITIONS 


04720 





53400 


1 


00342 




LXA 


S5.K5»1 




04721 





50000 


1 


00561 


A34 


CLA 


AC1+3»1 




04722 





10000 





04736 




TZE 


A32 


IS THIS IR ACTIVE 


04723 





50000 


1 


00506 




CLA 


EX1+3»1 


YES 


04724 





56000 





00337 




LDQ 


S5K2 




04725 





04000 





04730 




TLQ 


A33 


IS THE EXIT CONDITION REAL 


04726 





50000 


1 


00511 




CLA 


ACT1+3»1 


YES 


04727 





12000 





04736 




TPL 


A32 


IS THE IR ACTIVE AT EXIT 


04730 


-0 


63400 


1 


00610 


A33 


SXD 


XV20fl 


YES 


04731 


-0 


53400 


2 


00610 




LXD 


XV20»2 




04732 





50000 





00444 




CLA 


S3V5 




04733 





07400 


4 


01753 




TSX 


SD»4- 


RECORD TR. REG. ACTIVE 


04734 


-o 


53400 


1 


00610 




LXD 


XV20»1 





F5G280OO 
F5G28010 
F5G28020 
F5G28030 
F5G28040 
F5G28050 
F5G28060 
F5G2807O 
F5G28080 
F5G28090 
F5G2 8100 
F5G28110 
F5G28120 
F5G28130 
F5G28140 
F5G28150 
F5G28160 
F5G28170 
F5G28180 
F5G28190 
F5G2820O 
F5G28210 
F5G28220 
F5G28230 
F5G28240 
F5G28250 
F5G28260 
F5G28270 
F5G28280 
F5G28290 
F5G28300 
F5G28310 
F5G28320 
F5G28330 
F5G28340 
F5G28350 
F5G28360 
F5G28370 
F5G28380 
F5G28390 
F5G28400 
F5G28410 
F5G28420 
F5G28430 
F5G28440 
F5G28450 
F5G28460 
F5G28470 
F5G28480 
F5G28490 
F5G2850O 
F5G28510 
F5G28520 
F5G28530 



04735 





07400 


4 


01661 




TSX 


04736 


2 


00001 


1 


04721 


A32 


TIX 


04737 





02000 





04503 




TRA 


04740 





50000 





00376 


QP 


CLA 


04741 


-0 


32000 





00020 




ANA 


04742 





77100 





00001 




ARS 


04743 





62200 





00103 




STD 


04744 





10000 





00030 




TZE 


04745 


-0 


53400 


4 


00063 




LXD 


04746 





50000 





00075 




CLA 


04747 


-3 


00000 


4 


00030 


QPO 


TXL 


04750 


1 


77777 


4 


04751 




TXI 


04751 


-o 


63400 


4 


00104 


QP1 


SXD 


04752 





40200 





00316 




SUB 


04753 





07400 


4 


00070 




TSX 


04754 


-0 


53400 


4 


00072 




LXD 


04755 


1 


00111 


4 


04756 




TXI 


04756 


-0 


63400 


4 


04767 


QP2 


SXD 


04757 


-0 


63400 


4 


04771 




SXD 


04760 





53400 


4 


06442 




LXA 


04761 


-0 


63400 


4 


04775 




SXD 


04762 


-o 


53400 


4 


00104 




LXD 


04763 


-0 


75400 


4 


00000 


QP3 


PXD 


04764 





07400 


4 


00056 




TSX 


04765 





50200 


1 


07337 




CLS 


04766 





73400 


4 


00000 




PAX 


04767 


3 


00000 


4 


04772 


QP4 


TXH 


04770 


1 


00112 


4 


04771 




TXI 


04771 


3 


00000 


4 


04773 


QP5 


TXH 


04772 





60100 


1 


07337 


QP6 


STO 


04773 


-0 


53400 


4 


00306 


QP7 


LXD 


04774 





50000 





00072. 




CLA 


04775 


-3 


00000 


4 


04747 


QP8 


TXL 


04776 


1 


77777 


4 


04763 
04741 

04741 
05061 
02712 
00062 


LPLST 
REG 
SPACE 
STAGL 


TXI 
ORG 

BSS 
BES 
EQU 
SYN 


05061 





00000 





00000 


STAG 


HTR 


05062 





00000 





00000 




HTR 


05063 





00000 





00000 




HTR 


05064 





00000 





00000 




HTR 


05065 





00000 





00000 




HTR 


05066 





00000 





00000 




HTR 


05067 





00000 





00000 




HTR 


05070 





00000 





00000 




HTR 


05071 





00000 





00000 




HTR 


05072 





00000 





00000 




HTR 


05073 





00000 





00000 




HTR 


05074 





00000 





00000 




HTR 


05075 





00000 





00000 




HTR 


05076 





00000 





00000 




HTR 



SC»4 RECORD SECTION OF LPLST ACTIVE 

A34»l»l COUNT TO 3 

A3 

XK15 

16 

1 

SE21+2 

R 

PREDP+3»4 

BBBP+3 

R»4»0 

QP1»4»-1 

SE21+3t4 

ONED 

SE#4 

BBBP#4 

QP2*4*BBBL-1 

QP4>4 

QP5»4 

BBBt4 

0P8»4 

SE21+3.4 

0»4 

SS5+1.4 

P*iDfl 

0»-+ 

GP6»4»- 

QP5»4»BBBL 

QP7»4>- 

PREDtl 

SEV2*4 

B8BP 

QP0*4»- 

QP3*4*~*1 

QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS* 

STORAGE ASSIGNMENT (TABLES) 
S3P1 SPACE FOR LOOP LIST TABLE 
FP1 SPACE FOR REGION WORDS 
MSIZE-5-REG STORAGE SPACE LEFT 
STL 



F5G28540 

F5G28550 

F5G28560 

F5G28580 

F5G28590 

F5G28600 

F5G28610 

F5G28620 

F5G28630 

F5G28640 

F5G28650 

F5G28660 

F5G28670 

F5G28680 

F5G28690 

F5G28700 

F5S2S7irO 

F5G28720 

F5G28730 

F562*740 

F5G28750 

F5G28760 

F5G28770 

F5G28780 

F5G28790 

F5G28800 

F5G28810 

F5G28820 

F5G28830 

F5G28840 

F5G28850 

F5G28860 

F5G28870 

F5G28880 

F5G28890 

F5G28900 

F5G28910 

F5G28920 

F5G28930 

F5G28940 

F5G28950 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5628960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 



u 



o 



05077 





00000 





00000 


HTR 


- 


05100 





00000 





00000 


HTR 


"* 


05101 





00000 





00000 


HTR 


- 


05102 





00000 





00000 


HTR 


— 


05103 





00000 





00000 


HTR 


— 


05104 





00000 





00000 


HTR 


— 


05105 





00000 





00000 


HTR 


— 


05106 





00000 





00000 


HTR 


— 


05107 





00000 





ooooo 


HTR 


— 


05110 





00000 





00000 


HTR 


- 


05111 





ooooo 





ooooo 


HTR 


— 


05112 





00000 





ooooo 


HTR 


- 


05113 





00000 





ooooo 


HTR 


— 


05114 





00000 





ooooo 


HTR 


— 


05115 





00000 





ooooo 


HTR 


- 


05116 





00000 





ooooo 


HTR 


— 


05117 





00000 





ooooo 


HTR 


— 


05120 





00000 





ooooo 


HTR 


— 


05121 





00000 





ooooo 


HTR 


— 


05122 





00000 





ooooo 


HTR 


— 


05123 





00000 





ooooo 


HTR 


— 


05124 





00000 





ooooo 


HTR 


— 


05125 





00000 





ooooo 


HTR 


— 


05126 





00000 





ooooo 


HTR 


- 


05127 





00000 





ooooo 


HTR 


— 


05130 





00000 





ooooo 


HTR 


— 


05131 





00000 





ooooo 


HTR 


- 


05132 





00000 





ooooo 


HTR 


— 


05133 





00000 





ooooo 


HTR 


— 


05134 





00000 





-IvOOO 


HTR 


— 


05135 





00000 





. -■ ,0 


HTR 


— 


05136 





00000 





„ „. :, ,0 


HTR 


— 


05137 





00000 





Ovj^O 


HTR 


- 


05140 





00000 





ooooo 


HTR 


— 


05141 





00000 





ooooo 


HTR 


— 


05142 





00000 





ooooo 


HTR 


— 


05143 





00000 





ooooo 


HTR 


— 


05144 





50000 


1 


06444 WO 


CLA 


BBB+2»1 


05145 





77100 





00022 


ARS 


18 


05146 





40200 





00611 


SUB 


XV21 


05147 





10000 





04112 


TZE 


X42 


05150 





53400 


1 


00342 


LXA 


S5K5»1 


05151 


-0 


53400 


4 


00601 


LXD 


XV13»4 


05152 





50000 


4 


06444 Wl 


CLA 


BBB+2f4 


05153 





76500 





00022 


LRS 


18 


05154 





40200 





00611 


SUB 


XV21 


05155 





I 000 





05165 


TZE 


W3 


05156 





50000 





00314 


CLA 


ZERO 


05157 





76300 





00022 


LLS 


18 


05160 





40200 





00611 


SUB 


XV21 


05161 





10000 





05165 


TZE 


W3 


05162 


1 


mn 


4 


05163 


TXI 


W2»4»-l 


05163 


2 


00001 


1 


05152 W2 


TIX 


Wltltl 


05164 


-3 


00000 





04111 


TXL 


X36»-»- 



F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G2&960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28960 
F5G28980 
F5G28990 
F5G29000 
F5G29010 
F5G29020 
F5G29030 
F5G29040 
F5G29050 
F5G29060 
F5G29070 
F5G29080 
F5G29090 
F5629100 
F5G29110 
F5G29120 
F5G29130 
F5G29140 



ftf 



e v 



05165 


-0 


63400 


2 


05171 


W3 


SXD 


05166 


-0 


53400 


1 


05164 




LXD 


05167 





07400 


4 


01566 




TSX 


05170 


-0 


53400 


2 


05171 




LXD 


05171 


-3 


00000 





04111 
05172 
01224 
05216 
00112 
06442 
07337 
00435 
00215 
07337 
00215 
07555 


W4 

CMTL 

CMTAG 

BBBL 

BBB 

PRED 

SPACl 

PREDL 

SUCCL 
SUCC 


TXL 
BSS 
SYN 
BSS 
SYN 
BSS 
SYN 
EQU 
EQU 
BSS 
SYN 
BSS 



07337 

07340 

07341 

07342 

07343 

07344 

07345 

07346 

07347 

07350 

07351 

07352 

07353 

07354 

07355 

07356 

07357 

07360 

07361 

07362 

07363 

07364 

07365 

07366 

07367 

07370 

07371 

07372 

07373 

07374 

07375 

07376 



53400 
76000 
76100 
50000 
60100 
00001 
76000 
50000 
60100 
50000 
60100 
50000 
60100 
50000 
76700 
60100 
40200 
07400 
50000 
62200 
76700 
62200 
50000 
32000 
60100 
76500 
22100 
60000 
10000 
50000 
40000 
76500 



07337 
00362 
00012 
00000 
00314 
05061 
07343 
00140 
07777 
00042 
07775 
00065 
07776 
00077 
07774 
00022 
00075 
00316 
00070 
06442 
00051 
00022 
00063 
06443 
00326 
00453 
00043 
00331 
07450 
07375 
00315 
07450 
00043 



111 



II 



ORG 
LXA 
OCT 
NOP 
CLA 
STO 
TIX 
PSE 
CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
ALS 
STO 
SUB 
TSX 
CLA 
STD 
ALS 
STD 
CLA 
ANA 
STO 
LRS 
DVP 
STO 
TZE 
CLA 
ADD 
LRS 



W4*2 
W2+l»l 
S8f4 
W4»2 
X36»-»- 

PTL1 SPACE FOR PATCHES 
9*SPACE/20/15*15 
CMTL 

6*SPACE/20/6 
• BBBL*6+1 
BBB+BBBL*6+1 
MSIZE-4-PRED 
SPAC1/2-1 
PREDL+1 
PREDL 
SUCCL+1 

ED4TOR RECORD NO* 76 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART IB 
INITIALIZATION AND PRED LIMIT FOR FAST COMPILING* 

PRED 

FK5»1 CLEAR REG* TABLE 

CLEAR DIVIDE CHECK. LIGHT 

IN CASE DIVIDE CHECK IS ON 
ZERO 
REG*1 
111*1*1 

96 TURN OFF SENSE LIGHTS. 

KEYS+3 INITIALIZE 

STAGP+5 DRUM ADDR* OF STAG 
KEYS+1 
PREDP+5 
KEYS+2 

BBBP+5 DRUM ADDR. OF BB*B* 
KEYS 
18 

BBBP+3 NO* OF BASIC BLOCKS* 
ONED 
SE»4 
BBBtl 
SUCCP+3 
18 

PREDP+3 
BBB+1»1 
S3K4 
S4V3 
35 

S4K2 COMPUTE 
IV1 THE 
II LOCATION 
ONEA WHICH A 
IV1 WOULD HAVE 
35 IF IT 



LOCATION OF LAST SUCC 
LOCATION OF LAST PRED 



TAG 



F5629150 
F5G29160 
F5629170 
F5G29180 
F5G29190 
F5G29200 
F5G29210 
F5G29220 
F5G29230 
F5G29240 
F5G29250 
F5G29260 
F5G29270 
F5G29280 
F5G29290 
F5G29300 
F5G29310 
F5G29320 
F5G29340 
F5G29550 
F5G29360 
F5G29370 
F5G29380 
F5G29390 
F5G29400 
F5G29410 
F5G29420 
F5G29430 
F5G29440 
F5G29441 
F5G29450 
F5G29460 
F5G29470 
F5G29480 
F5G29490 
F5G295O0 
F5G29510 
F5G29520 
F5G29530 
F5G29540 
F5G29550 
F5G29560 
F5G29570 
F5G29580 
F5G29590 
F5G29600 
F5G29610 
F5G29620 
F5G29630 
F5G29640 
F5G29650 
F5G29660 
F5G29670 
F5G29680 



u 



u 



07377 
07400 
07401 
07402 
07403 
07404 
07405 
07406 
07407 
07410 
07411 
07412 
07413 
07414 
07415 
07416 
07417 
07420 
07421 
07422 
07423 
07424 
07425 
07426 
07427 
07430 
07431 
07432 
07433 
07434 
07435 
07436 
07437 
07440 
07441 
07442 
07443 
07444 
07445 
07446 
07447 
07450 
07451 
07452 
07453 
07454 
07455 
07456 
07457 
07460 
07461 
07462 
07463 
07464 



20000 
76300 
60100 
60100 
50000 
32000 
76500 
22100 
60000 
10000 
50000 
40000 
76700 
60100 
76500 
22100 
10000 
50000 
60000 
40000 
76700 
40000 
77100 
40000 
56000 
04000 
50000 
34000 
02000 
02000 
60100 
40000 
56000 
60000 
04000 
60100 
50000 
53400 
07400 
02000 
07400 
00000 
00000 
00000 
00000 
07400 
77200 
50000 
10000 
60100 
60100 
60100 
50000 
60100 



00331 
00043 
00452 
00451 
06443 
00326 
00043 
00371 
07450 
07412 
00315 

07450 110 
00022 
00040 
00043 
00037 
07421 
00315 

07451 13 
07451 
00022 
00040 
00022 
00042 
07453 
07447 
00036 16 
00040 
07435 
07454 
00035 14 
00037 
00040 
00036 
07443 
00036 
00277 15 
07452 
00166 
07431 
00004 17 
00000 1V1 
00000 IV2 
77744 IK2 
17777 IK1 
01133 19 
00204 
07775 
04740 
00550 
04740 
04741 
00323 
04742 



MPY 
LLS 
STO 
STO 
CLA 
ANA 
LRS 
DVP 
STQ 
TZE 
CLA 
ADD 
ALS 
STO 
LRS 
DVP 
TZE 
CLA 
STQ 
ADD 
ALS 
ADD 
ARS 
ADD 
LDQ 
TLQ 
CLA 
CAS 

i ;~ **t 

TRA 
STO 
ADD 
LDQ 
STQ 
TLQ 
STO 
CLA 
LXA 
TSX 
TRA 
TSX 



HTR 
TSX 
REW 
CLA 
TNZ 
STO 
STO 
STO 
CLA 
STO 



S4K2 WERE FIRST IN 

35 THE NEXT RECORD. 

S4V2 

S4V1 

BBB+1*1 DETERMINE NO. 

S3K4 OF ENTRIES IN 

35 STAG. 

XK9 

IV1 

110 

ONEA 

IV1 INITIALIZE 

18 

STAGP+3 OF ENTRIES IN STAG 

35 COMPUTE 

STAGP+2 THE 

13 DRUM 

ONEA ADDR. 

IV2 FOLLOWING 

IV2 THE 

18 

STAGP+3 STAG 

18 

STAGP+5 TABLE. 

IK1 

17 

STAGP+1 

STAG^-J ARE WE THRU STORING S 

14 

19 

STAGP SET HiO) TO OLD N(l) 

STAGPr2 SET N(l) TO MIN (OLD N(l>+N.» 

STAGP+3 N(L) 

STAGP+1 

15 

STAGP+1 

SEK 

IK2»2 

SE26»4 STORE BLOCK OF OS 

16 

4f4 TO DIAGNOSTIC 



1-STAGP 

8191 

S4#4 

INSTTP 

KEYS+1 

LPLST-1 

LPIND 

LPLST-1 

LPLST 

S3K1 

LPLST+1 



REWIND THE COMPILED INST TAPE 



F5G29690 
F5G29700 
F5G29710 
F5G29720 
F5G29730 
F5G29740 
F5G29750 
F5G29760 
F5G29770 
F5G29780 
F5G29790 
F5G29800 
F5G29810 
F5G29820 
F5G29830 
F5G29840 
F5G29850 
F5629860 
F5G29870 
F5G29880 
F5G29890 
F5G29900 
F5G29910 
F5G29920 
F5G29930 
F5G29940 
F5G29950 
F5G29960 
F5G29970 
F5G29980 
F5G29990 
F5G30000 
F5G30010 
F5G30020 
F5G30030 
F5G30040 
F5G3O050 
F5G30060 
F5G30070 
F5G30080 
F5630090 
F5G30100 
F5G30110 
F5G30120 
F5G30130 
F5G30140 
F5G30150 
F5G30160 
F5G30170 
F5G30180 
F5G3O190 
F5G30200 
F5G30210 
F5G30220 



07465 


-0 


53400 


4 


00317 




LXD 


S1K2»4 SKIP DIAGNOSTICS 




07466 





76200 





00221 


I9A 


RTB 


1 AND ANTIPINGPONG 




07467 


2 


000 01 


4 


07466 




TIX 


I9A«4*1 SIX RECORDS 




07470 





02000 





02706 
04740 




TRA 
ORG 


F75 

EDITOR RECORD NO. 78 
FOR CONTROL CARD INFORMATIONt SEE END OF 
DIAGNOSTIC CALLER FOLLOWS 
PART 1C 
SUCC LIMIT FOR FAST COMPILING 

LPLST-1 


ASSEMBLY. 


04740 


-0 


53400 


1 


00103 


QS 


LXD 


SE21+2*1 




04741 


-3 


00000 


1 


02177 




TXL 


F.1«0 




04742 


-0 


53400 


4 


00051 




LXD 


SUCCP+3»4 




04743 





50000 





00075 




CLA 


BBBP+3 




04744 


-3 


00000 


4 


02177 


QSO 


TXL 


F»4»0 




04745 


1 


77777 


4 


04746 




TXI 


QS1»4»-1 




04746 


-0 


63400 


4 


00104 


QS1 


SXD 


SE21+3t4 




04747 





40200 





00316 




SUB 


ONED 




04750 





07400 


4 


00070 




TSX 


SEt4 




04751 


-0 


53400 


4 


00072 




LXD 


B8BP»4 




04752 


1 


00111 


4 


04753 




TXI 


QS2»4»BBBL-1 




04753 


-0 


63400 


4 


04764 


QS2 


SXD 


0S4»4 




04754 


-0 


63400 


4 


04766 




SXD 


QS5»4 




04755 


-0 


53400 


4 


06442 




LXD 


BBB.4 




04756 


-0 


63400 


4 


04772 




SXD 


QS8»4 




04757 


-0 


53400 


4 


00104 




LXD 


SE21+3»4 




04760 


-0 


75400 


4 


00000 


0S3 


PXD 


0*4- 




04761 





07400 


4 


00044 




TSX 


SE6»4 




04762 





50200 


1 


07555 




CLS 


SUCOl 




04763 





73400 


4 


00000 




?*% 


.; * ^ 




04764 


3 


00000 


4 


04767 


QS4 


TX-r 


.; ..; 5 • ** * - 




04765 


1 


00112 


4 


04766 




TXI 


QS5»4#BBBL 




04766 


3 


00000 


4 


04770 


QS5 


TXH 


QS7t4»- 




04767 





60100 


1 


07555 


QS6 


STO 


SUCC»1 




04770 


-0 


53400 


4 


00306 


QS7 


LXD 


SEV2*4 




04771 





50000 





00072 




CLA 


BBBP 




04772 


-3 


00000 


4 


04744 


GS8 


TXL 


GSG*4f- 




04773 


1 


77777 


4 


04760 




TXI 


QS3»4t-l 

rMTAn DC/~r\or\ M/"\ .. On 













04740 




ORG 


04740 


-0 


53400 


1 


00103 


QPU 


LXD 


04741 


-3 


00000 


1 


00030 




TXL 


04742 


-0 


53400 


4 


00063 




LXD 


04743 





50000 





00075 




CLA 


04744 


-3 


00000 


4 


00030 


QPUO 


TXL 


04745 


1 


77777 


4 


04746 




TXI 


04746 


-0 


63400 


4 


00104 


QPU1 


SXD 


04747 





40200 





00316 




SUB 


04750 





07400 


4 


00070 




TSX 


04751 


-0 


53400 


4 


00072 




LXD 



FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART ID 
PRED UNDO FROM FAST COMPILING 
LPLST-1 
SE21+2#1 
R*1»0 
PREDP+3»4 
BBBP+3 
R«4»0 
QPUlf4«-l 
SE21+3»4 
ONED 
SE»4 
BBBP»4 



F5G30230 
F5G30240 
F5G30250 
F5G30260 
F5G30270 
F5G30280 
F5G3030O 
F5G30310 
F5G30320 
F5G30330 
F5G30340 
F5G30350 
F5G3036O 
F5G30370 
F5G30380 
F5G30390 
F5G3040Q 
F5G30410 
F5G30420 
F5G30430 
F5G30440 
F5G30450 
F5G30460 
F5G30470 
F5G30480 
F5G30490 
F5G30500 
F5^30510 
F5G30520 
F5G30530 
F5G30540 
F5G30550 
F5G30560 
F5G30570 
F5G30580 
F5G30590 
F5G30600 
F5G30610 
F5G30620 
F5G30630 
F5G30650 
F5G30660 
F5G30670 
F5G30680 
F5G30690 
F5G30700 
F5G30710 
F5G30720 
F5G30730 
F5G30740 
F5G30750 
F5G3O760 
F5G30770 
F5G30780 



W 



u 



u 



n 



0^752 


1 


00111 


4 


04753 




TXI 


QPU2*4»BBBL-1 


04753 


-0 


63400 


4 


04764 


QPU2 


SXD 


QPU4*4 


04754 


-0 


63400 


4 


04766 




SXD 


QPU5»4 


04755 





53400 


4 


06442 




LXA 


BBB*4 


04756 


-0 


63400 


4 


04772 




SXD 


QPU8»4 


04757 


-0 


53400 


4 


00104 




LXD 


SE21+3»4 


04760 


-0 


75400 


4 


00000 


QPU3 


PXD 


0*4 


04761 





07400 


4 


00056 




TSX 


SE5+1»4 


04762 





50200 


1 


07337 




CLS 


PRED»1 


04763 





73400 


4 


00000 




PAX 


0*4 


04764 


3 


0000© 


4 


04767 


QPU4 


TXH 


QPU6*4»- 


04765 


1 


00112 


4 


04766 




TXI 


QPU5»4»BBBL 


04766 


3 


00000 


4 


04770 


QPU5 


TXH 


0PU7#4»- 


04767 





60100 


1 


07337 


QPU6 


STO 


PRED»1 


04770 


-0 


53400 


4 


00306 


QPU7 


LXD 


SEV2»4 


04771 





50000 





00072 




CLA 


B8BP 


04772 


-3 


00000 


4 


04744 


QPU8 


TXL 


QPU0*4»- 


04773 


1 


77777 


4 


04760 
04740 




TXI 

ORG 


QPU3»4*-1 

EDITOR RECORD NO. 82 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART IE 

SUCC UNDO FROM FAST COMPILING 
LPLST-1 


04740 


-0 


53400 


1 


00103 


QSU 


LXD 


SE21+2#1 


04741 


-3 


00000 


1 


02177 




TXL 


FtltO 


0.4742 


-0 


53400 


4 


00051 




LXD 


SUCCP+3f4 


04743 





50000 





00075 




CLA 


BBBP+3 


04744 


-3 


00000 


4 


02177 


QSUO 


TXL 


F»4*0 


04745 


1 


77777 


4 


04746 




TXI 


QSU1»4»-1 


04746 


-0 


63400 


4 


00104 


QSU1 


SXD 


SE2 1+3*4 


04747 





40200 





00316 




SUB 


ONED 


04750 





07400 


4 


00070 




TSX 


SE»4 


04751 


-0 


53400 


4 


00072 




LXD 


BBBP»4 


04752 


1 


00111 


4 


04753 




TXI 


QSU2»4iBBBL-l 


04753 


-0 


63400 


4 


04764 


0SU2 


SXD 


QSU4»4 


04754 


-0 


63400 


4 


04766 




SXD 


QSU5»4 


04755 


-0 


53400 


4 


06442 




LXD 


BBB#4 


04756 


-0 


63400 


4 


04772 




SXD 


QSU8»4 


04757 


-0 


53400 


4 


00104 




LXD 


SE21+3»4 


04760 


-0 


75400 


4 


00000 


QSU3 


PXD 


0*4 


04761 





07400 


4 


00044 




TSX 


SE6»4 


04762 





50200 


1 


07555 




CLS 


5UCC*1 


04763 





73400 


4 


00000 




PAX 


0*4 


04764 


3 


00000 


4 


04767 


QSU4 


TXH 


QSU6*4*- 


04765 


1 


00112 


4 


04766 




TXI 


QSU5»4»BBBL 


04766 


3 


00000 


4 


04770 


QSU5 


TXH 


QSU7»4»- 


04767 





60100 


1 


07555 


QSU6 


STO 


SUCC»1 


04770 


-0 


53400 


4 


00306 


QSU7 


LXD 


SEV2»4 


04771 





50000 





00072 




CLA 


BBBP 


04772 


-3 


00000 


4 


04744 


QSU8 


TXL 


QSU0»4»- 


04773 


1 


77777 


4 


04760 




TXI 


QSU3»4»~1 

EDITOR RECORD NO. 84 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 



F5G30790 
F5G30800 
F5G30810 
F5G30820 
F5G30830 
F5G30840 
F5G30850 
F5G30860 
F5G30870 
F5G30880 
F5G30890 
F5G 30900 
F5G30910 
F5G30920 
F5G30930 
F5G30940 
F5G30950 
F5G30960 
F5G30970 
F5G30980 
F5G31O00 
F5G31010 
F5G31020 
F5G31030 
F5G31040 
F5G31050 
F5G31060 
F5G31070 
F5G31080 
F5G31090 
F5G31100 
F5G31110 
F5G31120 
F5G31130 
F5G31140 
F5631150 
F5G31160 
F5G31170 
F5G31180 
F5G31190 
F5G31200 
F5G31210 
F5G31220 
F5G31230 
F5G31240 
F5G31250 
F5G31260 
F5G31270 
F5G31280 
F5G31290 
F5G31300 
F5G31310 
F5G31320 
F5G31330 



ff<1 



TV 









DIA6N0ST 

PAR 

PERMUTE RESUL 




00317 




ORG C 


00317 


00000 77777 


BLV09 


HTR -1 


00320 


76200 00223 


BL12 


RTB BLT 


00321 


70000 00655 


6L13 


CPY BLIST 


00322 


02000 00320 




TRA BL12 


00323 


02000 00325 




TRA BL6 


00 32 A 


02000 00320 




TRA BL12 


00325 


-0 53400 2 00332 


BL6 


LXD C0N1»2 


00326 


76200 00223 


BL5 


RTB BLT 


00327 


53400 1 00332 




LXA CONltl 


00330 


70000 1 00655 


BL1 


CPY BLIST*1 


00331 


1 77777 1 00330 




TXI BL1»1»-1 


00332 


00005 00000 


CON1 


0*0*5 


00333 


76600 00333 




IOD 


00334 


-0 76000 00012 




RTT 


00335 


02000 00435 




TRA BL4 


00336 


50000 07774 




CLA KEYS 


0O337 


40200 005^2 




SUB TWO 


00340 


60100 00566 




STO BLV3 


00341 


50000 00314 




CLA ZERO 


00342 


07400 4 00032 




TSX SE4»4 


00343 


50000 1 05061 




CLA STAG»1 


00344 


60100 00602 




STO BLV07 


00345 


50000 00564 




CLA SLV1 


00346 


56000 00566 


BL3 


LOG 3LV3 


00347 


04000 00541 




TLQ 3L06 


00350 


40000 00315 




ADO ONEA 


00351 


07400 4 00067 




TSX SE1»4 


00352 


50000 1 06443 




CLA BBB+1*1 


00353 


-0 32000 00554 




ANA RMSK 


00354 


60100 00571 




STO BLV6 


00355 


50000 1 06442 




CLA BBB»1 


00356 


-0 32000 00553 




ANA 2AMSK 


00357 


60100 00570 




STO BLV5 


00360 


50000 00564 




CLA BLV1 


00361 


07400 4 00067 




TSX SE1»4 


00362 


-0 53400 2 00565 




LXD BLV2»2 


00363 


50000 2 00655 




CLA BLIST»2 


00364 


60100 1 06447 




STO BBB+5»1 


00365 


1 77777 2 00366 


BL2 


TXI 8L2+1»2*-1 


00366 


-0 63400 2 00565 




SXD BLV2»2 


00367 


50000 1 06443 




CLA BBB+1»1 


00370 


60100 00572 




STO BLV7 


00371 ■ 


-0 63400 1 00567 




SXD BLV4»1 


00372 


50000 1 06443 




CLA BBB+1»1 


00373 • 


-0 32000 00554 




ANA RMSK 


00374 


40200 00571 




SUB BLV6 


00375 


40200 00315 




SUB ONEA 


00376 


73400 2 00000 




PAX 0*2 


00377 - 


-0 63400 2 00600 




SXD BLV05»2 


00400 


50000 1 06442 




CLA BBB*1 



IC CALLER FOLLOWS 

T 2 

TS AND COMBINE BB LIST WITH BB TABLE 

BB NO. OF LAST GO TO N 

FIND THE END OF FILE PRECEEDING BB LIST 



COPY BB LIST INTO CS 



ERROR 

O.K. COMPUTE TEST CONSTANT 



STAG WORD 



HAVE WE ALREADY DEALT WITH LAST BB 
YES • GO TO READ IN NEXT PART 

GET UNDEX OF NEXT BB 
STORE THE NO, OF THE 
FIRST TAG IN 
NEXT BB* 



STORE AWAY NO. OF U1ST PRED IN NEXT BB* 



REPLACE LAST WORD OF BBB ENTRY 
BY THE LOCATION FROM THE BB LIST* 



STORE PERMUTATION NOS* 



GET 

OF 1ST TAG IN BB 

FORM COUNT OF NO* OF TAGS 

COUNT OF NO. OF TAGS INTO 2. 
STORE COUNT OF NO. OF TAGS 



F5G31350 
F5G31360 
F5G31370 
F5G31380 
F5G31390 
F5G31400 
F5G31410 
F5G31420 
F5G31430 
F5G31440 
F5G31450 
F5G31460 
F5G31470 
F5G31460 
F5G31490 
F5G31500 
F5G3^10 
F5G31520 
F5G31530 
F5G34540 
F5G31550 
F5G31560 
F5G31570 
F5G31580 
F5G31590 
F5G31600 
F5G31610 
F5G31620 
F5G31630 
F5G31640 
F5G31650 
F5G31660 
F5G31670 
F5G31680 
F5G31690 
F5G31700 
F5G31710 
F5G31720 
F5G31730 
F5G31740 
F5G31750 
F5G31760 
F5G31770 
F5G31780 
F5G31790 
F5G31800 
F56il810 
F5G31820 
F5G31830 
F5G31840 
F5G31850 
F5G31860 
F5G31870 
F5G31880 



<v 



u 



u 



o 



00401 


-0 


32000 





00553 


ANA 


2AMSK 


00402 





60100 





00575 BL9 


STO 


BLV01 


00403 





34000 





00570 


CAS 


BLV5 


00404 





02000 





00406 


TRA 


BL7 


00405 





02000 





00440 


TRA 


BL01 


00406 





07400 


4 


00055 BL7 


TSX 


SE5»4 


00407 


-0 


50000 





00555 


CAL 


SALM 


00410 





60200 





00574 


SLW 


BLV9 


00411 


-0 


50000 


1 


07337 


CAL 


PRED»1 


00412 





60200 





00573 


SLW 


BLV8 


00413 





32004 





00574 


ANS 


8LV9 


00414 


-0 


53400 


2 


00550 


LXD 


2LD3»2 


00415 


-0 


50000 





00572 BL8 


CAL 


BLV7 


00416 





77100 


2 


00003 


ARS 


3*2 


00417 





77100 


2 


00003 


ARS 


3»2 


00420 


-0 


32000 





00550 


ANA 


2LD3 


00421 


-0 


73400 


4 


00000 


PDX 


0*4 


00422 


-0 


50000 





00573 


CAL 


BLV8 


00423 





76700 


2 


00003 


ALS 


3t2 


00424 


-0 


32000 





00557 


ANA 


BITMK 


00425 





77100 


4 


00003 


ARS 


3»4 


00426 


-0 


60200 





00574 


ORS 


BLV9 


00427 


2 


00001 


2 


00415 


TIX 


BL8»2»1 


00430 





50000 





00574 


CLA 


BLV9 


00431 





60100 


1 


07337 


STO 


PRED»1 


00432 





50000 





00575 


CLA 


BLV01 


00433 





40000 





00315 


ADD 


ONEA 


00434 





02000 





00402 . 


TRA 


BL9 


00435 





76400 





00203 BL4 


BST 


BLT 


00436 


2 


00001 


2 


00326 


TIX 


BL5»2*1 


00437 





07400 


4 


00004 


TSX 


4»4 THEN 


00440 


-0 


53400 


1 


00600 BL01 


LXD 


BLV05»1 


00441 


-2 


00001 


1 


00504 BL03 


TNX 


BL04»1#1 


00442 


-0 


53400 


2 


00577 


LXD 


BLV04»2 


00443 


2 


0000 1 


2 


00466 


TIX 


BL02»2*1 


00444 


-0 


63400 


1 


00600 


SXD 


BLV05»1 


00445 


-0 


53400 


2 


00603 


LXD 


BLV08»2 


00446 





50000 





00602 


CLA 


BLV07 


00447 





60100 


2 


05061 


STO 


STAG»2 


00450 





50000 





00314 


CLA 


ZERO 


00451 





60100 





00602 


STO 


BLV07 


00452 





50000 





00576 


CLA 


BLV03 


00453 





07400 


4 


00032 


TSX 


SE4»4 


00454 


-0 


63400 


1 


00603 


SXD 


BLV08»1 


00455 


-0 


50000 


1 


05061 


CAL 


STAG»1 


00456 





60200 





00601 


SLW 


BLV06 


00457 


-0 


32000 





00560 


ANA 


LMSK 


00460 





60200 





00602 


SLW 


BLV07 


00461 





50000 





00576 


CLA 


BLV03 


00462 





40000 





00315 


ADD 


ONEA 


00463 





60100 





00576 


STO 


BLV03 


00464 


-0 


53400 


2 


00551 


LXD 


2LD9»2 


00465 


-0 


53400 


1 


00600 


LXD 


BLV05»1 


00466 


-0 


63400 


2 


00577 BL02 


SXD 


BLV04»2 



IS THIS PRED IN SAME BB 

YES 

NQ 

YES* GET INDEX OF PRED 



STODRE OLD PRED WORD 
INT INITIALIZE NEW PRED WORD 
SET COUNT TO 3 
PLACE THE 
PERMUTATION NO, 
IN REGISTER 4 



PERMUTE 
THE LXD 
AND SXD 
BITS IN THE 
PRED ENTRY 
COUNT TO 3 

STORE PRED ENTRY WITH PERMUTED BITS 
ARRANGE TO CONSIDER 
NEXT PRED ENTRY 



TAPE CHECK 
TRY 5 TIMES 
START uiAGNOSTIC. 



BACKSPACE TAPE 



IS THERE ANOTHER TAG IN BB 

YES 

HAVE WE EXHAUSTED STAG WORD 

YES» STORE COUNT OF NO* OF TAGS 

STORE 

OLD PERMUTED 

STAG WORD 



GET 

NEXT 

STAG 

WORD 

STORE STAG WORD 

AND 

INITIALIZE NEW STAG WORD 

INCREASE THE 

STAG WORD NO. 



RESET COUNT TO 9 
RESTORE 1 
STORE COUNTER 



F5G31890 
F5G31900 
F5G31910 
F5G31920 
F5G31930 
F5G31940 
F5G31950 
F5G31960 
F5G31970 
F5G31980 
F5G31990 
F5G32000 
F5G32010 
F5G32020 
F5G32030 
F5G32040 
F5G32050 
F5G32060 
F5G32070 
F5G32080 
F5G32090 
F5G32100 
F5G32110 
F5G32120 
F5G32130 
F5G32140 
F5G32150 
F5G32160 
F5G32170 
F5G32180 
F5G32190 
F5G32200 
F5G32210 
F5G32220 
F5G32230 
F5G32240 
F5G32250 
F5G32260 
F5G32270 
F5G32280 
F5G32290 
F5G32300 
F5G32310 
F5G32320 
F5G32330 
F5G32340 
F5G32350 
F5G32360 
F5G32370 
F5G32380 
F5G32390 
F5G32400 
F5G32410 
F5G32420 



r -i I 



00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 



50000 
76700 
60200 
32000 
73400 
50000 
77100 
77100 
32000 
77100 
77100 
60200 
02000 
53400 
50000 
77100 
40000 
10000 
50000 
76700 
62200 
50000 
60100 
53400 
50000 
77100 
77100 
32000 
73400 
50000 
60100 
77777 
00001 
53400 
50000 
60100 
77777 
00001 
50000 
40000 
60100 
02000 
07400 
50000 
60100 
50000 
53400 
60100 
02000 
00003 
00011 
00000 
00000 
00000 



00601 
00002 
00601 
00550 
00000 
00572 
00003 
00003 
00550 
00012 
00012 
00602 
00441 
00567 
06442 
00041 
00315 
00516 
00317 
00022 
06^*3 
00564 
00317 
00550 
00572 
00003 
00003 
00550 
00000 
06444 
00564 
00527 
00517 
00550 
00564 
06441 
00534 
00531 
00564 
00315 
00564 
00346 
00067 
00556 
06447 
00602 
00603 
05061 
00030 
00000 
00000 
00002 
77777 
77777 



BL04 



8L07 

BL09 



BL08 

BL10 
BL11 
BL05 

BL06 



CAL 
ALS 
SLW 
ANA 
PDX 
CAL 
ARS 
ARS 
ANA 
ARS 
ARS 
ORS 
TRA 
LXD 
CLA 
ARS 
AOD 
TNZ 
CLA 
ALS 
STD 
CLA 
STO 
LXD 
CAL 
ARS 
ARS 
ANA 
PDX 
CLA 
STO 
TXI 
TIX 
LXD 
CLA 
STO 
TXI 
TIX 
CLA 
ADD 
STO 
TRA 
TSX 
CLA 
STO 
CLA 
LXD 
STO 
TRA 



2LD3 
2LD9 

TWO 
2AMSK 

RMSK 



BLV06 
2 

BLV06 

2LD3 

0t4 

BLV7 

3»4 

3#4 

2LD3 

10*2 

10*2 

BLV07 

BL03 

BLV4.1 

BBB»1 

33 

ONEA 

BL07 

BLV09 

18 

BBB+1»1 

BLV1 

BLVQ9 

2LD3»2 

3LV7 

3*2 

3»2 

£i_D3 

0»4 

BB6+2»1 

EXC0t4 

BL08+l»lt-l 

BL09#2»1 

2LD3»2 

EXC0.2 

BBB-1»1 

BL11+1*1»-1 

BL10»2tl 

BLV1 

ONEA 

BLV1 

BL3 

SE1»4 

EN2MK 

BBB+5#1 

BLV07 

BLV08t2 

STAG»2 

R 

0»0t3 

0»0f9 

2 

-1 

-1»-1 



EXTRACT TAG 

PERMUTE 

THE 
TAG 



FORM NEW TAG WORD 

GET INDEX OF BB 
IS 

THIS 
A GO N 
NO 

YES» STORE BB NO. 
OF LAST 

GO N ENCOUNTERED 
STORE PRESENT 
BB NO* 
SET COUNT TO 3 



GET PERMUTATION NO. 



PERMUTE 

ENTRANCE-EXIT REQUIREMENTS 

COUNT TO 3 
PLACE PERMUTED 
ENTRANCE-EXIT COND. 
BACK IN BB 

COUNT TO 3 

PREPARE TO DEAL WITH 

WITH NEXT BB 



PUT EDN MARK INTO THE DUMMEY BB 



STORE 

OLD 

STAG WORD 

READ NEXT PART 



ADDRESS MASK 
RIGHT HALF MASK. 



F5G32430 

F5G32440 

F5G32450 

F5G32460 

F5G32470 

F5G32480 

F5G32490 

F5G32500 

F5G32510 

F5G32520 

F5G32530 

F5G32540 

F5G32550 

F5G32560 

F5G32570 

F5632580 

F5G32590 

F5G32600 

F5G32610 

F5G32620 

F5G32630 

F5G32640 

F5G32650 

F5G32660 

F5G32670 

F5G32680 

F5G32690 

F5G32700 

F5G32710 

F5G32720 

F5G32730 

F5G32740 

F5G32750 

F5G32760 

F5G32770 

F5G32780 

F5G32790 

F5G32800 

F5G32810 

F5G32820 

F5G32830 

F5G32840 

F5G32850 

F5G32860 

F5G32870 

F5G32880 

F5G32890 

F5G32900 

F5G32910 

F5G32920 

F5G32930 

F5G32940 

F5G32950 

F5G32960 



<> 



u 



u 



00555 
00556 
00557 
00560 

00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 



•377770077777 
3 77777 7 77777 
00004 4 00000 

-377777000000 

00564 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



00655 00000 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00604 
00000 



SALM 

EN2MK 
BITMK 
LMSK 
EXCO 
BLV1 
BLV2 
BLV3 
BLV4 
BLV5 
BLV6 
BLV7 
BLV8 
BLV9 
BLV01 
BLV03 
BLV04 
BLV05 
BLV06 
BLV07 
BLV08 

BUST 



OCT -377770077777 
PTH -1*-1»-1 

0*4*4 
OCT -377777000000 
BES 3 



MS MASK OUT SXD ANO LXD PRED REULTS 

PUT IN LOCATION OF DUMMEY BB 

MASK TO EXTRACT ONE SXD AND LXD BIT 



BSS PTL2 



THE ENTRANCE-EXIT CONDITIONS PERMUTED 
BBNO. 

INDEX IN BB LIST 
TEST CONSTANT 
INDEX OF BB 

1ST PRED NO. IN NEXT BB 
UST TAG IN NEXT BB 
PERMUTTTION NOS. 
OLD PRED ENTRY 
NEWt PERMUTED* PRED ENTRY 
CURRENT PRED. NO. 

NO. OF STAG WORD* INITIALLY ZERO 
COUNTER TO 9* INITIALLY ZERO 
COUNT OF NO. OF TAGS IN BB 
STAG WORD 

NEW* PERMUTED » STAG WORD 
INDEX OF OLD STAG WORD 
SPACE FOR PATCHES 











00320 




ORG 


C+l 


00320 





76200 





00222 


START 


RTB 


ACTPE 


00321 





70000 





00573 




CPY 


ACV12 


00322 





02000 





00320 




TRA 


START 


00323 





02000 





00330 




TRA 


RDIN 


00324 





02000 





00320 




TRA 


START 


00325 





76400 





00202 


ERR 


BST 


ACTPE 


00326 


2 


00001 


2 


00331 




TIX 


AAC2»2»1 


00327 





07400 


4 


00004 




TSX 


4»4 


00330 


-0 


53400 


2 


00555 


RDIN 


LXD 


3LD3#2 


00331 





76200 





00222 


AAC2 


RTB 


ACTPE 


00332 





70000 





00573 




CPY 


ACV12 


00333 





53400 


1 


00314 




LXA 


ZER0*1 


00334 





70000 


1 


00647 


AAC1 


CPY 


ASC0N»1 


00335 


1 


77777 


1 


00334 




TXI 


AACltl»- 


00336 





07400 


4 


00004 




TSX 


4*4 


00337 





76600 





00333 




IOD 




00340 


-0 


76000 





00012 




RTT 




00341 





02000 





00325 




TRA 


ERR 


00342 





76200 





00222 




RTB 


ACTPE 


00343 





76200 





00222 




RTB 


ACTPE 


00344 





76200 





00222 




RTB 


ACTPE 


00345 





76600 





00333 




IOD 




00346 


-0 


63400 


1 


00527 




SXD 


ACV1»1 



EDITOR RECORD NO. 86 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART 3 
CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO 
N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE. 
C CONTAINS THE BB NO. OF THE GO TO N 

LOCATE THE END OF FILE BEFORE ASSIGN CONSTANTF5G33290 

F5633300 

BACKSPACE TAPE TO TRY AGAIN 
COUNT TO 5 



F5G32970 
F5G32980 
F5G32990 
F5G33000 
F5G33010 
F5633020 
F5G33030 
F5G33040 
F5G33050 
F5G33060 
F5O33070 
F5G33080 
F5G33090 
F5G33100 
F5G33110 
F5G33120 
F5G33130 
F5G33140 
F5G33150 
F5G33160 
F5G33170 
F5G33180 
F5G33190 
F5G33200 
F5G33210 
F5G33230 
F5G33240 
F5G33250 
F5G33260 
F5G33270 
F5G33280 



TO DIAGNOSTIC 



COPY THE EXTRA WORD 



CHECK 



REDUNDANCY BITS 



THERR IS AN ERROR 



O.K. STORE RECORD OF NO. OF ENTRIES 



F5633310 
F5G33320 
F5G33330 
F5G33340 
F5G33350 
F5G33360 
F5G33370 
F5G33380 
F5G33390 
F5G33400 
F5G33410 
F5G33420 
F5G33430 
F5G33440 
F5G33450 
F5G33460 
F5G33470 
F5G33480 
F5G33490 
F5G33500 
F5G33510 



6 1/ 



00347 


-0 


63400 


1 


00541 


SXD 


AC22»1 


00350 





50000 





00317 


CLA 


C 


00351 





56000 





00560 AC15 


LDQ 


ACK1 


00352 





04000 





00520 


TLQ 


AC 16 


00353 





40000 





00315 


ADO 


ONE A 


00354 





07400 


4 


00067 


TSX 


SE1»4 


00355 


-0 


50000 


1 


06442 


CAL 


BBB»1 


00356 





77100 





00022 


ARS 


18 


00357 





62100 





00562 


STA 


ACV3 


00360 





50000 





00317 


CLA 


C 


00361 





07400 


4 


00067 


TSX 


SE1»4 


00362 





50000 





00314 


CLA 


ZERO 


00363 





60100 





00563 


STO 


ACV4 


00364 


-0 


50000 


1 


06442 


CAL 


BBB.l 


00365 





77100 





00022 


ARS 


18 


00366 


-0 


32000 





00552 


ANA 


AMSK 


00367 





60100 





00561 AC13 


STO 


ACV2 


00370 





34000 





00562 


CAS 


ACV3 


00371 





02000 





00373 


TRA 


AAC3 


00372 





02000 





00506 


TRA 


AC 14 


00373 





76700 





00022 AAC3 


ALS 


18 


00374 





07400 


4 


00044 


TSX 


SE6»4 


00375 


-0 


50000 


1 


07555 


CAL 


SUCC»1 


00376 





62100 





00567 


STA 


ACV8 


00377 





40000 





00315 


ADD 


ONEA 


00400 





07400 


4 


00067 


TSX 


SElt4 


0Q401 





50000 


1 


06442 


CLA 


SBB»1 


00402 





62100 





00565 


STA 


ACV6 


00403 





50000 





00314 


CLA 


ZERO 


00404 





60100 





00571 


STO 


ACV10 


00405 





50000 





00567 


CLA 


ACV8 


00406 





07400 


4 


00067 


TSX 


SE1»4 


00407 


-0 


50000 


1 


06442 


CAL 


BBBfl 


00410 


-0 


32000 





00552 


ANA 


AMSK 


00411 





62100 





00570 


STA 


ACV9 


00412 





62100 





00566 AC7 


STA 


ACV7 


00413 





34000 





00565 


CAS 


ACV6 


00414 





02000 





00416 


TRA 


AC4 


00415 





02000 





00444 


TRA 


AC8 


00416 





07400 


4 


00055 AC4 


TSX 


SE5»4 


00417 


-0 


50000 


1 


07337 


CAL 


PRED»1 


00420 


-0 


32000 





00552 


ANA 


AMSK 


00421 





40200 





00317 


SUB 


C 


00422 


-0 


10000 





00427 


TNZ 


AC5 


00423 


-0 


50000 


1 


07337 


CAL 


PRED»1 


00424 


-0 


60200 





00563 


ORS 


ACV4 


00425 


-0 


50000 





00554 


CAL 


NTMSK 


00426 





32000 


1 


07337 


ANS 


PRED»1 


00427 


-0 


50000 


1 


07337 AC5 


CAL 


PRED«1 


00430 


-0 


63400 


1 


00572 


SXD 


ACV11»1 


00431 





07400 


4 


00067 


TSX 


SE1»4 


00432 





50000 


1 


06442 


CLA 


BBB»1 


00433 





77100 





00041 


ARS 


33 


00434 





40000 





00315 


ADD 


ONEA 



6ET BB NO. OF 1ST GO TO N 
WAS THIS THE LAST GO TO N 
NO 

FIND NO. OF 1ST SUCC IN NEXT BB 



CLEAR THE COMBINED SXDD CASE 

FIND THE NO, OF 1ST SUCC IN THIS BB 



IS THIS SUCC IN SAME BB 

YES 

NO 

YES GET BB NO. OF SUCESSOR 



FIN NO. OF 1ST PRED ENTRY NEXT BBB 



PRESET COMBINED LXD CASE TO 
FIND NO. OF 1ST PRED IN THIS BB 



RECORD 1ST PRED FOR FUTURE USE 

IS THIS PRED IN SAME BB 

NO 

IS THIS THE TRANSFER FROM CURRENTLY CONS 

ED GO TO NP 



IF NOT SKIP THE ORING OF SXD CASE 

OR THE SXD CASE INTO COMBINED SXD CASE 



IS THE BB WHICH IS PREDECESSOR 
A GO TO N 



F5G33520 
F5G33530 
F5G33540 
F5G33550 
F5G33560 
F5G33570 
F5G33580 
F5G33590 
F5G33600 
F5G33610 
F5G33620 
F5G33630 
F5G33640 
F5G33650 
F5G33660 
F5G33670 
F5G3^6«0 
F5G33690 
F5G33700 
F5G33710 
F5633720 
F5G33730 
F5G33740 
F5G33750 
F5G33760 
F5G33770 
F5G33780 
F5G33790 
F5G33800 
F5G33810 
F5G33820 
F5G33830 
F5G33840 
F5G33850 
F5G33860 
F5G33870 
F5G33880 
F5G33890 
F5G33900 
IDEREF5G33910 
F5G33920 
F5G33930 
F5G33940 
F5G33950 
F5G33960 
F5G33970 
F5G33980 
F5G33990 
F5G34000 
F5G34010 
F5G34020 
F5G34030 
F5G34040 
F5G34050 



u 



(J 



00435 


-0 


10000 





00441 




TNZ 


AC6 


00436 


-0 


53400 


2 


00572 




LXD 


ACV11»2 


00437 


-0 


50000 


2 


07337 




CAL 


PRED»2 


00440 


-0 


60200 





00571 




ORS 


ACV10 


00441 





50000 





00566 


AC6 


CLA 


ACV7 


00442 





40000 





00315 




ADO 


ONEA 


00443 





02000 





00412 




TRA 


AC7 


00444 


-0 


50000 





00571 


AC8 


CAL 


ACV10 


00445 


-0 


32000 





00553 




ANA 


TMSK 


00 446 





10000 





00503 




TZE 


AC 12 


00447 





50000 





00567 




CLA 


ACV8 


00450 





07400 


4 


00067 




TSX 


SE1#4 


00451 





56000 


1 


06442 




LDQ 


BBB»1 


00452 


-0 


77300 





00024 




RQL 


20 


00453 





16200 





00455 




TOP 


AC18 


00454 





02000 





00503 




TRA 


AC12 


00455 





50000 





00557 


AC18 


CLA 


LT1 


00456 


-0 


60200 


1 


06442 




ORS 


BBBtl 


00457 





50000 





00570 




CLA 


ACV9 


00460 





62100 





00566 


AC11 


STA 


ACV7 


00461 





34000 





00565 




CAS 


ACV6 


00462 





02000 





00464 




TRA 


AC 9 


00463 





02000 





00531 




TRA 


AC19 


00464 





07400 


4 


00055 


AC9 


TSX 


SE5»4 


00465 


-0 


63400 


1 


00572 




SXD 


ACV11.1 


00466 





50000 


1 


07337 




CLA 


PREDf 1 


00467 





07400 


4 


00067 




TSX 


SE1»4 


00470 





50000 


1 


06442 




CLA 


BBB»1 


00471 





77100 





00041 




ARS 


33 


00472 





40000 





00315 




ADD 


ONEA 


00473 


-0 


10000 





00500 




TNZ 


AC10 


00474 


-0 


53400 


2 


00572 




LXD 


ACVllt2 


00475 





50000 





00571 




CLA 


ACV10 


00476 


-0 


32000 





00553 




ANA 


TMSK 


00477 


-0 


60200 


2 


07337 




ORS 


PRED»2 


00500 





50000 





00566 


AC10 


CLA 


ACV7 


00501 





40000 





00315 




ADD 


ONEA 


00502 





02000 





00460 




TRA 


AC11 


00503 





50000 





00561 


AC12 


CLA 


ACV2 


00504 





40000 





00315 




ADD 


ONEA 


00505 





02000 





00367 




TRA 


AC 13 


00506 





50000 





00317 


AC14 


CLA 


C 


00507 





07400 


4 


00067 




TSX 


SE1.4 


00510 





50000 





00563 




CLA 


ACV4 


00511 





76700 





00017 




ALS 


15 


00512 





63000 


1 


06443 




STP 


BBB+lf 1 


00513 





50000 


1 


06443 




CLA 


BBB+1»1 


00514 





77100 





00022 




ARS 


16 


00515 


-0 


32000 





00552 




ANA 


AMSK 


00516 





60100 





00317 




STO 


C 


00517 





02000 





00351 




TRA 


AC15 


00520 





76600 





00222 


AC16 


WTB 


ACTPE 


00521 





53400 


1 


00314 




LXA 


ZER0,1 


00522 


-0 


53400 


2 


00527 




LXD 


ACV1»2 



YES» OR THE LXD XCASE INTO THE 
COMBINED LXD CASE 



IS THE COMBINED LXD CASE ZERO 



N0» HAS THIS BB ALREADY BEEN 

CONSIDERED 

AS A SUCCESSOR TO 

A 60 TO N 



RECORD THAT THIS BB HAS BEEN CONSIDERED AS 
ECT..PE PREPARE TO SCAN ALL PRED ENTRYS 

IS THIS PRED IN SAME BB 

NO 

DETERMINE IF THE BB WHICH 

IS THE PREDECESSOR OF THIS ONE 

IS A GO TO N 



IT IS A GO TO N 
REPLACE LXD CASE BY THE 
COMBINED LXD CASE 

ARRANGE TO TREAT NEXT PRED ENTRY 



ARRANGE TO TREAT NEXT SUCC ENTRY 

STORE COMBINED 

SXDCASE IN PREFIX 

OF 2ED WORD OF BBB ENTRY 



GET NEXT GO TO N NUMBER 



WRITE ASSIGN CONSTANTS BACK ON TAPE 



F5G34060 
F5G34070 
F5G34080 
F5G34090 
F5G34100 
F5G34110 
F5G34120 
F5G34130 
F5G34140 
F5G34150 
F5G34160 
F5G34170 
F5G34180 
F5G34190 
F5G34200 
F5G34210 
F5G34220 
F5G34230 
F5G34240 
F5G34250 
F5G34260 
F5G34270 
F5634280 
F5G34290 
F5G34300 
F5G34310 
F5G34320 
F5G34330 
F5G34340 
F5G34350 
F5G34360 
F5G34370 
F5G34380 
F5G34390 
F5G34400 
F5G34410 
F5G34420 
F5G34430 
F5G34440 
F5G34450 
F5G34460 
F5G34470 
F5G34480 
F5G34490 
F5G34500 
F5G34510 
F5G34520 
F5G34530 
F5G34540 
F5G34550 
F5G34560 
F5G34570 
F5G34580 
F5G34590 



• -: J 



yr 



00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 



70000 0- 00573 
-3 00000 2 00030 

70000 1 00647 AC17 

1 77777 1 00527 

-3 00000 1 00030 ACV1 

02000 00525 
50000 00567 AC19 
07400 4 00067 
53400 2 00314 
50000 1 06447 AC25 
34000 2 00647 AC23 
02000 00540 
02000 00543 

-3 00000 2 00542 AC20 
-3 00000 2 00503 AC22 

1 77777 2 00535 AC21 
-0 50000 00571 AC24 
-0 32000 00553 

77100 00005 

40000 00567 

36100 00556 

60200 2 00647 

02000 00534 

00000 77777 AMSK, 

00000 7 00000 TMSK 

-377770777777 NTMSK 
00005 00000 3LD3 

+150000000000 lxdc 
00000 1 00000 LT1 

+000000077776 ACK1 
00000 00000 AC/2 
00000 00000 - .-;v3 
00000 OOuCO ACV4 
00000 00000 ACV5 
00000 00000 ACV6 
00000 00000 ACV7 
00000 00000 ACV8 
00000 00000 ACV9 
00000 00000 ACV10 
00000 00000 ACV11 
00000 00000 ACV12 
00000 00000 ACV13 
00647 ASCON 



00317 
00320 
00321 
00322 



00317 

00000 00003 L3 

00000 00004 L4 

00000 00007 17 

00000 00023 L19 



CPY ACV12 
TXL R»2»0 
CPY ASCON »1 
TXI ACVl»lt-l 
TXL R»1»SET 
TRA AC17 
CLA ACV8 
TSX SE1»4 
LXA ZER0»2 
CLA BBB+5»1 
CAS ASCON » 2 
TRA AC20 
TRA AC24 
TXL AC21t2tO 
TXL AC12»2#SET 
TXI AC23#2»-1 
CAL ACV10 
ANA TMSK 
ARS 5 
ADD ACV8 
ACL LXDC 
SLW ASCON t 2 
TRA AC25 



IF NO ASSIGN CONST. t 60 TO NEXT PART 



HTR 
HTR 
OCT 

OCT 

OCT 



-1 

Q.-l 

777770777777 

0*0*5 

150000000000 

Of 1 

77776 



IS THIS ASSIGN CONST* EQUAL TO THE 

LOCATION OF 1ST INST IN BB 

YES 



REPLACE ASSIGN CONST • BY 
LOCATION SYMBOL 



NEW 



THE NUMBER IDENTIFYING THE LQC. OF AN LXD 



NO. OF CURRENT SUCC. OF THIS BB IN ADDR. 
NO* OF 1ST SUCC IN NEXT BB IN ADDR 
COMBINED SXD CASE LAST OCTAL DIGIT IN DECR 
NO. OF CURRENT PRED IN ADDR 
NO. OF 1ST PRED IN NEXT BB IN ADDR 

IN ADDR 



MO. OF CURRENT PRED IN THIS BB 
BB NO, OF SUCCESSOR IN ADDR 
NO. OF 1ST PRED IN THE SUCCESSOR BB 
THE COMBINED LXD CASE 

TEMP. STORE FOR PRED TABLE INDEX AT AC5 
EXTRA WORD FROM ASSIGN CONSTANT RECORD 
TEMP. STORE FOR LOCATION OF 1ST INST. IN 
BES PTL3 SPACE FOR PATCHES 
EDITOR RECORD NO. 88 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART 4 
COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS 
CONSTANTS 
ORG C 
3 
4 
7 
19 



F5G34600 
F5G34610 
F5G34620 
F5G34630 
F5G34640 
F5634650 
F5G34660 
F5G34670 
F5G34680 
F5G34690 
F5G34700 
F5G34710 
F5G34720 
F5G34730 
F5G34740 
F5G34750 
F5634760 
F5G34770 
F5634780 
F 54*34790 
F5G34800 
F5G34810 
F5G34820 
F5G34830 
F5G34840 
F5G34850 
F5G34860 
F5G34870 
F5G34880 
F5G34890 
F5G34900 
F5G34910 
F5G34920 
F5G34930 
F5G34940 
F5G34950 
F5G34960 
IN ADDRF5G34970 
F5G34980 
F5G34990 
F5G35000 
F5G35010 
F5G35020 
F5G35030 
F5G35040 
F5G35060 
F5G35070 
F5G35080 
F5G35090 
F5635100 
F5G35110 
F5G35120 
F5G35130 
F5G35140 



BB 



iM 



u 



(J 





00316 


LD1 


00323 


00002 00000 


LD2 


00324 


00003 00000 


LD3 


00325 


00004 00000 


L04 


00326 


00007 00000 


L07 


00327 


00010 00000 


LD8 


00330 


00011 00000 


LD9 


00331 


00014 00000 


LD12 


00332 


00000 7 00000 


LT7 


00333 


00000 77754 


LM20 


00334 


00000 77774 


LM4 


00335 


77777 00000 


DECMK 


00336 


3 77777 7 77777 


ENDMK 


00337 


00000 77777 


ADDMK 


00340 


+000000777770 


STMSK 


00341 


00007 7 00000 


PRMK 


00342 


00000 7 77777 


TAGMK 


00343 


-3 77777 00000 


LFTMSK 




00343 


SMK3 


00344 


634743000000 


LTPL 


00345 


436747000000 


LLXP 


00346 


627045000000 


LSYN 


00347 


242524000000 


LDED 


00350 


635121000000 


LTRA 


00351 


636267000000 


LTSX 


00352 


226262000000 


L8SS 


00353 


+076225000000 


LPSE 


00354 


+060000000000 


GSYM 


00355 


00004 00004 


T4SYM 


00356 


00000 00004 




00357 


00000 00002 




00360 


00000 00001 




00361 


00000 00000 


VSTAG 


00362 


00000 00001 


RECSC 


00363 


02000 00000 


LCOUT 


00364 


+035121000000 




00365 


+041104000000 




00366 


-033642000000 




00367 


-024000000000 




00370 


+027642000000 




00371 


-007100000000 




00372 


-032154000000 




00373 


+031316000000 


LNTOP 


00374 


+035121000000 




00375 


+001622000000 




00376 


-031772000000 




00377 


+031400000000 


LTROP 


00400 


-370000000000 


FSTLT 


00401 


-230000000000 


FSTT 


00402 


+170000000000 


PCC 


00403 


-300000000000 


PFXMK 


00404 


+000770000000 


XXPSX 


00405 


+000160000000 


XX16X 


00406 


+000360000000 


XX360 



SYN ONED 

0*0*2 

0*0*3 

0*0*4 

0*0*7 

0*0*8 

0*0*9 

0*0*12 

0*7 

-20 

-4 

0»0»-l 
PTH -1»-1»^1 

-1 
OCT 777770 

0*7*7 

-1»-1 
MTH 0*0»-l 
SYN LFTMSK 
BCD 1TPL000 
BCD 1LXPO00 
BCD 1SYN000 
BCD 1DED000 
BCD 1TRA000 
BCD 1TSXOO0 
BCD 18SS000 
OCT 76225000000 
OCT 60000000000 
PZE 4*0*4 

4 

2 

1 
PZE 
HTR RECNO 
TRA - 

OCT 35121000000 
OCT 41104000000 
OCT -33642000000 
OCT -24000000000 
OCT 27642000000 
OCT -7100000000 
OCT -32154000000 
OCT 31316000000 
OCT 35121000000 
OCT 1622000000 
OCT -31772000000 
OCT 31400000000 
OCT -370000000000 
OCT -230000000000 
OCT 170000000000 
OCT -300000000000 
OCT 770000000 
OCT 160000000 
OCT 360000000 



DECREMENT MASK 



MASK FOR PRED RESULTS 
MASK FOR TAU- TAGS 



BSS IN BCD. 

GARBAGE SYMBLE 

TAG 4 AND RELATIVE PART 4 
4 NUMBERS TO CONVERT S-TAG 



ADDR* NO* OF RECS. BROUGHT IN » C»I*T* 

TRANSFER TO EXIT ROUTINE 

TRA OP CODE 

PSE-TRA 

DCT-PSE 

RTT-DCT 

MSE-RTT 

TZE-MSE 

HPR-TZE 

TSX-HPR 

TXL-TRA 
HPR-TXL 
TTR-HPR 



MEANS LOCATION OF THIS INST* 
CONSTANTS TO TEST PSE ADDR* 



F5G35150 

F5G35160 

F5G35170 

F5G35180 

F5G35190 

F5G35200 

F5G35210 

F5G35220 

F5G35230 

F5G35240 

F5G35250 

F5G35260 

F5G35270 

F5G35280 

F5G35290 

F5G35300 

F5G35310 

F5G35320 

F5G35330 

F5G35340 

F5G35350 

F5G35360 

F5G35370 

F5G35380 

F5G35390 

F5G35391 

F5635400 

F5G35410 

F5G35420 

F5G35430 

F5G35440 

F5G35450 

F5G35460 

F5G35470 

F5G35480 

F5G35490 

F5G35500 

F5G35510 

F5G35520 

F5G35530 

F5635540 

F5G35550 

F5G35560 

F5G35570 

F5G35580 

F5G35590 

F5G35600 

F5G35610 

F5G35620 

F5G35630 

F5G35640 

F5G35650 

F5G35660 

F5G35670 



/ 



& 



J 8 »/ 



00407 


+000000777777 


SHK1 


OCT 


777777 








00320 


SHK2 


SYN 


L4 


00410 


+160000000000 


SIK2 


OCT 


160000000000 


00411 


626724000000 


SIK3 


BCD 


1SXD000 








00411 


LSXD 


SYN 


SIK3 








00410 


IDSXD 


SYN 


SIK2 


00412 


00000 





00144 


SKK1 




LCLST 








00350 


SLK1 


SYN 


LTRA 


00413 


+150000000000 


SMK1 


OCT 


150000000000 


00414 


436724000000 


SMK2 


BCD 


1LXD000 








00414 


LLXD 


SYN 


SMK2 


00415 


+140000000000 


SMK4 


OCT 


140000000000 








00413 


SLKZ 


SYN 


SMK1 








00413 


IDLXD 


SYN 


SMK1 








00415 


1DTA6 


SYN 


SMK4 


00416 


-000000000000 


Z1K3 


OCT 


-0 








00416 


MZE 


SYN 


Z1K.3 


00417 


77776 





OOOOO 


Z2K1 




0*0»-2 


0OA2G 


77772 





OOOOO 






O»0»-6 


00421 


77766 





OOOOO 






0*0»-10 


00422 


00007 





00003 


Z2K2 


HTR 


3*0*7 


00423 


00000 





00001 


CASE 


HTR 


1 


00424 


00000 





00002 






2 


00425 


00000 





00004 






4 


00426 


00000 





00003 






3 


00427 


00000 





00005 






5 


00430 


00000 





00006 






6 


00431 


00000 





00007 






7 


00432 


+000032212110 


Z2K3 


OCT 


32212110 


00433 


+000030000000 


Z2K4 


DEC 


3B14 


00434 


ooooo 





00007 


Z2K5 


HTR 


7 


00435 


ooooo 





77777 


Z4K1 




-1 


00436 


ooooo 





OOOOO 


Z4K2 







00437 


ooooo 





01000 


LNSXD 




N5XD*4 


00440 


77770 





OOOOO 


Z7K1 




0»0*-8 


00441 


77764 





OOOOO 






Q*0»-12 


00442 


77760 





OOOOO 






0»0t-16 

THE DEFINITION 


00443 


-0 00001 





OOOOO 


BBNO 


MZE 


0*0*1 


00444 


OOOOO 





OOOOO 


NXTLOC 






00445 


OOOOO 





OOOOO 


0UTBX 






00446 


OOOOO 





OOOOO 


ERRBX 






00447 


ooooo 





OOOOO 


BBOX 






00450 


ooooo 





OOOOO 


BB0X1 






00451 


ooooo 





OOOOO 


ABOX 






00452 


ooooo 





OOOOO 


TAG 






00453 


ooooo 





OOOOO 


STAGN1 






00454 


ooooo 





OOOOO 


STAGN2 






00455 


ooooo 





ooooo 


9CNT 






00456 


-000000000001 


STGWD 


DEC 


-1 


00457 


ooooo 





ooooo 


TMP10 






00460 


o ooooo 





ooooo 


CIND 






00461 


-0 ooooo 





ooooo 


CPIND 


MZE 


+ 



CONST. TO EXTRACT R. HALF WORD 

I.Dt FOR LOCATION OF SXD 
SXD IN BCD 



TRA IN BCD 

I.D. FOR LOCATION OF LXD 

LXD IN BCD 

FOR SMK3 SEE LFTMSK 
I.D. FOR TAU-TAG 



THE INDEXES NEEDED TO REFER 
TO THE BOTTOM POSITIONS 
IN LlSTlf LIST2* LIST3* RESPT. 
NO. OF LISTS* NO. OF CASES 



CONST. TO DETERMINE NO. 1 S IN 3 BITS 



INDEX OF ST SXD CASE 

NO. OF SXD IN SXD LIST 

INDEAXES OF ASSOCIATED SXD CASES 

OF TEMP. AND VARIABLE STORAGE LOCATIONS 
DECR.* CURRENT BB NO. BEING SCANNED 
LOCATUON OF 1ST INST OF THE BB 
TEMP. STORAGE OF RETURN INDEXES 
ERROR INDICATOR 

TEMP. STORE FOR INDEXES* MAINLY 2 
ANOTHER OF SAME 
TEMP. STORE » INDEX 1 
TAU-TAG FROM AN INST. 

WORD FROM STAG SHIFTED LEFT MULTIPLE OF I 
SAME WORD SHIFTED BY ONES 
COUNT TO 9* 9 TAGS IN STAG WORD 
NO. OF STAG ENTRY BEING CONSIDERED 
TEMP. STORE » LASTS ONLY 10 INSTRS. 
+ OR - MEANS IR4 ISNT OR IS NECESSARY 

OR - MEANS COMPILE/DONT COMPILE 



F5G35680 

F5G35690 

F5G35700 

F5G35710 

F5G35720 

F5G35730 

F5G35740 

F5G35750 

F5G35760 

F5G35770 

F5G35780 

F5G35790 

F5G35800 

F5G35810 

F5G35820 

F5G35830 

F5G35S40 

F5G35850 

F5G35860 

F 5635 8 70 

F5G35880 

F5G35890 

F5635900 

F5G35910 

F5G35920 

F5G35930 

F5G35940 

F5G35950 

F5G35960 

F5G35970 

F5G35980 

F5G35990 

F5G36000 

F5G36010 

F5G36020 

F5G36030 

F5G36040 

F5636050 

F5G36060 

F5636070 

F5G36080 

F5G36090 

F5G36100 

F5G36110 

F5G36120 

F5G36130 

F5G36140 

F5G36150 

F5G36160 

F5G36170 

F5G36180 

F5G36190 

F5G3620O 

F5G36210 



u 



u 



00462 





00000 





ooooo 


AR61 






00463 





00000 





ooooo 


MBOX 






00464 





00000 





ooooo 


SUCNO 






00465 





00000 





ooooo 


SXDO 






00466 





00000 





ooooo 


SXD1 






00467 





00000 





ooooo 


SXD2 






00470 





00000 





ooooo 


SXD3 






00471 





00000 





ooooo 


SADV1 






00472 





00000 





ooooo 


SADV2 






00473 





00000 





ooooo 


SADV3 






00474 





00000 





ooooo 


SADV4 






00475 





00000 





ooooo 


SADV5 






00476 





00000 





ooooo 


SHV1 






00477 





00000 





ooooo 


SHV2 






00500 





00000 





ooooo 


SIV1 






00501 





ooooo 





ooooo 


SIV2 






00502 





00000 





ooooo 


SIV3 






00503 





ooooo 





ooooo 


SIV4 






00504 





ooooo 





ooooo 


SIV5 






00505 





ooooo 





ooooo 


SIV6 






00506 





ooooo 





ooooo 


SJV1 






00507 





ooooo 





ooooo 


SJV2 






00510 





ooooo 





ooooo 


SJV3 














00655 


CLST 


BES 


LCLST 


00655 





00144 





ooooo 


SKV1 




O.O.LCLST 
5K.V1 COM 


00656 





ooooo 





ooooo 


SLV1 






00657 





ooooo 





ooooo 


SLV2 






00660 





ooooo 





ooooo 


SLV3 






00661 





ooooo 





ooooo 


SMV1 






00662 





ooooo 





ooooo 


SMV2 






00663 





ooooo 





ooooo 


SMV3 






00664 





ooooo 





ooooo 


SMV4 






00665 





ooooo 





ooooo 


Z1V2 






00666 





ooooo 





ooooo 


Z1V3 






00667 





ooooo 





ooooo 


Z1V5 






00670 





ooooo 





ooooo 


Z1V8 






00671 





ooooo 





ooooo 


Z2V1 






00672 





ooooo 





ooooo 








00673 





ooooo 





ooooo 








00674 





ooooo 





ooooo 


Z2V2 






00675 





ooooo 





ooooo 


Z2V3 














00676 


LIST1 


BSS 


4 










00702 


LIST2 


BSS 


4 










00706 


LIST3 


BSS 


4 










00715 


LLIND 


BES 


3 


00715 





ooooo 





ooooo 


Z4V1 






00716 





ooooo 





ooooo 


Z5V1 






00717 





ooooo 





ooooo 


Z7V1 






00720 





ooooo 





ooooo 


Z7V2 














00735 


NOINS 


BES 


12 










01101 


INST 


BES 


RECNO*100 


01101 


-0 


ooooo 





ooooo 

01102 


SXST 


MZE 
BSS 


3 



U 1ST ARGUMENT FOR SUBROUTINES 

NO. OF TRANSFERS IN 60 TO VECTOR 

NO. OF A SUCCESSOR* GOV ROUTINE 

LXO CASE IN DECR.t PRED NO. IN ADDR. 

3 TAU TAGS WHICH MUST BE STORED 

FROM IR1»2«3 

RESPT. 

RETURN INDEX 

LOCATION OF 1ST INST IN SUCCESSOR BB 

NO. OF CURRENT PRED 

NO. OF 1ST PRED IN SUCCESSOR BB 

THE SUCCESSOR BB NO. 

RETURN INDEX 

ENTRY FROM PRED. 

INDEX OF SXD CASE RELATIVE TO SXST 

RETURN INDEX 

LOCATION OF 1ST INST. IN SXD GROUP 

TEMP. STORE 

STORE FOR INDEX OF TAU TAG IN SXD CASE 

STOER FOR THE TAG 

LXD CASE IN DECR. 

RETURN INDEX 

THE NEW LIST OF COMPILED INST. 
INDEX FOR NEXT ENTRY IN CLST 
■ADY INITIALIZED 
RETURN INDEX 

LOCATION TO BE ATTACHED TO TRA 
+ OR - MEANS ISNT OR IS HANGING TRAO 
RETURN INDEX 
TAG TO BE COMPILED 
STORE INDEX OF QUANTITY IN LIST 
LOCATION ♦ TEMP. STORE 
NO* OF 1ST PRED. IN NEXT BB 
NO. OF PRED BEING CONSIDERED 
THE CASES 

THE LOC. OF 1ST PRED IN BB. USED IN Z4 
IN DECREMENTS. THE INDEXES 
THE TOP ENTRIES 
IN THE 3 LXD LISTS 

IN ADDR.f NO. OF IS IN DIFFERENCE 
IN DECR.» INDEX OF LIST GIVING MIN. DIFF 



+ OR - MEANS LIST NOT TO BE OR TOBE COMP 

TEMP. STORE » LXD CASE IN ADDR. 

INDEX IN SYN TABLE 

INDEX OF LIST 

+ OR - MEANS 1ST OR 2ED TIME THRU 

BLOCK FOR 3 EXTRA COMPILED INST. 

THE BLOCK FOR THE COMPILED INSTR 

- OR + MEANS NO SEQUENTIAL TRANSFER OR S 



F5G36220 
F5G36230 
F5G36240 
F5G36250 
F5G36260 
F5636270 
F5G36280 
F5G36290 
F5G36300 
F5G36310 
F5G36320 
F5G36330 
F5G36340 
F5G36350 
F5G36360 
F5G36370 
F5G36380 
F5G36390 
F5G36400 
F5G36410 
F5G36420 
F5G36430 
F5G36440 
F5G36450 
F5G36460 
F5G36470 
F5G36480 
F5G36490 
F5G36500 
F5G36510 
F5G36520 
F5G36530 
F5G36540 
F5G36550 
F5G36560 
F5G36570 
F5G36580 
F5G36590 
F5G36600 
F5G36610 
F5G36620 

ERENCF5G36630 
F5G36640 
F5G36650 
F5G36660 

ILED F5G36670 
F5G36680 
F5G36690 
F5G36700 
F5G36710 
F5G36720 
F5G36730 

. T. F5G36740 
F5G36750 



a v 



02125 -0 00000 



01105 SXASO 
01111 SXAS1 
01115 SXAS2 
01121 SXAS3 
01125 SXAS 
00000 SYN 



02126 


-0 


63400 


4 


00471 


SAD 


02127 


-0 


32000 





00337 




02130 





60100 





00475 




02131 





07400 


4 


00067 




02132 





50000 


1 


06447 




02133 





60100 





00472 




02134 





50000 


1 


06442 




02135 


-0 


32000 





00337 




02136 





60200 





00474 




02137 





60200 





00473 


SAD1 


02140 





07400 


4 


00055 




02141 





50000 


1 


07337 




02142 


-0 


32000 





00337 




02143 





40200 





00462 




02144 





10000 





02150 




02145 


-0 


50000 





00473 




02146 





40000 





00315 




02147 





02000 





02137 




02150 


-0 


50000 


1 


07337 


SA02 


02151 


-0 


32000 





O0326 




02152 





10000 





02160 




02153 





50000 





00473 




02154 





40200 





00474 




02155 





76700 





00012 




02156 





40000 





00410 




02157 





02000 





02165 




02160 





50000 


1 


07337 


SAD3 


02161 


-0 


32000 





00332 




02162 





10000 





02170 




02163 





77100 





00005 




02164 





40000 





00413 




02165 





40000 





00475 


SAD6 


02166 


-0 


53400 


4 


00^71 


SAD5 


02167 





02000 


4 


00001 




02170 


-0 


50000 





00472 


SAD4 


02171 





02000 





02166 




02172 





50000 





00461 


SCMI 


02173 





12000 





02206 




02174 


-0 


63400 


4 


00457 




02175 





50000 


2 


01101 




02176 





07400 


4 


02367 





BSS 
BSS 
BSS 
BSS 



THE SXD INST. 



ASSOCIATED WITH SEQUENTIAL TRANSFER 
ASSOCIATED WITH LXD CASE 
WITH 1ST LXD LIST 
2ED LIST 
3RD 
BSS 4*NSXD THE LIST OF SXD INST. 

MZE SYN CARD TABLE STORED BACKWARD 

WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF ARG1 AND BBNO. 



F5G36760 
F5G36770 
F5636780 
F5G36790 
F5G36800 
F5G36810 
F5G36820 
F5G36830 



OFA SUCCESSOR BB IN ADDR. OF AC. SAD FIGURES OUT WHAT THE ADF5G36840 
DRESS OF CORRESPONDING TRANSFER INST. SHOULD BE AND RETURNS F5G36850 



NO. 



WITH THE ADDR IN LOGICAL AC 
SXD SADV1.4 STORE RETURN 

ANA ADDMK STORE THE SUCC. 

STO SADV5 
TSX SE1»4 
CLA BBB+5»1 
STO SADV2 
CLA BBB.l 
ANA ADDMK. 
SLW SADV4 
SLW SADV3 
TSX SE5.4 
CLA PRED.l 
ANA ADDMK 
SUB ARG1 
TZE SAD2 
CAL SADV3 
ADD ONEA 
TRA SAD1 
CAL PREDfl 
ANA LD7 
TZE SAD3 
CLA SADV3 
SUB SADV4 
ALS 10 
ADD IDSXD 
TRA SAD6 
CLA PRED»1 
ANA LT7 
TZE SAD4 
ARS 5 
ADD IDLXD 
ADD SADV5 
LXD SADV1.4 
TRA lf4 
CAL SADV2 
TRA SAD5 

THIS ROUTINE COMPILES CURRENT 

INDICATES IT SHOULD BE 
CLA CPIND SHOULD INST. BE COMPILED 

TPL SCMI1 

SXD TMP10.4 YES* COMPILE THE INST 

CLA INST. 2 
TSX SK.4 



IS THIS THE CORRECT 
PRED ENTRY 

NO. TRY NEXT RETURN 



IS THE SXD CASE 

YES 

NO. FORM THE SYMBOLIC ADDR. 

AS ID FOR SXD PLUS NO. OF PRED WITHIN 

THE BB * 1024 PLUS BB NO. 



IS THE LXD CASE ZERO 



NO. FORM TH SYMBOLIC ADDR. 

AS 1024* LXD CASE PLUS BB NO. PLUS 

I. D. FOR AN LXD 



INST) IF INDICATOR IN CPIND 



F5G36860 
F5G36870 
F5G36880 
F5G36890 
F5G36900 
F5G36910 
F5636920 
F5G36930 
F5G36940 
F5G36950 
F5G36960 
F5G36970 
F5G36980 
F5G36990 
F5G37000 
F5637010 
F5G3702O 
F5G37030 
F5G37040 
F5G37050 
F5G37060 
F5G37070 
F5G37080 
F5G37090 
F5G37100 
F5G37110 
F5G37120 
F5G37130 
F5G37140 
F5G37150 
F5G37160 
F5G37170 
F5G37180 
F5G37190 
F5G37200 
F5G37210 
F5G37220 
F5G37230 
F5G.37240 
F5G37250 
F5G37260 
F5G37270 
F5G37280 
F5G37290 



u 



u 



02177 





50000 


2 


01100 


02200 





07400 


4 


02367 


02201 





50000 


2 


01077 


02202 





07400 


4 


02367 


02203 





50000 


2 


01076 


02204 





07400 


4 


02367 


02205 


-0 


53400 


4 


00457 


02206 


-0 


76000 





00003 SCMI1 


02207 





60100 





00461 


02210 





02000 


4 


00001 


02211 


-0 


63400 


4 


00476 SH 


02212 





53400 


4 


00320 


02213 





56000 





00314 


02214 


-0 


60000 


4 


00471 SHI 


02215 


2 


00001 


4 


02214 


02216 





62100 





00465 


02217 





07400 


4 


00055 


02220 





50000 


1 


07337 


02221 





60100 





00477 


02222 





07400 


4 


00067 


02223 


-0 


53400 


4 


00324 


02224 





56000 





00477 SH2 


02225 


-0 


77300 


4 


00022 


02226 





16200 





02232 


02227 





50000 


1 


06444 


02230 


-0 


32000 





00342 


02231 





60100 


4 


00471 


02232 


1 


77777 


1 


02233 SH3 


02233 


2 


00001 


4 


02224 


02234 


-0 


50000 





00477 SH4 


02235 


-0 


32000 





00332 


02236 





76700 





00003 


02237 





62200 





00465 


02240 


-0 


53400 


4 


00476 


02241 





02000 


4 


00001 


02242 


-0 


63400 


4 


00501 SI 


02243 


-0 


63400 


1 


00500 


02244 





07400 


4 


02426 


02245 


-0 


50000 





00443 


02246 





77100 





00022 


02247 





60100 





00657 


02250 





07400 


4 


00067 


02251 





50000 


1 


06442 


02252 


-0 


32000 





00337 


02253 





60100 





00503 


02254 


-0 


53400 


1 


00500 


02255 





50000 


1 


01101 


02256 


-0 


32000 





00337 


02257 





40200 





00503 


02260 





76700 





00012 


02261 





40000 





00657 


02262 





40000 





00410 



CLA INST-1.2 
TSX SK#4 
CLA INST-2#2 
TSX SK»4 
CLA INST-3»2 
TSX SK»4 
LXD TMP10»4 
SSM 

STO CPIND 
TRA 1»4 

DETERMINE 
SXD SHV1»4 
LXA SHK2#4 
LDQ ZERO 
STQ SXD0+4»4 
TIX SH1»4»1 
STA SXDO 
TSX SE5*4 
CLA PRED*1 
STO SHV2 
TSX SE1»4 
LXD LD3»4 
LDQ SHV2 
RQL 18 #4 
TOP SH3 
CLA BBB+2»1 
ANA TAGMK. 
STO SXDl+3»4 
TXI SH3+1»1»-1 
TIX SH2»4»1 
CAL SHV2 
ANA LT7 
ALS 3 
STD SXDO 
LXD SHV1«4 
TRA 1»4 

COMPILE AN 
SXD SIV2»4 
SXD SIV1»1 
TSX SL1»4 
CAL BBNO 
ARS 18 
STO SLV2 
TSX SE1»4 
CLA BBB#1 
ANA ADDMK. 
STO SIV4 
LXD SIVltl 
CLA SXST»1 
ANA ADDMK 
SUB SIV4 
ALS 10 
ADD SLV2 
ADD SIK2 



RECORD INST SHOULD BE COMPILED 

AN SXD CASE SUBROUTINE 
STORE RETURN 
CLEAR 
THE 
SXD 

POSITIONS 0-3 
STORE THE PRED NO. 
GET INDEX OF PRED 
GET AND 

STORE PRED ENTRY 
GET INDEX OF BBB TABLE ENTRY 
NO» SET COUNT TO 3 
IS 

SXD REQUIRED 
FOR THIS I*R* 
YES* GET AND 
EXTRACT THE 
EXIT CONDITIONS 
DOWN THE EXIT CONDITIONS 
COUNT TO 3 
GET 

AND STORE 
LXD CASE 



RETURN 
SXD CASE SUBROUTINE 
STORE RETURN 
STORE INDEX OF SXD CASE 
RECORD ANY HANGING TRANSFER 



STORE BB NO, 
GET INDEX OF BB 



STORE LOC* OF 1ST PRED IN BB 

FORM 

LOC. OF THIS PRED - 

LOC. OF 1ST PRED IN BB 



F5G37300 

F5G37310 

F5G37320 

F5G37330 

F5G37340 

F5G37350 

F5G37360 

F5G37370 

F5G37380 

F5G37390 

F 56 3 7400 

F5G37410 

F5G37420 

F5G37430 

F5G37440 

F5G37450 

F5G37460 

F5G37470 

F5G37480 

F5G37490 

F5G37500 

F5G37510 

F5G37520 

F5G37530 

F5G37540 

F5637550 

F5G37560 

F5G37570 

F5G37580 

F5G37590 

F5G37600 

F5G37610 

F5G37620 

F5G37630 

F5G37640 

F5G37650 

F5G37660 

F5G37670 

F5G37680 

F5G37690 

F5G377O0 

F5G37710 

F5G37720 

F5G37730 

F5G37740 

F5G37750 

F5G37760 

F5G37770 

F5G37780 

F5G37790 

F5G37800 

F5G37810 

F5G37820 

F5G37830 



02263 





60100 





00657 




STO 


SLV2 


02264 


-0 


53400 


2 


00324 




LXD 


LD3»2 


02265 





50000 


1 


01102 


SI2 


CLA 


SXST+1»1 


02266 





10000 





02305 




TZE 


SI1 


02267 


-0 


63400 


1 


00504 




SXD 


SIV5»1 


02270 





60100 





00505 




STO 


SIV6 


02271 





50000 





00657 




CLA 


SLV2 


02272 





07400 


4 


02367 




TSX 


SK»4 


02273 





50000 





00314 




CLA 


ZERO 


02274 





60100 





00657 




STO 


SLV2 


02275 





50000 





00411 




CLA 


SIK3 


02276 





07400 


4 


02367 




TSX 


SK*4 


02277 





50000 





00505 




CLA 


SIV6 


02300 





40000 





00415 




ADO 


SMK4 


02301 





07400 


4 


02367 




TSX 


SK*4 


02302 





50000 


2 


00361 




CLA 


VST AG » 2 


02303 





07400 


4 


02367 




TSX 


SK»4 


02304 


-0 


53400 


1 


00504 




LXD 


SIV5»1 


02305 


1 


77777 


1 


02306 


SI1 


TXI 


SI1+1*1*-1 


02306 


2 


00001 


2 


02265 




TIX 


SI2*2»1 


02307 


-0 


53400 


1 


00500 




LXD 


SIVltl 


02310 





50000 


1 


01101 




CLA 


SXST*1 


02311 


-0 


73400 


2 


00000 




PDX 


0*2 


02312 


-3 


00000 


2 


02321 




TXL 


SI3»2rO 


02313 


-3 


00000 


1 


02325 




TXL 


Sl4tl»0 


02314 


3 


77757 


1 


02334 




TXH 


SI6»1*-16-1 


02315 





77100 





00022 


SI5 


ARS 


18 


02316 





07400 


4 


02403 




TSX 


SL*4 


02317 


-0 


53400 


4 


00501 




LXD 


SIV2»4 


02320 





02000 


4 


00003 




TRA 


3*4 


02321 





50200 





00315 


SI3 


CLS 


ONEA 


02322 





60100 





00660 




STO 


SLV3 


02323 


-0 


53400 


4 


00501 




LXD 


SIV2»4 


02324 





02000 


4 


00001 




TRA 


1.4 


02325 





60100 





00465 


SI4 


STO 


SXDO 


02326 





07400 


4 


02336 




TSX 


SJ*4 


02327 





00000 





00000 








02330 





02000 





02334 




TRA 


SI6 


02331 


-0 


53400 


1 


00500 




LXD 


SIVl.l 


02332 





50000 


1 


01101 




CLA 


SXSTfl 


02333 





02000 





02315 




TRA 


SI5 


02334 


-0 


53400 


4 


00501 


SI6 


LXD 


SIV2>4 


02335 





02000 


4 


00002 




TRA 


2»4 
DETERMINE IF 


02336 


-0 


63400 


4 


00507 


SJ 


SXD 


SJV2.4 


02337 





50000 





00465 




CLA 


SXDO 


02340 


-0 


32000 





00335 




ANA 


DECMK 


02341 





60100 





00506 




STO 


SJY1 


02342 





10000 





02363 




TZE 


SJ3 


02343 


-0 


53400 


4 


00314 




LXD 


ZER0t4 


02344 


-0 


53400 


2 


00324 




LXD 


LD3*2 


02345 





50000 


4 


01111 


SJ2 


CLA 


SXAS1*4 


02346 





12000 





02357 




TPL 


SJ1 


02347 





50000 


2 


00674 




CLA 


Z2Vl+3»2 



STORE THE LOC* OF 1ST SXD 

IS THIS TAG 

NO* PRESERVE INDEX 1 

PRESERVE THE TAG 

PUT LOCATION WORD ON TAPE 

AND RESET TO 

PUT SXD ON TAPE 

14*2**-5+TAU-TAG IS 
SYMBOLIC ADDRESS 

PUT S-TAG ON TAPE 

COUNT TO 3* FORM N+l 



IS THE LXD CASE 

NO* IS THIS THE ST POSITION 

IS THIS ASSOCIATED WITH A LIST 

NO 

COMPILE A TRA TO LXD CASE 

RETURN TO LOC« OF TSX + 3 

RECORD THAT THERE IS 

A HANGING TRA TO CASE 

RETURN TO LOC. OF TSX +1 

STORE LXD CASE AS ARG FOR SJ 

IS SXD CASE INST POS. ASSOC. WITH LIST 

SHOULDENT BE WITH CASE 

YES 

NO 

GO TO COMPILE TRA TO LXD CASE 
RETURN TO 2 FOLLOWING TSX WITH 
INDEX OF TOP QUANTITY IN 1 AND LIST INDEX 
THE SXD CASE IS ASSOCIATED WITH AN LXD LIST 



IS THIS THE LXD CASE 
NO* SET COUNT TO 3* N TO 1 
2 HAS THE COUNTER 

DOES THE LIST ALREADY HAVE SXD 
NO 



F5G37840 
F5G37850 
F5G37860 
F5G37870 
F5G37880 
F5G37890 
F5G37900 
F5G37910 
F5G37920 
F5G37930 
F5G37940 
F5G37950 
F5G37960 
F5G37970 
F5G37980 
F5G37990 
F5^38OO0 
F5G38010 
F5G38020 
F5G38O30 
F5G38040 
F5G38050 
F5G38060 
F5G38070 
F5G38080 
F5G38090 
F5G38100 
F5G38110 
F5G38120 
F5G38130 
F5638140 
F5G38150 
F5G38160 
F5G38170 
F5G38180 
F5G38190 
F5G38200 
F5G38210 
F5G38220 
F5G38230 
F5G38240 
F5G38250 
IN2F5G38260 
F5G38270 
F5G38280 
F5G38290 
F5G38300 
F5G38310 
F5G38320 
F5G38330 
F5G38340 
F5G38350 
F5G38360 
F5G38370 



&'■ 



u 



u 



02350 
02351 
02352 
02353 
02354 
02355 
02356 
02357 
02360 
02361 
02362 
02363 
02364 
©2365 
02366 

02367 
02370 
02371 
02372 
02373 
02374 
02375 
02376 
02377 
02400 
02401 
02402 

02403 
02404 
02405 
02406 
02407 
02*10 
02411 
02412 
02413 
02414 
02415 
02416 
02417 
02420 
02421 
02422 
02423 
02424 
02425 

02426 
02427 
02430 
02431 
02432 



73400 
50000 
76700 
40200 
10000 
53400 
02000 
77777 
00001 
53400 
02000 
53400 
50000 
12000 
02000 

53400 
60100 
00001 
53400 
63400 
76600 
70000 
00001 
76600 
02000 
63400 
02000 

32000 
76700 
40000 
60100 
50000 
32000 
77100 
60200 
63400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
53400 
02000 



50000 
12000 4 
-0 63400 4 
50000 
07400 4 



00000 

00676 

00022 

00506 

02357 

00507 

00002 

02360 SJ1 

02345 

00507 

00003 

00507 SJ3 

01105 

00003 

00001 

00655 SK 

00655 

02401 

00412 

00655 

00223 

00655 SK2 

02375 

00333 

00001 

00655 SKI 

00001 

00434 SL 

00012 

00413 

00657 

00443 

00335 

00022 

00657 

00656 

00314 SL2 

02367 

00350 

02367 

00657 

02367 

00314 

02367 

00656 

00001 

00660 SL1 

00001 

00656 

00443 

00070 



PDX 
CLA 
ALS 
SUB 
TN2 
LXD 
TRA 
TXI 
TIX 
LXD 
TRA 
LXD 
CLA 
TPL 
TRA 

LXD 
STO 
TIX 
LXA 
SXD 
WTB 
CPY 
TIX 
IOD 
TRA 
SXD 
TRA 

ANA 
ALS 
ADD 
STO 
CLA 
ANA 
ARS 
ORS 
SXD 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
LXD 
TRA 

CLA 
TPL 
SXD 
CLA 
TSX 



6ET INDEX OF TOP QUANTITY 



IS THIS CASE SAME AS CASE HEADUNG LIST N 

YES 

RETURN. INDEX OF TOP OF LIST IN 1 

COUNT TO 3 



0*1 

LIST1»1 

18 

SJV1 

SJ1 

SJV2t4 

2.4 

SJ1+1.4.-1 

SJ2.2.1 

SJV2t4 

3.4 

SJV2.4 

SXASO 

3#4 

1.4 

PUT WORD OF COMPILED INST ON TAPE 

SKV1.1 

CLST.l 

SK1.1.1 

SKK1.1 

SKV1.1 

OTAPE 

CLST.l 

SK2»1»1 



STORE THE WORD IN CLST 

COUNT NO OF WORDS IS CLST FULL 

YES 

RESET THE INDEX 

WRITE THE BLOCK ON 

THE OUTPUT TAPE 



1.4 

SKV1.1 

1.4 

SUBROUTINE 
Z2K5 
10 

SLK2 
SLV2 
BBNO 
DECMK 
18 

SLV2 
SLV1.4 
ZERO 
SK»4 
LTRA 
SK.4 
SLV2 
SK.4 
ZERO 
SK.4 
SLV1.4 
1.4 

SUBROUTINE 
SLV3 
1.4 

SLV1.4 
BBNO 
SE.4 



STORE INDEX OF NEXT WORD 

FOR COMPILING TRA TO LXD CASE 
FORM 
THE 

ADDRESS 
OF 
THE 

TRA IN 

SLV2 

STORE RETURJ 

PUT LOCATION 

ON TAPE 

PUT SYMB* ADDR. ON TAPE 

PUT SYMB. ADDR ON TAPE 

ANOTHER 

FOR PUTTING HANGING TRA ON TAPE 

RETURN IF THERE IS NO HANGING TRAO 

OTHERWISE » STORE RETURN AND 

GET 

THE 



F5G38380 
F5G38390 
F5G38400 
F5G38410 
F5G38420 
F5G38430 
F5G38440 
F5G38450 
F5G38460 
F5G38470 
F5G38480 
F5638490 
F5G38500 
F5G38510 
F5G38520 
F5G38530 
F5G38540 
F5G38550 
F5G38560 
F5G38570 
F5G38580 
F5G38590 
F5G38600 
F5G38610 
F5G38620 
F5G38630 
F5G38640 
F5G38650 
F5G38660 
F5G3867? 
F5G38680 
F5G38690 
F5G38700 
F5G38710 
F5G38720 
F5G38730 
F5G38740 
F5G38750 
F5G38760 
F5G38770 
F5G38780 
F5G38790 
F5G38800 
F5G38810 
F5G38820 
F5G38830 
F5C38840 
F5G38850 
F5G38860 
F5G38870 
F5G38880 
F5G38890 
F5G38900 
F5G38910 



02433 


50000 1 06447 




CLA BB8+5»1 


SYMBOLIC LOCATION 


F5G38920 


02434 


60100 00657 




STO SLV2 


OF 1ST INST IN BB AND 


F5G38930 


02435 


50000 00314 




CLA ZERO 


STORE IN SYNBOLIS ADDR WORD 


F5G38940 


02436 


60100 00660 




STO SLV3 


SET INDICATOR TO SAY NO HANGING TRA 


F5G38950 


02437 


02000 02414 




TRA SL2 




F5G38960 








COMPILE AN 


LXD LIST 


F5G38970 


02440 


50000 2 00715 


SM 


CLA LLIND»2 


IMMEDIATELY RETURN IF LIST IS 


F5G38980 


02441 


12000 4 00001 




TPL lt4 


ALREADY COMPOLED 


F5G38990 


02442 


60200 2 00715 




SLW LLIND»2 


RECORD LIST ALREADY COMPILED 


F5G39000 


02443 


-0 63400 4 00661 




SXD SMV1»4 


STORE RETURN 


F5G39010 


02444 


50000 2 00422 




CLA Z2Kl+3»2 


COMPUTE THE 


F5G39020 


02445 


40200 00316 




SUB ONED 


INDEX OF SUB BOTTEM 


F5G39030 


02446 


62200 02453 




STD SMI 


POSITION OF LIDT 


F5G39040 


02447 


62200 02513 




STD SM5 


SET END TEST 


F5G39050 


02450 


50000 1 00676 


SM6 


CLA LIST1*1 




F5G39060 


02451 


-0 12000 02521 




TMI SM8 


DOES THIS ELEMENT OF LIST REPRESENT AN LXD 


F5G39070 


02452 


-3 00000 1 02454 




TXL SMl+1,1,0 




F5G39080 


02453 


-3 00000 1 02455 


SMI 


TXL SM10»ltSET 


YES* IS ELEMENT IN SUB BOTTOM POS. 


F5G39090 


024fe 


-0 40000 1 00677 




SBM LIST1+1»1 


NO 


F5G39100 


02455 


60100 00662 


SM10 


STO SMV2 


STORE THE TAG AWAY 


F5G39110 


02456 


50000 00443 




CLA BBNO 


FORN 


F5G39120 


02457 


-0 32000 00335 




ANA DECMK 


THE 


F5G39130 


02460 


76500 00034 




LRS 28 


LOCATION 


F5G39140 


02461 


50000 1 00676 




CLA LISTltl 




F5G39150 


02462 


76300 00012 




LLS 10 




F5G39160 


02463 


40000 00413 




ADD SMK1 




F5G39170 


02464 


-0 63400 1 00663 




SXD SMV3tl 


STORE INDEX OF LIST QUANTITY 


F5G39180 


02465 


60100 00664 




STO SMV4 




F5G39190 


02466 


07400 4 02426 




TSX 5L1»4 


RECORD ANY HANGING TRAO 


F5G39200 


02467 


50000 00664 




CLA SMV4 




F5G39210 


02470 


07400 4 02367 




TSX SK#4 


COMPILE THE LOCATION 


F5G39220 


02471 


50000 00414 




CLA SMK2 




F5G39230 


02472 


07400 4 02367 




TSX SK*4 


COMPILE LXD 


F5G39240 


02473 


50000 00443 




CLA BBNO 




F5G39250 


02474 


07400 4 00070 




TSX SEt4 


FIND INDEX OF BB 


F5G39260 


02475 


50000 00662 




CLA SMV2 




F5G39270 


02476 


34000 00320 SM3 


CAS L4 


IS THIS THE CORRECT ENT. REQUIREMENT 


F5G39280 


02477 


02000 02501 




TRA SM2 




F5G39290 


02500 


02000 02503 




TRA SM4 


YES 


F5G39300 


02501 


76700 00001 SM2 


ALS 1 


NOt SHIFT IT LEFT ONE 


F5G39310 


02502 


1 77777 1 02476 




TXI SM3»lt-l 


AND INDEX TO NEXT ENRR. REQUIREMENT 


F5G39320 


02503 - 


-0 50000 1 06444 SM4 


CAL BBB+2tl 


FORM 


F5G39330 


02504 


77100 00022 




ARS 18 


AND COMPILE 


F5G39340 


02505 


40000 00415 




ADD SMK4 


THE 


F5G39350 


02506 


07400 4 02367 




TSX SK»4 




F5G39360 


02507 


50000 00662 




CLA SMV2 


COMPILE THE TAG 


F5G39370 


02510 


07400 4 02367 




TSX SK*4 




F5G39380 


02511 - 


53400 1 00663 




LXD SMV3#1 


IS THE ELEMENT IN SUB BOTTOM POSITION 


F5G39390 


02512 - 


3 00000 1 02514 




TXL SM5+ltl»0 




F5G39400 


02513 - 


3 00000 1 02515 SM5 


TXL SM7»1»SET 




F5G39410 


02514 


1 77777 1 02450 




TXI SM6»1»-1 


NO. INDEX TO NEXT LIST POS» 


F5G39420 


02515 


50200 00315 SM7 


CLS ONEA 




F5G39430 


02516 


60100 00660 




STO SLV3 


RECORD THAT THERE IS HANGING TRA 


F5G39440 


02517 - 


53400 4 00661 SM9 


LXD SMV1#4 




F5G39450 



V 



U 



u 



02520 
02521 
02522 
02523 
02524 



02525 
02526 
02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
02540 
02541 
02542 
02543 
02544 
02545 
02546 
02547 
02550 
02551 
02552 
02553 
02554 
02555 
02556 
02557 
02560 
02561 
02562 
02563 
02564 
02565 
02566 
02567 
02570 
02571 
02572 
02573 
02574 
02575 
02576 
02577 
02600 
02601 
02602 
02603 



02000 
10000 
76000 
07400 
02000 



00144 
07400 
50000 
32000 
10000 
53400 
00001 
63400 
50000 
40000 
60100 
07400 
50000 
60100 
76700 
60100 
53400 
53400 
63400 
50000 
32000 
60100 
50000 
32000 
73400 
50000 
62100 
40200 
10000 
76000 
60100 
50000 
76700 
76000 
02000 
50000 
07400 
50000 
07400 
50000 
50100 
07400 
50000 
32000 
07400 
50000 
32000 



00001 
02515 SM8 
00003 
02403 
02517 



02527 FNDAS 

03472 

01076 2FNDS 

00340 

03336 

00455 CI4 

02547 

00447 

00456 

00315 

00456 

00032 

05061 

00454 

00002 

00453 

00447 

00330 

00455 CI 5 

01076 

00342 

00452 

00453 

00324 

00000 

00361 

01076 

00320 

02564 

00003 

00460 

00454 CI5A 

00011 

00001 

02602 

00314 

02367 

00414 

02367 

00452 

00415 

02367 

01076 

00337 

02367 

01100 SKLX 

00343 



RETURN . . 

GO TO RECORD HANGING TRA 



RECORD A TRA TO LXD CASE 



TRA 1#4 
TZE SM7 
SSP 
TSX SL.4 

THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST. AND 
CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL. 
TNX 2FNDS.2.ZINST IS BLOCK OF INST. ALL USED 



TSX RDINSt4 
CAL INST-3.2 
ANA STMSK 
TZE CI7A 
LXD 9CNT.4 
TIX CI5.4.1 
SXD BB0X#2 
CLA STGWD 
ADD ONE A 
STO STGWD 
TSX SE4t4 
CLA STAGfl 
STO STAGN2 
ALS 2 

STO STAGN1 
LXD BB0X.2 
LXD LD9f4 
SXD 9CNTt4 
CAL INST-3.2 
ANA TAGMK 
STO TAG 
CAL STAGN1 
ANA LD3 
PDX 0.4 
CAL VSTAG»4 
STA INST-3.2 
SUB L4 
TNZ CI5A 
SSM 

STO CIND 
CAL STAGN2 
ALS 9 
PBT 

TRA SKLX 
CLA ZERO 
TSX SK.4 
CLA SMK2 
TSX SK»4 
CLA TAG 
ORA SMK4 
TSX SK.4 
CLA INST-3.2 
ANA ADDMK 
TSX SK»4 
CAL INST-1.2 
ANA LFTMSK 



YES. READ IN NEXT BLOCK 
IS THIS INST. TAGGED 



YES 

COUNT TO 9. IS STAG WORD EXHAUSTED 

YES. GET ANOTHER 

INCREASE THE NO. OF CURRENT STAG WORD 



GET INDEX OF NEXT STAG WORD 

GET AND STORE 

THE STAG WORD 

RESTORE INDEX REGISER 2 

RESET COUNT TO 9 



EXTRACT THE TAG 



EXTRACT THE S-TAG 

CONVERT S-TAG TO 1.2. OR 4 
REPLACE TAU-TAG BY S-TAG 
IS THE TAG 4 



YES. RECORD IR 4 NECESSARY 



IS AN LXD NECESSARY 

NO 

YES 

COMPILE LOCATION OF 

COMPILE LXD 

COMPILE THE SYMB. ADDR. OF THE CELL 



COMPILE THE S-TAG 



F5G39460 

F5G39470 

F5G39480 

F5G39490 

F5G39500 

F5G39510 

F5G39520 

F5G39530 

F5G39540 

F5G39550 

F5G39560 

F5G39570 

F5G39580 

F5G39590 

F5G39600 

F5G39610 

F5G39620 

F5639630- 

F5G39640 

F5G39650 

F5G39660 

F5G39670 

F5G39680 

F5G39690 

F5G39700 

F5G39710 

F5G39720 

F5G39730 

F5G39740 

F5G39750 

F5G39760 

F5G39770 

F5G39780 

F5G39790 

F5G39800 

F5G39810 

F5G39820 

F5G39830 

F5G39840 

F5G39850 

F5G39860 

F5G39870 

F5G39880 

F5G39890 

F5G39900 

F5G39910 

F5G39920 

F5G39930 

F5G39940 

F5G39950 

F5G39960 

F5G39970 

F5639980 

F5G39990 



02604 





60200 





00457 


SLW 


TMP10 


02605 





50000 





00457 


CLA 


TMP10 


02606 





34000 





00345 


CAS 


LLXP 


02607 





02000 





02637 


TRA 


CI1 


02610 





02000 





02612 


TRA 


SKLY 


02611 





02000 





02637 


TRA 


CI1 


02612 


-0 


50000 





00454 SKLY 


CAL 


STAGN2 


02613 





76700 





00011 


ALS 


9 


02614 


-0 


76000 





00001 


PBT 




02615 





02000 





03462 


TRA 


CI3A 


02616 





50000 


2 


01076 


CLA 


INST-3»2 


02617 





60200 





00461 


SLW 


CPIND 


02620 


-o 


32000 





00337 


ANA 


ADDMK 


02621 





40200 





00320 


SUB 


L4 


02622 


-0 


10000 





02667 


TNZ 


CI6 


02623 


-0 


50000 


2 


01074 


CAL 


INST-5»2 


02624 


-0 


32000 





00343 


ANA 


LFTMSK 


02625 





60200 





00457 


SLW 


TMP10 


02626 





50000 





00457 


CLA 


TMP10 


02627 





40200 





00414 


SUB 


LLXD 


02630 


-0 


10000 





02667 


TNZ 


CI6 


02631 





50000 


2 


01072 


CLA 


INST-7.2 


02632 


-0 


32000 





00337 


ANA 


ADDMK 


02633 





40200 





00320 


SUB 


L4 


02634 


-0 


10000 





02667 


TNZ 


CI6 


02635 





76000 





00141 


PSE 


97 


02636 





02000 





02667 


TRA 


CI6 


02637 





34000 





00347 CI1 


CAS 


LOED 


02640 





02000 





02642 


TRA 


CI2 


02641 





02000 





03462 


TRA 


CI3A 


02642 





50000 





00454 CI2 


CLA 


STAGN2 


02643 





12000 





02667 


TPL 


CI6 


02644 





50000 


2 


01101 


CLA 


INST»2 


02645 





07400 


4 


02367 


TSX 


SK.4 


02646 





50000 


2 


01100 


CLA 


INST-1.2 


02647 





07400 


4 


02367 


TSX 


SK.4 


02650 





50000 


2 


01077 


CLA 


INST-2.2 


02651 





07400 


4 


02367 


TSX 


SK»4 


02652 





50000 


2 


01076 


CLA 


INST-3»2 


02653 





07400 


4 


02367 


TSX 


SK»4 


02654 





50000 





00314 


CLA 


ZERO 


02655 





60100 





00461 


STO 


CPIND 


02656 





07400 


4 


02367 


TSX 


SK.4 


02657 





50000 





00411 


CLA 


SIK3 


02660 





07400 


4 


02367 


TSX 


SK»4 


02661 





50000 





00452 


CLA 


TAG 


02662 


-0 


50100 





00415 


ORA 


SMK4 


02663 





07400 


4 


02367 


TSX 


SK»4 


02664 





50000 


2 


01076 


CLA 


INST-3«2 


02665 


-0 


32000 





00337 


ANA 


ADDMK 


02666 





07400 


4 


02367 


TSX 


SK..4 


02667 


-0 


50000 





00453 CI 6 


CAL 


STAGN1 


02670 





76700 





00002 


ALS 


2 


02671 





60200 





00453 


SLW 


STAGN1 



IS THIS AN LXP 
YES. 



IS LXD NECESSARY. 

NO* 

YES, IS S-TAG=4. 

RECORD DONT COMPILE. 



NOT 4. 

IS NEXT INSTR 

AN LXD 

WITH REAL 
IR4. 

IF SO. 

TURN ON 

SENSE LIGHT. 
IS IT A DED 

YES 

IS SXD REQUIRED 

NEITHER LXP NOR DED* COMPILE THE 

INST. 



YES. COMPILE AN SXD. ZERO LOCATION 

RECORD THAT THIS INST. SHOULDNT BE C0NP1LED 

SXD IN BCD 

SYMB. ADDR. OF TAU-TAG CELL 

AND TAG WORD 

NO SXD REQUIRED. 



F5G40000 
F5G40010 
F5G40020 
F5G40030 
F5G40031 
F5G40032 
F5G40040 
F5G40041 
F5G40042 
F5G40043 
F5G40044 
F5G40045 
F5G40046 
F5G40047 
F5G40048 
F5G40049 
F5G40050 
F5G40051 
F5G4O052 
F5G40053 
F5G40054 
F5G40055 
F5G40056 
F5G40057 
F5G40058 
F5G40059 
F5G40060 
F5G40061 
F5G40062 
F5G40070 
F5G4O080 
F5G40090 
F5G40100 
F5G40110 
F5G40120 
F5G40130 
F5G40140 
F5G40150 
F5G40160 
F5G40170 
F5G40180 
F5G40190 
F5G40200 
F5G40210 
F5640220 
F5G40230 
F5G40240 
F5G40250 
F5G40260 
F5G40270 
F5G40280 
F5G40290 
F5G40300 
F5G40310 



fl 



o 



u 



^ 



02672 
02673 
02674 
02675 
02676 
02677 

02700 
02701 
02702 
02703 
02704 
02705 
02706 
02707 
02710 
02711 
02712 
02713 
02714 
02715 
02716 
02717 
02720 
02721 
02722 
02723 
02724 
02725 
02726 

02727 
02730 
02731 
02732 
02733 
02734 
02735 
02736 

02737 
02740 
02741 
02742 
02743 
02744 
02745 
02746 
02747 
02750 
02751 
02752 
02753 
02754 



50000 
76700 
60200 
02000 
76000 
60100 

50000 
10000 
50000 
40200 
10000 
53400 
50000 
32000 
40200 
10000 
00001 
50000 
32000 
60200 
50000 
40200 
10000 
07400 
00004 
50000 
40200 
10000 
02000 

02000 
02000 
02000 
02000 
02000 
02000 
02000 
02000 

02000 
02000 
02000 
02000 
53400 
50000 
32000 
40200 
10000 
00001 
02000 
50000 
32000 
10000 



00454 
00001 
00454 
02700 
00003 
00461 

01101 
02723 
01075 
00444 
02743 
00327 
01100 
00335 
00374 
02737 
02710 
01100 
00400 
00457 
00457 
00401 
03162 
02172 
02525 
01075 
00444 
03042 
02721 

03046 
03115 
03171 
03171 
03125 
03226 
03324 
02721 

02752 
03037 
03042 
02755 
00325 
01100 
00335 
00400 
02743 
02746 
03042 
01077 
00403 
02772 



CI7 
CKLOC 



CAL STA6N2 

ALS 1 

SLW STAGN2 

TRA CKLOC 

SSM 

STO CPIND 



GO TO CHECK FOR ENDINGS 

RECODD LATER COMPILING NECESSARY 



SUBP 
6ANA 

NOEND 
TR3S 



TRTIN 



TRTTR 
END8B 



6SUB 



TRACS 



NOW THE END OF BB IS CHECKED FOR 



CLA INSTt2 
TZE TR3S 
CLA INST-4»2 
SUB NXTLOC 
TZE ENDBB 
LXD LD8t4 
CAL INST-1»2 
ANA DECMK 
SUB LNT0P+lt4 
TZE TRTIN+1»4 
TIX SUBP»4»1 
CAL INST-li2 
ANA FSTLT 
SLW TMP10 
CLA TMP10 
SUB FSTT 
TZE TTYPE 
TSX SCMIt4 
TXI FNDAS»2»4 
CLA INST-4»2 
SUB NXTLOC 
TZE SEQTR 
TRA NOEND 

TRANSFER VECTOR 
TRA GOTOV 
TRA IF2PS 
TRA IF2CS 
TRA IF2CS 
TRA MSECS 
TRA IF3CS 
TRA STPCSZ 
TRA NOEND 



IF NO LOCATION SYMBOL » THIS CANT BE 
ENSING OTHER THAN CERTAINTY 
IS THIS LAST INST IN BB 

YESi LOOK FOR TYPE OF ENDING 

NOf CHECK FOR ENDING OF GROUP OF INST 

LOOK AT OP CODE 

COMPARE TO OP CODES OF POSSIBLE 

ENDINGS TRANSFER WHEN FOUND 

TRY NEXT POSSIBILITY 

NOT FOUNDi LOOK FORCONDI TIONAL TRANSFER 



IS A CONDITIONAL TRANSFER 
NOT AN END OD BB COMPILE INST 
IF IT NEEDS TO BE 
IS THIS LAST INST IN BB 



YES 
NO 



SEE SUBP+1 ABOVE 



TRA IS OP CODE 

PSE 

DCT 

RTT 

MSE 

TZE 

HPR 
TSX 



THE FOLLOWING IS 4 WORD TRANSFER VECTORt SEE ENDBB BELOW 



TRA TRACS 
TRA DOCS 
TRA PAUSE 
TRA TRAC3 
LXD LD4»4 
CLA INST-1»2 
ANA DECMK 
SUB LTR0P+1*4 
TZE TRTTR+1»4 
TIX 6SUBt4»l 
TRA SEQTR 
CAL INST-2»2 
ANA PFXMK 
TNZ GOTON 



TRAIS OP CODE 

TXL 

HPR 

TTR 

THIS INST ENDS A BASIC 

BLOCK LOOKAT OP CODE 

FOR TYPE OF ENDING 

TRANSFER IF IOUND 
TRY NEXT POSSIBILITY 

OP CODE IS TRA SEE IF ADDRESS 

IS IN PROGRAM UNCONDIT I TONAL TRANSFER 

IF TRANSFER IT IS A GO TO N 



F5G40320 

F5G40330 

F5G40340 

F5G40350 

F5G40 360 

F5G40370 

F5G40380 

F5G40390 

F5G40400 

F5G4Q410 

F5G40420 

F5G40430 

F5G40440 

F5G40450 

F5G40460 

F5G40470 

F5G40480 

F5G40490 

F5G40500 

F5G40510 

F5G40520 

F5G40530 

F5G40540 

F5G40550 

F5G40560 

F5G40570 

F5G40580 

F5G40590 

F5G40600 

F5640610 

F5G40620 

F5G40630 

F5G40640 

F5G40650 

F5G40660 

F5G40670 

F5G40680 

F5G40690 

F5G40700 

F5G40710 

F5G40720 

F5G40730 

F5G40740 

F5G40750 

F5G40760 

F5G40770 

F5G40780 

F5G40790 

F5G40800 

F5G40810 

F5G40820 

F5G40830 

F5G40840 

F5G40850 



/ 



02755 


-0 


63400 


2 


00447 TRAC3 


SXD 


BB0X»2 


02756 


-0 


50000 





00443 


CAL 


BBNO 


02757 





77100 





00022 


ARS 


18 


02760 





60100 





00462 


STO 


ARG1 


02761 





07400 


4 


00067 


TSX 


SE1#4 


02762 


-0 


50000 


1 


06442 


CAL 


BBB»1 


02763 





07400 


4 


00044 


TSX 


SE6»4 


02764 


-0 


50000 


1 


07555 


CAL 


SUCCtl 


02765 





07400 


4 


02126 


TSX 


SAD»4 


02766 


-0 


53400 


2 


00447 


LXD 


BB0X»2 


02767 





60200 


2 


01077 


SLW 


INST-2»2 


02770 





07400 


4 


02172 


TSX 


SCMI»4 


02771 


1 


00004 


2 


03544 


TXI 


BEGBB*2»4 


02772 


-0 


63400 


2 


00447 GOTON 


SXD 


BB0X»2 


02773 





50000 





00443 


CLA 


BBNO 


02774 





07400 


4 


00070 


TSX 


SE»4 


02775 





50000 


1 


06442 


CLA 


BBB#1 


02776 





77100 





00041 


ARS 


33 


02777 





40000 





00315 


ADD 


ONEA 


03000 





10000 





03002 


T2E 


G0N1 


03001 





07400 


4 


00004 


TSX 


4»4 


03002 


-0 


50000 


1 


06443 GON1 


CAL 


BBB+1»1 


03003 





77100 





00041 


ARS 


33 


03004 





60200 





00457 


SLW 


TMP10 
NOW ANY 


03005 


-0 


53400 


2 


00324 


LXD 


LD3*2 


03006 





50000 


2 


00361 G0N3 


CLA 


VSTAG»2 


03007 


-0 


32000 





00457 


ANA 


TMP10 


03010 





10000 





03032 


TZE 


G0N2 


03011 


-0 


63400 


1 


0G<*51 


SXD 


ABOX.l 


03012 





56000 





OC 3 14 


LDO 


ZERO 


03013 


-0 


53400 


4 


00447 


LXD 


BB0X*4 


03014 





50000 


4 


01101 


CLA 


INSTt4 


03015 


-0 


60000 


4 


01101 


STQ 


INST#4 


03016 





07400 


4 


02367 


TSX 


SK»4 


03017 





50000 





00411 


CLA 


LSXD 


03020 





07400 


4 


02367 


TSX 


SK»4 


03021 


-0 


53400 


1 


00451 


LXD 


ABQXtl 


03022 


-0 


50000 


1 


06444 


CAL 


BBB+2»1 


03023 


-o 


32000 





00342 


ANA 


TAGMK 


03024 


-0 


50100 





00415 


ORA 


IDTAG 


03025 





07400 


4 


02367 


TSX 


SK»4 


03026 


-0 


50000 





00457 


CAL 


TMP10 


03027 


-0 


32000 


2 


00361 


ANA 


VSTAG»2 


03030 





07400 


4 


02367 


TSX 


SK»4 


03031 


-0 


53400 


1 


00451 


LXD 


ABOXtl 


03032 


1 


77777 


1 


03033 G0N2 


TXI 


G0N2+1»1* 


03033 


2 


00001 


2 


03006 


TIX 


GON3t2»l 


03034 


-0 


53400 


2 


00447 


LXD 


BB0X*2 


03035 





07400 


4 


02172 


TSX 


SCMIt4 


03036 


1 


00004 


2 


03544 


TXI 


BEGBBt2»4 


03037 


-0 


75400 





00000 DOCS 


PXD 


0»0 


03040 





60100 





01101 


STO 


SXST 


03041 





02000 





02755 


TRA 


TRAC3 



THIS IS GO TO ALPHA 

STORE BBNO AS ARGUMENT OF SAD 

GET SUCC« TABLE ENTRY 

GO TO DETERMINE SYMBOLIC ADDRESS 

TEPLACE SYMBOLIC ADDR* 

COMPILE THE INSTR 

BEGINNING OF BB» INDEX TO NEXT INSTR 

CHECK TO MAKE SURE THIS IS GO TO N 

DIAGNOSTIC THIS ISNT GO N 

PUT SXD CASE IN TMP10 
SXD BEFIR GO TO N ARE COMPILED 

DOES THIS THIS IR NEED SXD 

YES 

REPLACE LOCATION BY AND 

PUT LOCATION ON THE 

SXD INST* 

SXDINST 



-1 



COMPILE THE INST 



T RECORD THERE IS SEQUDNTIAL TRANSFER 
OTHERWISE DO EXACTLY AS FOR TRA TRANSFER 



F5G40860 

F5G40870 

F5G40880 

F5640890 

F5G40900 

F5G40910 

F5G40920 

F5G40930 

F5G40940 

F5G40950 

F5G40960 

F5G40970 

F5G40980 

F5G40990 

F5G41000 

F5G41010 

F5G41020 

F5G41030 

F5G41040 

F5G41050 

F5G41060 

F5G41070 

F5G41080 

F5G41090 

F5G41100 

F5G41110 

F5G41120 

F5G41130 

F5G41140 

F5G41150 

F5G41160 

F5G41170 

F5G41180 

F5G41190 

F5G41200 

F5G41210 

F5G41220 

F5G41230 

F5G41240 

F5G41250 

F5641260 

F5G41270 

F5G41280 

F5G41290 

F5G41300 

F5G41310 

F5G41320 

F5G41330 

F5G41340 

F5G41350 

F5G41360 

F5G41370 

F5G41380 

F5G41390 



^ 



u 



03042 -0 75400 



03043 
03044 
03045 
03046 
03047 
03050 
03051 
03052 
03053 
03054 
03055 
03056 
03057 
03060 
03061 
03062 
03063 
03064 
03065 
03066 
03067 
03070 
03071 
03072 
03073 
03074 
03075 
03076 
03077 
03100 
03101 
03102 
03103 
03104 
03105 
03106 
03107 
03110 
03111 
03112 
03113 
03114 
03115 
03116 
03117 
03120 
03121 
03122 
03123 
03124 
03125 



60100 
07400 
00004 
07400 
50000 
40200 
62200 
50000 
77100 
60100 
00004 
63400 
07400 
50000 
60200 
53400 
00144 
07400 
63400 
50000 
07400 
50000 
07400 
53400 
60200 
53400 
00001 
50000 
40200 
10000 
50000 
60100 
07400 
00004 
50000 
40000 
60200 
53400 
77777 
63400 
00000 
02000 
50000 
32000 
40200 
10000 

50000 
-0 32000 

40200 
-0 10000 

07400 



00000 
03042 
01101 
02172 
03544 
02172 
01076 
00316 
00463 
00443 
00022 
00462 
03056 
00450 
00067 
06442 
00464 
00450 
03065 
03472 
00450 
00464 
00044 
07555 
02126 
00450 
00457 
00463 
03101 
01077 
00444 
03104 
00457 
01077 
02172 
03105 
00464 
00316 
00464 
4 00463 
03112 
00463 
03063 
03544 
01076 
00404 
00405 
03125 
01076 
00335 
00406 
02721 
02172 
03125 



PAUSE 
SEQTR 



GOTOV 



G0V4 



13TNX 
G0V1 



G0V2 
G0V3 

GOV 5 
IF2PS 



PSTCS 
MSECS 



PXD 
SYN 
STO 
TSX 
TXI 
TSX 
CLA 
SUB 
STD 
CLA 
ARS 
STO 
TXI 
SXO 
TSX 
CLA 
SLW 
LXD 
TNX 
TSX 
SXD 
CAL 
TSX 
CLA 
TSX 
LXD 
SLW 
LXD 
TIX 
CLA 
SUB 
TZE 
CLA 
STO 
TSX 
TXI 
CAL 
ADD 
SLW 
LXD 
TXI 
SXD 
TXH 
TRA 
CLA 
ANA 
SUB 
TZE 
CLA 
ANA 
SUB 
TNZ 
TSX 
SYN 



0*0 

PAUSE 

SXST 

SCMI»4 

BEGBB»2»4 

SCMI»4 

INST-3»2 

LD1 

MBOX 

BBNO 

18 

ARG1 

G0V4+1#2»4 

880X1*2 

SElt4 

BBB»1 

SUCNO 

BB0Xlt2 

G0V1»2»ZINST 

RDINSt4 

BB0X1»2 

SUCNO 

SE6»4 

SUCC»1 

SAD»4 

6B0X1*2 

TMP10 

MB0X*4 

G0V2*4*1 

INST-2»2 

NXTLOC 

G0V3 

TMP10 

INST-2t2 

SCMI*4 

G0V3+1*2»4 

SUCNO 

ONED 

SUCNO 

MB0X*4 

G0V5+1»4*-1 

MB0Xt4 

13TNX»4»0 

BEGBB 

INST-3»2 

XXPSX 

XX16X 

PSTCS 

INST-3»2 

DECMK 

XX360 

NOEND 

SCMI»4 

PSTCS 



RECORD SEQUENTIAL TRANSFER 



COMPILE INST IF NECESSARY 
FIND NO. OF BRANCHES IN VECTOR 



STORE BBNO FOR SAD ROUTINE 



STORE NO OF 1ST SUCCESSOR 

IS BLOCK OF INST ALL USED 
T READ NEXT BLOCK 



FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER 

STORE SYMBOLIC ADDR* 

IS THIS THE LAST TRANSFER 

1ST INST IN NEXT BB» IS IT 

NO 

COMPILE THE INXT 



IS THIS LAST TRA OF VECTOR 

YES 

THIS IS PSE LOOK AT ADDRESS TO 

SEE IF IT IS 164-6 

YES* IT IS A TEST 

N0» SEE IF ADDR IS 360 

NO* THIS ISNT BB END 
THIS IS A PSE TEST INST 
OR AN MSE INST 



F5G41400 
F5G41410 
F5641420 
F5G41430 
F5G41440 
F5G41450 
F5G41460 
F5G41470 
F5G41480 
F5G41490 
F5G41500 
F5641510 
F5641520 
F5G41530 
F5G41540 
F5G41550 
F5G41560 
F5G41570 
F5G41580 
F5G41590 
F5G41600 
F5G41610 
F5G41620 
F5G41630 
F5G41640 
F5G41650 
F5G41660 
F5G41670 
F5G41680 
F5G41690 
F5G41700 
F5G41710 
F5G41720 
F5G41730 
F5G41740 
F5G41750 
F5G41760 
F5G41770 
F5G41780 
F5G41790 
F5G41800 
F5641810 
F5G41820 
F5G41830 
F5G41840 
F5G41850 
F5G41860 
F5G41870 
F5G41880 
F5G41890 
F5G41900 
F5G41910 
F5G41920 
F5G41930 
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03126 
03127 
03130 
03131 
03132 
03133 
03134 
03135 
03136 
03137 
03140 
03141 
03142 
03143 
03144 
03145 
03146 
03147 
03150 
03151 
03152 
03153 
03154 
03155 
03156 
03157 
03160 
03161 
03162 
03163 
03164 
03165 
03166 
03167 
03170 
03171 
03172 
03173 
03174 
03175 
03176 
03177 
03200 
03201 
03202 
03203 
03204 
03205 
03206 
03207 
03210 
03211 
03212 
03213 



00004 
63400 
50000 
77100 
60100 
07400 
50000 
60100 
40000 
07400 
50000 
074G3 
53400 
60200 
07400 
00004 
50000 
40200 
10000 
63400 
50000 
07400 
50000 
07400 
53400 
60200 
07400 
00004 
50000 
34000 
02000 
02000 
40200 
10000 
02000 
07400 
00004 
63400 
50000 
77100 
60100 
07400 
50000 
60100 
07400 
50000 
07400 
53400 
60200 
07400 
00004 
50000 
40200 
10000 



2 03127 PS1 TXI 

2 00450 SXD 

00443 CAL 

00022 ARS 

00462 STO 
4 00067 TSX 

1 06442 CAL 
00464 STO 

00316 ADD 
4 00044 TSX 

1 07555 CLA 
4 02126 TSX 

2 00450 LXD 
2 01077 SLW 
4 02172 TSX 
2 03146 PS2 TXI 
2 01077 CLA 
00444 SUB 
03307 TZE 
2 00450 SXD 

00464 CLA 
4 00044 TSX 

1 07555 CLA 
4 02126 TSX 

2 00450 LXD 
2 01077 SLW 
4 02172 TSX 
2 03544 TXI 
2 01077 TTYPE CLA 
2 01101 CAS 
03166 TRA 
02721 TRA 
00402 TTYP1 SUB 
02721 TZE 
03173 TRA 
4 02172 IF2CS TSX 
2 03173 RT1 TXI 
2 00450 CNDTR SXD 
00443 CAL 
00022 ARS 

00462 STO 
4 00067 TSX 

1 06442 CAL 

00464 STO 
4 00044 TSX 

1 07555 CLA 
4 02126 TSX 

2 00450 LXD 
2 01077 SLW 
4 02172 TSX 
2 03211 RT2 TXI 
2 01077 CLA 
00444 SUB 
03307 TZE 



PS1+1»2»4 

BB0X1#2 

BBNO 

18 

ARG1 

SE1»4 

BBB*1 

SUCNO 

LD1 

SE6#4 

SUCC»1 

SAD»4 

BB0X1»2 

INST-2»2. 

SCMI*4 

PS2+1*2*4 

INST-2*2 

NXTLOC 

PS3 

BB0X1»2 

SUCNO 

SE6»4 

SUCC»1 

SAD* 4 

BB0X1*2 

INST-2»2 

SCMI»4 

BEGBB»2»4 

INST-2*2 

INST»2 

TTYP1 

NOEND 

PCC 

NOEND 

CNDTR 

SCMI *4 

RT1+1»2»4 

BB0X1»2 

BBNO 

18 

ARG1 

SE1»4 

BBB»1 

SUCNO 

SE6»4 

SUCC*1 

SAD*4 

BB0X1*2 

INST-2»2 

SCMI*4 

RT2+1»2»4 

INST-2»2 

NXTLOC 

PS3 



INEDX TO CONSIEER 1ST TRANSFER 

STORE BBNO AS ARGUMENT FOR SAD 

GETNUMBER OF 1ST SUCCESSOR 
GET THE SECOND SUCC ENTRY 

REPLACE SYMBOLIC ADDRESS 

INCREASE INSTR INDEX 

IS THIS A SEQUENTIAL TRANSFER 

YESt SKIP COMPILING THE INST 
NO 

DETERMINE THE SYMBOLIC ADDRESS 

REPLACE SYMBOLIC ADDRESS 
COMPILE THE INST. 

IS THIS TRANSFER TO NEXT INST. 

YES 

YES 

NO* IS CONDITIONAL TRANSFER 
THIS IS DCT OR RTT 
INDEX TO CONSIDER 1ST TRANSFER 
STORE BBNO. AS ARGUMENT 
STORE BBNO AS ARGUMENT 
OF SAD 



GET THE 1ST SUCC ENTRY 

REPLACE SYMBOLIC ADDRESS 
COMPILE THE INST 

IS THIS A SEQUENTIAL TRANSFER 

YES* SKIP COMPILING THE INST 



F5G41940 
F5G41950 
F5G41960 
F5G41970 
F5G41980 
F5G41990 
F5G42000 
F5G42010 
F5G42020 
F5G42030 
F5G42040 
F5G42050 
F5G42060 
F5G42070 
F5G42080 
F5G42090 
F5G42100 
F5G42110 
F5G42120 
F5G42130 
F5G42140 
F5G42150 
F5G42160 
F5G42170 
F5G42180 
F5G42190 
F5G42200 
F5G42210 
F5G42220 
F5G42230 
F5G42240 
F5G42250 
F5G42260 
F5G42270 
F5G42280 
F5G42290 
F5G42300 
F5G42310 
F5G42320 
F5G42330 
F5G42340 
F5G42350 
F5G42360 
F5G42370 
F5G42380 
F5642390 
F5G42400 
F5642410 
F5G42420 
F5G42430 
F5G42440 
F5G42450 
F5G42460 
F5G42470 






o 



u 



03214 


-o 


63400 


2 


00450 


SXD 


BB0X1»2 


03215 





50000 





00464 


CLA 


SUCNO 


03216 





40000 





00316 


ADD 


LD1 


03217 





07400 


4 


00044 


TSX 


SE6*4 


03220 





50000 


1 


07555 


CLA 


SUCC»1 


03221 





07400 


4 


02126 


TSX 


SAD* 4 


03222 


-0 


53400 


2 


00450 


LXD 


BB0X1*2 


03223 





60200 


2 


01077 


SLW 


INST-2*2 


03224 





07400 


4 


02172 


TSX 


SCMI»4 


03225 


1 


00004 


2 


03544 


TXI 


BEGBB*2*4 


03226 


-0 


63400 


2 


00450 IF3CS 


SXD 


BB0Xlf2 


03227 


-0 


50000 





00443 


CAL 


BBNO 


03230 





77100 





00022 


ARS 


18 


03231 





60100 





00462 


STO 


ARG1 


03232 





07400 


4 


00067 


TSX 


SE1*4 


03233 


-0 


50000 


1 


06442 


CAL 


BBB»1 


03234 





60100 





00464 


STO 


SUCNO 


03235 





40000 





00316 


ADD 


LD1 


03236 





07400 


4 


00044 


TSX 


SE6*4 


03237 





50000 


1 


07555 


CLA 


SUCC*1 


03240 





07400 


4 


02126 


TSX 


SAD* 4 


03241 


-o 


53400 


2 


00450 


LXD 


BB0X1»2 


03242 





60200 


2 


01077 


SLW 


INST-2«2 


03243 





07400 


4 


02172 


TSX 


SCMI*4 


03244 


1 


00004 


2 


03245 IF1 


TXI 


IF1+1»2*4 


03245 


-0 


50000 


2 


01100 


CAL 


INST-1»2 


03246 


-0 


32000 





00343 


ANA 


LFTMSK 


03247 





60200 





00457 


SLW 


TMP10 


03250 





50000 





00457 


CLA 


TMP10 


03251 





40200 





00344 


SUB 


LTPL 


03252 





10000 





03254 


T2E 


16CLA 


03253 





07400 


4 


00004 IFHPR 


TSX 


4t4 


03254 





50000 


2 


01077 16CLA 


CLA 


INST-2*2 


03255 





40200 





00444 


SUB 


NXTLOC 


03256 


-0 


10000 





03265 


TNZ 


IF2 


03257 





50000 


2 


01073 


CLA 


INST-6»2 


03260 





40200 





00444 


SUB 


NXTLOC 


03261 


-0 


10000 





03265 


TNZ 


IF2 


03262 


-0 


75400 





00000 


PXD 


0*0 


03263 





60100 





01101 


STO 


SXST 


03264 


1 


00010 


2 


03544 


TXI 


BEGBB»2»8 


03265 


-0 


63400 


2 


00450 IF2 


SXD 


BB0X1*2 


03266 





50000 





00464 


CLA 


SUCNO 


03267 





07400 


4 


00044 


TSX 


SE6*4 


03270 





50000 


1 


07555 


CLA 


SUCC»1 


03271 





07400 


4 


02126 


TSX 


SAD»4 


03272 


-o 


53400 


2 


00450 


LXD 


BB0X1»2 


03273 





60200 


2 


01077 


SLW 


INST-2»2 


03274 





07400 


4 


02172 


TSX 


SCMI»4 


03275 


1 


00004 


2 


03276 IF3 


TXI 


IF3+l»2f4 


03276 


^0 


50000 


2 


01100 


CAL 


INST-1*2 


03277 


-0 


32000 





00343 


ANA 


LFTMSK 


03300 





60200 





00457 


SLW 


TMP10 


03301 





50000 





00457 


CLA 


TMP10 



DETERMINE THE SYMBOLIC ADDR 

COMPILE THE TRANSFER 

THIS IS A TZE INST U E. AN IF 

STORE BB NO. FOR SUBROUTINE 

ARGUMENT 



GET THE SUCC ENTRY 
FOR THE TZE 



REPLACE THE SYMBOLIC ADDREAS 
COMPILE THE TZE 

CHECK NEXT INST TO SEE 
IF IT IS TPL 



IF NOT* DIAGNOSTIC 

DOES THIS EXIT GO TO NEXT BB 



YES* DOES NEXT ONE ALSO 



YES* RECORD SEQUENTIAL TRANSFER 



COMPILE THE TPL 



FIND AND 
REPLACE 
SYMBOLIC ADDRESS 



IS THIS TRA 



F5G42480 
F5G42490 
F5G42500 
F56**2510 
F5G42520 
F5G42530 
F5G42540 
F5G42550 
F5G42560 
F5G42570 
F5G42580 
F5G42590 
F5G42600 
F5G42610 
F5G42620 
F5G42630 
F5G42640 
F5G42650 
F5G42660 
F5G42670 
F5G42680 
F5G42690 
F5G427O0 
F5G42710 
F5G42720 
F5642730 
F5G42740 
F5G42750 
F5G42760 
F5G42770 
F5G42780 
F5G42790 
F5G42800 
F5G42810 
F5G42820 
F5G42830 
F5G42840 
F5G42850 
F5G42860 
F5G42870 
F5G42880 
F5G42890 
F5G42900 
F5G42910 
F5G42920 
F5G42930 
F5G42940 
F5G42950 
F5G42960 
F5G42970 
F5G42980 
F5G42990 
F5G43000 
F5G43010 



/Vi 
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03302 





40200 





00350 


03303 


-0 


10000 





03253 


03304 





50000 


2 


01077 


03305 





40200 





00444 


03306 


-0 


10000 





03312 


03307 


-0 


75400 





00000 PS3 


03310 





60100 





01101 


03311 


1 


00004 


2 


03544 


03312 


-0 


63400 


2 


00450 IF4 


03313 





50000 





00464 


03314 





40000 





00323 


03315 





07400 


4 


00044 


03316 





50000 


1 


07555 


03317 





07400 


4 


02126 


03320 


-0 


53400 


2 


00450 


03321 





60200 


2 


01077 


03322 





07400 


4 


02172 


03323 


1 


00004 


2 


03544 


03324 





50000 


2 


01074 STPCS 


03325 





40200 





00350 


03326 


-0 


10000 





02721 


03327 





50000 


2 


01101 


03330 





40200 


2 


01073 


03331 


-0 


10000 





02721 


03332 





07400 


4 


02172 STPCS 


03333 


1 


00004 


2 


03334 STP1 


03334 





07400 


4 


02172 


0^335 


1 


00004 


2 


03544 


03336 


-0 


50000 


2 


01100 CI7A 


03337 


-0 


32000 





00343 


03340 





60200 





00457 


03341 





50000 





00457 


03342 





4O2O0 





00411 


03343 


-0 


10000 





03412 


03344 


-0 


50000 


2 


01076 


03345 


-0 


32000 





00337 


03346 





40200 





00320 


03347 


-0 


10000 





03412 


03350 





50000 





00460 


03351 





12000 





03401 


03352 


-0 


50000 


2 


01074 


03353 


-0 


32000 





00343 


03354 





60200 





00457 


03355 





50000 





00457 


03356 





40200 





00351 


03357 


-0 


10000 





03412 


03360 





50000 


2 


01101 


03361 





07400 


4 


02367 


03362 





50000 





00411 


03363 





07400 


4 


02367 


03364 





50000 





00354 


03365 





07400 


4 


02367 



SUB LTRA 

TN2 IFHPR 

CLA INST-2»2 

SUB NXTLOC 

TNZ IF4 

PXD 0»0 

STO SXST 

TXI BEGBB»2t4 

SXO BB0X1»2 

CLA SUCNO 

ADD L02 

TSX SE6»4 

CLA SUCC»1 

TSX SAD»4 

LXD BB0X1»2 

SLW INST-2»2 

TSX SCMI*4 

TXI BEGBB*2*4 

CLA INST-5»2 

SUB LTRA 

TNZ NOEND 

CLA INST»2 

SUB INST-6»2 

TNZ NOEND 

TSX SCMI »4 

TXI STPl+lt2i4 

TSX SCMI»4 

TXI BEGBB»2»4 

THIS ROUTINE E 
SUBROUTINE CAL 

CAL INST-1 t2 

ANA LFTMSK 

SLW TMP10 

CLA TMP10 

SUB LSXD 

TNZ CI7C 

CAL INST-3»2 

ANA ADDMK 

SUB L4 

TNZ CI7C 

CLA CIND 

TPL DLSXD 

CAL INST-5»2 

ANA LFTMSK 

SLW TMP10 

CLA TMP10 

SUB LTSX 

TNZ CI7C 

CLA INSTt2 

TSX SK»4 

CLA LSXD 

TSX SK*4 

CLA GSYM 

TSX SK»4 



IF NOT ♦ STOP 

YES IT IS IS THIS A 

SEQUENTIAL TRANSFER 

YES» RECORD THAT 



CONPILE THE TRA 



IF NECESSARY 
MODIFY THE 
SYMBOLIC 
ADDRESS 



COMPILE THE TWO INXT 
AND GO TO STAET BB 



LIMINATES EXTRA SXD AND LXD INXT AROUND 
L SEQUENCES 
IS THIS AN SXD INST 



YES» DOES IT HAVE TAG 4 

YES* IS IR4 NECESSARY 

YES* IS THE NEXT INST A TSX 



YES* COMPILE AN SXD INSTR ♦ TAG 4i TO 
SPECIAL TEMP. STORAGE LOC* 



F5G43020 
F5G43030 
F5G43040 
F5G43050 
F5G43060 
F5G43070 
F5G43080 
F5G43090 
F5G43100 
F5G43110 
F5G43120 
F5G43130 
F5G43140 
F5G43150 
F5G43160 
F5G43170 
F5G43180 
F5G43190 
F5G43200 
F5643210 
F5G43220 
F5G43230 
F5G43240 
F5G43250 
F5G43260 
F5G43270 
F5G43280 
F5G43290 
F5G43300 
F5G43310 
F5G43320 
F5G43330 
F5G43340 
F5G43350 
F5G43360 
F5G43370 
F5G43380 
F5G43390 
F5G43400 
F5G43410 
F5G43420 
F5G43430 
F5G43440 
F5G43450 
F5G43460 
F5G43470 
F5G43480 
F5G43490 
F5G4350O 
F5G43510 
F5G43520 
F5G43530 
F5G43540 
F5G43550 



.'/ 



u 



u 



n 



03366 





50000 





00355 


CLA 


T4SYM 


03367 





07400 


4 


02367 


TSX 


SK.4 


03370 





50000 


2 


01075 CMTSX 


CLA 


INST-4.2 


03371 





07400 


4 


02367 CMTS1 


TSX 


SK»4 


03372 





50000 


2 


01074 


CLA 


INST-5.2 


03373 





07400 


4 


02367 


TSX 


SK.4 


03374 





50000 


2 


01073 


CLA 


INST-6.2 


03375 





07400 


4 


02367 


TSX 


SK»4 


03376 





50000 


2 


01072 


CLA 


INST-7.2 


03377 





07400 


4 


02367 


TSX 


SK»4 


03400 


1 


00010 


2 


02525 CI7B 


TXI 


FNDAS»2*8 


03401 





50000 


2 


01101 DLdXD 


CLA 


INST*2 


03402 





07400 


4 


02367 


TSX 


SK»4 IR4 


03403 





50000 





00352 


CLA 


LBSS 


03404 





07400 


4 


02367 


TSX 


SK*4 


03405 





50000 





00314 


CLA 


ZERO 


03406 





07400 


4 


02367 


TSX 


SK»4 


03407 





50000 





00314 


CLA 


ZERO 


03410 





07400 


4 


02367 


TSX 


SK»4 


03411 





02000 





03370 


TRA 


CMTSX 


03412 


-0 


50000 


2 


01100 CI7C 


CAL 


INST-1.2 


03413 


-0 


32000 





00343 


ANA 


LFTMSK 


03414 





60200 





00457 


SLW 


TMP10 


03415 





50000 





00457 


CLA 


TMP10 


03416 





40200 





00414 


SUB 


LLXD 


03417 


-0 


10000 





02676 


TNZ 


CI7 


03420 


-0 


50000 


2 


01076 


CAL 


INST-3#2 


03421 


-0 


32000 





00337 


ANA 


ADDMK 


03422 





40200 





00320 


SUB 


L4 


03423 


-0 


10000 





02676 


TNZ 


CI7 


03424 





50000 





00460 


CLA 


CINO 


03425 





12000 





03460 


TPL 


CI7E 


03426 


-0 


76000 





00141 


MSE 


97 


03427 





02000 





03432 


TRA 


CI7C1 


03430 





76000 





00003 


SSP 




03431 





02000 





03460 


TRA 


CI7E 


03432 


-0 


50000 


2 


01074 CI7C1 


CAL 


INST-5t2 


03433 


-0 


32000 





00343 


ANA 


LFTMSK 


03434 





60200 





00457 


SLW 


TMP10 


03435 





50000 





00457 


CLA 


TMP10 


03436 





40200 





00411 


SUB 


LSXD 


03437 


-0 


10000 





03450 


TNZ 


CI7D 


03440 


-0 


50000 


2 


01072 


CAL 


INST-7»2 


03441 


-0 


32000 





00337 


ANA 


ADDMK 


03442 





40200 





00320 


SUB 


L4 


03443 


-0 


10000 





03450 


TNZ 


CI7D 


03444 





50000 


2 


01075 


CLA 


INST-4»2 


03445 





40200 





00444 


SUB 


NXTLOC OF 


03446 





10000 





03450 


TZE 


CI7D YE 


03447 


1 


00010 


2 


02525 


TXI 


FNDAS.2»8 


03450 





50000 





00314 CI7D 


CLA 


ZERO 


03451 





07400 


4 


02367 


TSX 


SKf4 


03452 





50000 





00414 


CLA 


LLXD 


03453 





07400 


4 


02367 


TSX 


SK.4 



COMPILE THE TSX INST 



LOOK AT NEXT INST LXF 
NOT NECESS. COMPILE BSS 0. 



IS THIS AN LXD 



NO. GO TO COMPILE THE INST 
YES» IS THE TAG 4 

N0» GO TO COMPILE THE INST* 

YES. IS IR4 NECESSARY* 

N0» GO TO REPRESS LATER COMPILING OF INST 

CHECK FOR LXP WHICH WAS LXD-D. 

NO SUCH. 

THERE WAS* SUPPRESS LATER COMPILING 

OF INST. 

IS FOLLOWING INSTR AN SXD. 



YES* IS THE TAG A 4 



IS SXD FIRST INSTR 
NEXT BB. 
S» COMPILE LX. 

NO — DELETE LX» SX. 

CLMPILE THE LXD WITH GARBAGE 
SYMBOLADDEAA AND TAG 4 



F5G43560 

F5G43570 

F5G43580 

F5G43590 

F5G43600 

F5G43610 

F5G43620 

F5G43630 

F5G43640 

F5G43650 

F5643660 

F5G43670 

F5G43680 

F5G43690 

F5G43700 

F5G43710 

F5G43720 

F5G43730 

F5G43740 

F5G43750 

F5G43770 

F5G43780 

F5G43790 

F5G43800 

F5G43810 

F5G43820 

F5G43830 

F5G43840 

F5643850 

F5G43860 

F5G43870 

F5G43880 

F5G43881 

F5G43882 

F5G43883 

F5G43884 

F5G43885 

F5G43900 

F5G43910 

F5G43920 

F5G43930 

F5G43940 

F5G43950 

F5G43960 

F5G43970 

F5G43980 

F5G43990 

F5G44000 

F5G44010 

F5G44020 

F5G44030 

F5G44040 

F5G44050 

F5G44060 



£7t 



03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 



03472 
03473 
03474 
03475 
03476 
03477 
03500 
03501 
03502 
03503 
03504 
03505 
03506 
03507 
03510 
03511 
03512 
03513 
03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 
03524 
03525 
03526 
03527 
03530 
03531 
03532 
03533 
03534 
03535 
03536 
03537 



50000 
07400 
50000 
07400 
60100 
02000 
50000 
60200 
32000 
40200 
10000 
75400 
60100 
02000 



63400 
50000 
60100 
63400 
53400 
50000 
60100 
00001 
76200 
53400 
70000 
O0001 
02000 
00001 
76200 
02000 
76600 
76000 
02000 
00143 
75400 
40000 
62200 
50000 
60100 
50000 
60100 
53400 
53400 
02000 
50000 
10000 
40200 
60100 
76400 
00001 
00001 
02000 



00354 

02367 

00355 

02367 

00461 CI7E 

02700 

01076 CI3A 

00461 

00337 

00320 

02667 

00000 

00460 

02667 



00445 
00320 
00446 
00447 
00331 
00735 
01101 
03477 
00224 
00362 
01065 
03504 
03516 
03512 
00224 
03504 
00333 
00012 
03530 
03525 
00000 
00327 
02525 
00363 
02526 
00336 
01065 
00445 
00447 
00001 
00446 
03540 
00315 
00446 
00204 
03536 
03534 
03502 



RDINS 

D1CLA 

D1RDS 
D1CPY 

D1BCK 
D2END 



D1XX 
INERR 

D2BST 
D2TIX 



CLA GSYM 
TSX SK»4 
CLA T4SYM 
TSX SK»4 
STO CPIND 
TRA CKLOC 
CLA INST-3t2 
SLW CPIND 
ANA ADDMK 
SUB L4 
TNZ CI6 
PXD OfO 
STO CIND 
TRA C16 



SURPRESS LATER COMPILING INST SET + 

IS THE S-TAG EQUAL TO 4 

RECORD INST. NOT TO BE COMPILED 



YES* RECORD IR4 NOT NECESSARY 



SINCE LXP OR DED» SKIP COMPILING INST. 
THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS 
AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK 
SXD 0UTBX»4 SAVE RETURN INDEX 
CLA L4 SET ERRBX FOR 5 TRIES 
STO ERRBX 

SAVE INDEX 1 

SHIFT EXTRA INST FROM END 

OF BLOCK TO BEGINNING 



SXD BBOX.l 

LXD LD12»4 

CLA NDINS»4 

STO INST. 4 

TIX D1CLA»4»1 

RTB INSTTP 

LXA RECSC*1 

CPY INST-12»4 

TXI D1CPY.4.1 

TRA D2END 

TNX D1BCK.1.1 

RTB INSTTP 

TRA D1CPY 

IOD 

RTT 

TRA INERR 

TXH D1XX.4.ZINST-1 

PXD 0*4 

ADD LD8 



IS BLOCK SHIFTED 

SELECT INST TAPE 

YESt SET INDEX FOR NO. OF RECORDS 

COPY BLOCK OF INST 

SET FOR NEXT WORD 

END OF FILE 

END OF RECORD IS IT END OF LAST RECORD 

NO. READ NEXT RECORD 

TEST FOR TAPE ERROR 

ERROR 

IF 3RD FULL REC. NOT END OF FILE 
REACHED END OF INSTR 
PUT TEST FOR LAST INST 



STD FNDAS INTO MAIN ROUTINE 



CLA LCOUT 

STO FNDAS+1 

CLA ENDMK 

STO INST-12.4 

LXD 0UTBX.4 

LXD BBOX.l 

TRA 1.4 

CLA ERRBX 

TZE HTRD2 

SUB ONE A 

STO ERRBX 

BST INSTTP 

TXI D2TIX.1.1 

TNX D2BST.1.RECN0 

TRA D1RDS 



PUT ADDR OF FINAL EXIT 
ROUTINE 



INTO MAIN 



NO ERROR* RESTORE INDEX REGISTERS 

RETURN TO MAIN ROUTINE 

ERROR IN READING IS THIS 1ST TRY 

TO READ IN 

YES. STORE INDICATION AND TRY AGAIN 

BACKSPACE OVER RECORDS JUST READ 



TAPE BACKSPACED TRY AGAIN 



F5G44070 
F5G44080 
F5G44090 
F5G44100 
F5G44110 
F5G44120 
F5G44130 
F5G44140 
F5G44150 
F5G44160 
F5G44170 
F5G44180 
F5G44190 
F5G44200 
F5G44210 
F5G44220 
F5G44230 
F5G44240 
F5G44250 
F5G44260 
F5G44270 
F5G44280 
F5G44290 
F5G44300 
F5G44310 
F5G44320 
F5G44330 
F5G44340 
F5G44350 
F5G44360 
F5G44370 
F5G44 380 
F5G44390 
F5G44400 
F5G44410 
F5G44420 
F5G44430 
F5G44440 
F5G44450 
F5G44460 
F5G44470 
F5G44480 
F5G44490 
F5G44500 
F5G44510 
F5G44520 
F5G44530 
F5G44540 
F5G44550 
F5G44560 
F5G44570 
F5G44580 
F5G44590 
F5G44600 



")lr 



u 



u 



n 



03540 





07400 


4 


00004 HTRD2 


TSX 


4*4 


03541 


-0 


53400 


2 


00331 PASS2 


LXD 


LD12»2 


03542 





77200 





00203 


REW 


OTAPE 


03543 


1 


00145 


2 


03544 1TXI 


TXI 


1TXI+1*2 
INITIAL 


03544 


-0 


63400 


2 


00450 BE6BB 


SXD 


BB0X1*2 


03545 





50000 





00316 


CLA 


ONED 


03546 





40000 





00443 


ADD 


BBNO 


03547 





60100 





00443 


STO 


BBNO 


03550 





77100 





00022 


ARS 


18 


03551 





40200 





07774 


SUB 


KEYS 


03552 





40000 





00315 


ADD 


ONEA 


03553 





10000 





04413 


TZE 


LSTBB 


03554 





50000 





01101 


CLA 


SXST 


03555 


-0 


12000 





03560 


TMI 


BEGBBY 


03556 





50000 





00337 


CLA 


ADDMK 


03557 





60100 





01101 


STO 


SXST 


03560 





50000 





00443 BEGBBY 


CLA 


BBNO 


03561 





07400 


4 


00070 


TSX 


SE»4 


03562 


-0 


50000 


1 


06444 


CAL 


BBB+2»1 


03563 





77100 





00022 


ARS 


18 


03564 





40200 





00340 


SUB 


STMSK 


03565 





60100 





00460 


STO 


CIND 


03566 





50000 





00315 


CLA 


ONEA 


03567 





60100 





00660 


STO 


SLV3 


03570 


-0 


50000 





00443 


CAL 


BBNO 


03571 





40000 





00316 


ADD 


ONED 


03572 





0740U 


4 


00070 


TSX 


SE»4 


03573 





50000 


1 


06447 


CLA 


BBB+5tl 


03574 





60100 





00444 


STO 


NXTLOC 
DETERMI 


03575 





56000 





00314 Zl 


LDQ 


ZERO 


03576 


-0 


60000 





00667 


STO 


Z1V5 


03577 





50000 


1 


06442 


CLA 


BBBtl 


03600 





62100 





00665 


STA 


Z1V2 


03601 


-0 


50000 





00443 


CAL 


BBNO 


03602 





07400 


4 


00070 


TSX 


SE»4 


03603 


-0 


50000 


1 


06442 


CAL 


BBB » 1 


03604 





62100 





00666 


STA 


Z1V3 


03605 





62100 





00670 


STA 


Z1V8 


03606 





50000 





00666 


CLA 


Z1V3 


03607 





34000 





00665 Z15 


CAS 


Z1V2 


03610 





02000 





03612 


TRA 


Z12 


03611 





02000 





03626 


TRA 


12 


03612 





07400 


4 


00055 Z12 


TSX 


SE5»4 


03613 





50000 


1 


07337 


CLA 


PRED.l 


03614 


-0 


32000 





00332 


ANA 


LT7 


03615 





76700 





00003 


ALS 


3 


03616 


-0 


73400 


4 


00000 


PDX 


0*4 


03617 


-0 


50000 





00416 


CAL 


Z1K3 


03620 





77100 


4 


00007 


ARS 


7»4 


03621 


-0 


60200 





00667 


ORS 


Z1V5 


03622 





50000 





00666 


CLA 


Z1V3 


03623 





40000 





00315 


ADD 


ONEA 



ERROR ON 5TH TRY DIAGNOSTIC 



tZINST+1 

IZE FOR START OF BB 

STORE INDEX OF POSITION ON ONST TABOE 



WAS THIS THE LAST BB 

Y£S» GL GO WRITE PARTIAL BLOLK 
NO 



GET ENTRANCE REQUIREMENT 

FOR IR4 

STORE + OR - IF IR4 

ISNT OR IS NECESSARY 

RECORD THERE ISNT HANGING TRA 

FIND THE 1ST INST IN NEXT 

BB 



NE WHICH LXD CASES EXIST » RESULT IN Z1V5 
INITIALIZE THE EXISTENCE 
INDICATOR WORD 

GET AND STORE NO. OF 1ST PRED IN 
NEXT BB 



STORE THE NO OF 
1ST PRED IN 
THIS BB 

IS THIS PRED IN SAME BB 

YES 

NO 

DETERMINE THE 
LXD CASE 



STORE BIT AS INDICATOR 
FOR THIS 
LXD CASE 

ARRANGE TO DEAL WITH NEXT 



F5G44610 

F5644620 

F5644630 

F5G44640 

F5G44650 

F5G44660 

F5G44670 

F5G44680 

F5G44690 

F5G44700 

F5G44710 

F5G44720 

F5G44730 

F5G44740 

F5G44750 

F5G44760 

F5G44770 

F5G44780 

F5G44790 

F5G44800 

F5G44810 

F5G44820 

F5G44830 

F5G44840 

F5G44850 

F5G44860 

F5G44870 

F5G44880 

F5G44890 

F5G44900 

F5G44910 

F5G44920 

F5G44930 

F5G44940 

F5G44950 

F5G44960 

F5G44970 

F5G44980 

F5G44990 

F5G45000 

F5G45010 

F5G45020 

F5G45030 

F5G45040 

F5G45050 

F5G45060 

F5G45070 

F5645080 

F5G45090 

F5G45100 

F5G45110 

F5G45120 

F5G45130 

F5G45140 



.o 2 ' 



is »/ 



03624 
03625 



03626 
03627 
03630 
03631 
03632 
03633 
03634 
03635 
03636 
03637 
03640 
03641 
03642 
03643 
03644 
03645 
03646 
03647 
03650 
03651 
03652 
03653 
03654 
03655 
03656 
03657 
03660 
03661 
03662 
03663 
03664 
03665 
03666 
03667 
03670 
03671 
03672 
03673 
03674 
03675 
03676 
03677 
03700 
03701 
03702 
03703 
03704 
03705 
03706 
03707 



62100 
02000 



56000 
53400 
60000 
50000 
40200 



60100 1 



00001 
53400 
50000 
60100 
00001 
53400 1 
56000 
50000 
73400 
77300 
16200 
50000 
60100 
53400 
56000 
50000 
73400 
50000 
32000 
40000 
10000 
50000 
40200 
76500 
20000 
62100 
50000 
77100 
32000 
34000 
02000 
02000 
60100 
63400 
00001 
53400 
50000 
73400 
50000 
1 00001 
60100 
75400 
60100 



50000 



00666 
03607 



00314 
00422 
00715 
00422 
00316 
00674 
03630 
00331 
00416 
00712 
03637 
00422 
00667 
00432 
00000 
00007 
03711 
00434 
00674 
00422 
00314 
00674 
00000 
00676 
00432 
00676 
03676 
00432 
00676 
00025 
00433 
03667 
00432 
00000 
00434 
00674 
03676 
03676 
00674 
00675 
03652 
00675 
00674 
00000 
00432 
03704 
00676 
00000 
00674 
00416 



STA 
TRA 



OPEN S« 
BY Zl 



Z2 



LDQ 
LXA 

221 STQ 
CLA 
SUB 
STO 
TIX 
LXD 
CLA 

Z28 STO 
TIX 
LXD 

Z25 LDQ 
CLA 
PAX 
RQL 
TOP 
CLA 
STO 
LXA 
Z23 LDQ 
CLA 
R004 PDX 
CLA 
ANA 
SBM 
TNZ 
CLA 
SUB 
LRS 
MPY 
STA 
CLA 

Z22 ARS 
ANA 
CAS 
TRA 
TRA 
STO 
SXD 

Z27 TIX 
LXD 
CLA 
PDX 
CLA 

Z24 TXI 
STO 
PXD 
STO 
CLA 



Z1V3 
Z15 

THIS 

Z1V5 
ZERO 
Z2K2fl 
LLIND»1 
Z2K1+3»1 
ONED 
Z2V1+3*1 
Z21*l»l 
LD12fl 
MZE 

LIST1+12*1 
Z28*l»l 
Z2K2»1 
Z1V5 

CASE+7»1 
0t2 
7*2 
Z26 
Z2K5 
Z2V2 
Z2K2»2 

ZERO I 
Z2Vl+3*2 
0*4 QUANTI 
LIST1.4 
CASE+7*1 
LIST1»4 
Z27 

CASE+7>1 
LIST1»4 
21 

Z2K4 

Z22 LOGICAL 
Z2K3 
SET 
Z2K5 
Z2V2 
Z27 
Z27 
Z2V2 
Z2V3.2 
Z23»2*l 
Z2V3*2 
Z2Vl+3»2 
0*4 

CASE+7*1 
Z24+l»4*l 
LIST1»4 
0*4 

Z2Vl+3»2 
MZE 



PRED 
R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN 



SET THE 3 1NDEXDS TO THE SUB 
BOTTOM POSITIONS 
IN THE 3 LISTS AND ALL 
INDICATORS TO SAY COMPILED 



PLACE -0 S IN THE 
LXD LISTS 

SET TO BEGINNING OF CASE LIST 

DID 

THIS 

CASE 

OCCURR 

YES* SET NO OF ONES IN 
DIFFERENCE TO HIGH NUMBER 
INITIALIZE TO 1ST LIST 
S P004 

TY IN THE LIST 
IS THE TOP 
YES* DETERMINE 
CONTAINED IN THIS 
CASE 

YES* DETERMINE 
THE NO. 
OF ONES 
IN THE 

DIFFERENCE 



IS THE NUMBER OF ONES IN THE 
DIFFERENCE LESS THAN OR EQUAL TO 
THE PREVIOUS MINIMUM. NO 

YES* STORE NEW MIN 

STORE INDEX OF LIST OF GIVING NEW MIN 

COUNT TO 3 LISTS ARE WE THRU 

UES* GET INDEX OF LIST WITH MIN DIFF 

STIRE 

THIS 

CASE AT TOP OF 

THAT LIST 

STORE INDEX OF TOP 
POSITION IN THAT LIST 
STORE INDICATION THAT THE 



F5G45150 

F5G45160 

F5G45170 

F5G45180 

F5G45190 

F5G45200 

F5G45210 

F5G45220 

F5G45230 

F5G45240 

F5G45250 

F5G45260 

F5G45270 

F5G45280 

F5G45290 

F5G453O0 

F5G45310 

F5G45320 

F5G45330 

F5G45340 

F5G45350 

F5G45360 

F5G45370 

F5G45380 

F5G45390 

F5G45400 

F5G45410 

F5G45420 

F5G45430 

F5G45440 

F5G45450 

F5G45460 

F5G45470 

F5G45480 

F5G45490 

F5G45500 

F5G45510 

F5G45520 

F5G45530 

F5G45540 

F5G45550 

F5G45560 

F5G45570 

F5G45580 

F5G45590 

F5G45600 

F5G45610 

F5G45620 

F5G45630 

F5G45640 

F5G45650 

F5G45660 

F5G45670 

F5G45680 



6^ 



u 



u 



f 



03710 





60100 


2 


00715 




STO 


LLIND»2 


03711 


2 


00001 


1 


03642 


Z26 


TIX 


Z25»l.l 
EXPAND TNE 


03712 





50000 





00434 


Z3 


CLA 


Z2K5 


03713 


-0 


40000 





00700 




SBM 


LIST1+2 


03714 





10000 





04003 




TZE 


Z307 


03715 





50000 





00700 




CLA 


LIST1+2 


03716 


-0 


32000 





00704 




ANA 


LIST2+2 


03717 





10000 





3 766 




TZE 


Z35 


03720 





34000 





CO 7 00 




CAS 


LIST1+2 


03721 





02000 





03723 




TRA 


Z31 


03722 





02000 





03760 




TRA 


Z33 


03723 





34000 





00704 


Z31 


CAS 


LIST2+2 


03724 





02000 





03726 




TRA 


Z32 


03725 





02000 





03763 




TRA 


Z34 


03726 





60100 





00701 


Z32 


STO 


LIST1+3 


03727 


-0 


76000 





00003 




SSM 




03730 





60100 





00705 




STO 


LIST2+3 


03731 





02000 





04015 




TRA 


Z306 


03732 


-0 


76000 





00003 


Z38 


SSM 




03733 





60100 





00711 




STO 


LIST3+3 


03734 





02000 





04015 




TRA 


Z306 


03735 


-0 


76000 





00003 


Z39 


SSM 




03736 





60100 





00701 




STO 


LIST1+3 


03737 





02000 





04015 




TRA 


Z306 


03740 





50000 





00704 


Z300 


CLA 


LIST2+2 


03741 


-0 


32000 





00710 




ANA 


LIST3+2 


03742 





10000 





04015 




TZE 


Z306 


03743 





34000 





00704 




CAS 


LIST2+2 


03744 





02000 





03746 




TRA 


Z301 


03745 





02000 





03755 




TRA 


Z303 


03746 





34000 





00710 


Z301 


CAS 


LIST3+2 


03747 





02000 





03751 




TRA 


Z302 


03750 





02000 





04013 




TRA 


Z304 


03751 





60100 





00711 


Z302 


STO 


LIST3+3 


03752 


-0 


76000 





00003 




SSM 




03753 





60100 





00705 




STO 


LIST2+3 


03754 





02000 





04015 




TRA 


Z306 


03755 


-0 


76000 





00003 


Z303 


SSM 




03756 





60100 





00711 




STO 


LIST3+3 


03757 





02000 





04015 




TRA 


Z306 


03760 


-0 


76000 





00003 


Z33 


SSM 




03761 





60100 





00705 




STO 


LIST2+3 


03762 





02000 





04015 




TRA 


Z306 


03763 


-0 


76000 





00003 


Z34 


SSM 




03764 





60100 





00701 




STO 


LIST1+3 


03765 





02000 





04015 




TRA 


Z306 


03766 





50000 





00700 


Z35 


CLA 


LIST1+2 


03767 


-0 


32000 





00710 




ANA 


LIST3+2 


03770 





10000 





03740 




TZE 


Z300 


03771 





34000 





00700 




CAS 


L1ST1+2 


03772 





02000 





03774 




TRA 


Z36 


03773 





02000 





03732 




TRA 


Z38 


03774 





34000 





00710 


Z36 


CAS 


LIST3+2 



LIST IS TO BE COMPILED 
COUNT THE 7 CASES 
LXD LISTS 
IS THE 

BOTTOM ENTRY OF 
LIST1 A CASE 7 
NO» DO THE BOTTOMS 
OF LISTS 1 AND 2 HAVE 
A NON ZERO INTERSECTION 
YES* DOES INTERSECTION EQUAL 1 

YES 

IS IT EQUAL TO BOTTOM OF 2 

YES 

STORE INTERSECTION IN SUB1 
POSITITON AND -(INTER*) IN 
SUB2 POS. 

ENTER -INTER1 AND 3 
IN SUB3 POS. 

ENTER - INTER 1 AND 3 
INSUV1 POS. 

DO BOTTOM ENTRIES 
OF 2 AND 3 HAVE 
NONZERO INTERSECTION 
YES. IS INTRE 2 AND 3 

YES 

IS INTERSECTION EQUAL TO BOTTOM OF LIST 3 

YES 

STORE INTER 2 AND 3 IN SUB 3 POS. 

AND -INTER IN 

SUB 2 POS. 

ENTER -(INTER 2 AND 3 > 
IN SUB 3 POS* 

ENTER H INTER 1 AND 2 ) 
IN SUB 2 POS. 

STORE -(INTER 1 AND 2 ) 
IN SUB 1 POS. 

DO BOTTOM ENTRIES IN 

1 AND 3 HAVE NONZERO 

INTERSECTION 

YES* IS IT EQUAL TO BOT. 1 

YES 

TO THE BOTTOM ENTRY IN 3 



F5G45690 

F5G45700 

F5G45710 

F5G45720 

F5G45730 

F5G45740 

F5G45750 

F5645760 

F5G45770 

F5G45780 

F5G45790 

F5G45800 

F5G45810 

F5G45820 

F5G45830 

F5G45840 

F5G45850 

F5G45860 

F5G45870 

F5G45880 

F5G45890 

F5G45900 

F5G45910 

F5G45920 

F5G45930 

F5G45940 

F5G45950 

F5G45960 

F5G45970 

F5G45980 

F5G45990 

F5G460O0 

F5G46010 

F5G46020 

F5G46030 

F5G46040 

F5G46050 

F5G46060 

F5G46070 

F5G46080 

F5G46090 

F5G46100 

F5G46110 

F5G46120 

F5G46130 

F5G46140 

F5G46150 

F5G46160 

F5G46170 

F5G46180 

F5G46190 

F5G46200 

F5G46210 

F5G46220 



03775 
03776 
03777 
04000 
04001 
04002 
04003 
04004 
04O05 
04006 
04007 
04010 
04011 
04012 
04013 
04014 
040^5 
04016 
04017 
04020 
04021 
04022 
04023 
04024 
04025 
0^026 
04027 
04030 
04031 
04032 
04033 
04034 
04035 
04036 
04037 
04040 
04041 
04042 
04043 
04044 
04045 
04046 
04047 
04050 
04051 
04052 

04053 
04054 
04055 
04056 
04057 
04060 
04061 






-0 





02000 

02000 

60100 

76000 

60100 

02000 

-0 63400 

50000 

60100 

50000 

60100 

50000 

60100 

02000 

-0 76000 

60100 

~0 53400 2 

53400 

50000 

10000 

40200 

-0 32000 

10000 

60100 

50000 

-0 10000 

50000 

60100 

1 77774 

2 00001 
50000 

-0 40000 

-0 10000 

50000 

40200 

-0 32000 

-0 10000 

50000 

60100 

50000 

40200 

60100 

40200 

32000 

-0 50000 

-0 60200 



56000 
-0 60000 

53400 
-0 60000 

2 00001 

50000 
~0 12000 



03777 

03735 

00711 Z37 

00003 

00701 

04015 

00671 Z3Q7 

00321 

00676 

00317 

00677 

00315 

00700 

04053 

00003 Z304 

00705 Z305 

00324 Z306 

00314 

00700 Z309 

04031 

00315 

00700 

04031 

00^57 

00701 

04031 

00457 

00701 

04032 Z308 

04017 

00434 

00677 

04053 

00700 

00315 

00700 

04053 

00700 

00701 

00434 

00700 

00700 

00315 

00700 

00701 

00700 

00416 Z4 

01125 

00322 

01125 Z411 

04056 

01101 

04140 



TRA 
TRA 
STO 
SSM 
STO 
TRA 
SXD 
CLA 
STO 
CLA 
STO 
CLA 
STO 
TRA 
SSM 
STO 
LXt> 
LXA 
CLA 
TZE 
SUB 
ANA 
TZE 
STO 
CLA 
TNZ 
CLA 
STO 
TXI 
TIX 
CLA 
SBM 
TNZ 
CLA 
SUB 
ANA 
TNZ 
CLA 
STO 
CLA 
SUB 
STO 
SUB 
ANS 
CAL 
ORS 

LDQ 
STQ 
LXA 
STQ 
TIX 
CLA 
TMI 



Z37 
Z39 
LIST3+3 

LIST1+3 

Z306 

Z2V1»0 

L7 

LIST1 

L3 

LIST1+1 

ONEA 

LIST1+2 

Z4 

LI ST 2+3 

LD3i2 

ZERO»l 

LIST1+2»1 

Z308 

ONEA 

LIST1+2»1 

Z308 

TMP10 

LIST1+3»1 

Z308 

TMP10 

LIST1+3»1 

Z3Q8+l»l*-4 

Z3Q9»2tl 

Z2K5 

LIST1+1 

Z4 

LI ST 1+2 

ONEA 

LIST1+2 

Z4 

LIST1+2 

LIST1+3 

Z2K5 

LIST1+2 

LIST1+2 

ONEA 

LIST1+2 

LIST1+3 

LIST1+2 

DETECT ANO 
MZE 
SXAS 
L19»4 
SXST+20»4 
Z411»4»l 
SXST 
Z5 



YES 

ENTER INTER 1 ANO 3 IN SUB 
3 POS* AND -( INTER ) IN 
SU81 POS« 

CREATE THE LIST 



ENTER - INTER 2 AND 3 

INSUB2 POS. 

SET COUNT TO 3 

SET TO INSPECT 1ST LIST 

IS THE BOTTOM ENTRY ZERO 

NO 

DOES IT HAVE TWO ONES 

YES 

IS THE SUB BOTTOM 

ENTRY ZERO 

YES 

PREPARE FOR NEXT LIST 
COUNT TO 3 



COMPILE ANY SEQUENTIAL TRANSFER 
PUT MINUS ZEROS IN 
THE ASSOXIATED 
SXDPOSITIONS 



IS THERE A SEQUENTIAL TRANSFER 



F5G46230 
F5G46240 
F5G46250 
F5G46260 
F5G46270 
F5G46280 
F5G46290 
F5G46300 
F5G46310 
F5G46320 
F5G46330 
F5G46340 
F5G46350 
F5G46360 
F5G46370 
F5G46380 
F5G46390 
F5646400 
F5G46410 
F5G46420 
F5G46430 
F5G46440 
F5G46450 
F5G46460 
F5G46470 
F5G46480 
F5G46490 
F5G46500 
F5G46510 
F5G46520 
F5G46530 
F5G46540 
F5G46550 
F5G46560 
F5G46570 
F5G46580 
F5646590 
F5G46600 
F5G46610 
F5G46620 
F5G46630 
F5G46640 
F5G46650 
F5G46660 
F5G46670 
F5G46680 
F5G46690 
F5G46700 
F5G46710 
F5G46720 
F5G46730 
F5G46740 
F5G46750 
F5G46760 



67- 



o 



u 



04062 


-0 


50000 





00443 




CAL 


BBNO 


04063 





77100 





00022 




ARS 


18 


04064 





40200 





00315 




SUB 


ONEA 


04065 





60100 





00457 




STO 


TMP10 


04066 





50000 





00670 




CLA 


Z1V8 


04067 





60100 





00666 


249 


STO 


Z1V3 


04070 





07400 


4 


00055 




TSX 


SE5*4 


04071 


-0 


50000 


1 


07337 




CAL 


PRED*1 


04072 


-0 


32000 





00337 




ANA 


ADDMK 


04073 





40200 





00457 




SUB 


TMP10 


04074 





10000 





04100 




TZE 


Z410 


04075 


-0 


50000 





00666 




CAL 


Z1V3 


04076 





40000 





00315 




ADD 


ONEA 


04077 





02000 





04067 




TRA 


Z49 


04100 





50000 





00666 


Z410 


CLA 


Z1V3 


04101 





07400 


4 


02211 




TSX 


SH*4 


04102 





50000 





00466 




CLA 


SXD1 


04103 





40000 





00467 




ADD 


SXD2 


04104 





40000 





00470 




ADD 


SXD3 


04105 





10000 





04117 




TZE 


244 


04106 





53400 


4 


00320 




LXA 


L4»4 


04107 





50000 


4 


00471 


Z41 


CLA 


SXDl+3»4 


04110 





60100 


4 


01105 




STO 


SXST+4*4 


04111 


2 


00001 


4 


04107 




TIX 


Z41*4»l 


04112 





53400 


1 


00314 




LXA 


ZER0»i 


04113 





07400 


4 


02242 




TSX 


SI *4 


04114 





02000 





04140 




TRA 


Z47 


04115 





07400 


4 


02^40 


242 


TSX 


SM*4 


04116 





02000 





04140 




TRA 


247 


04117 


-0 


53400 


4 


00465 


244 


LXD 


SXD0s4 


04120 


-3 


00000 


4 


04136 




TXL 


Z46»4*0 


04121 


-0 


75400 


4 


00000 




PXD 


0*4 


04122 





77100 





00022 




ARS 


18 


04123 





60100 





00715 




STO 


Z4V1 


04124 


-0 


53400 


2 


00324 




LXD 


LD3*2 


04125 





50000 


2 


00674 


Z45 


CLA 


Z2Vl+3»2 


04126 


-0 


73400 


1 


00000 




PDX 


0*1 


04127 





50000 


1 


00676 




CLA 


LIST1»1 


04130 





40200 





00715 




SUB 


Z4V1 


04131 





10000 





04115 




TZE 


Z42 


04132 


2 


00001 


2 


04125 




TIX 


Z45»2*l 


04133 





50000 





00715 




CLA 


Z4V1 


04134 





07400 


4 


02403 




TSX 


SLt4 


04135 





02000 





04140 




TRA 


Z47 


04136 





50200 





00315 


Z46 


CLS 


ONEA 


04137 





60100 





00660 


Z48 


STO 


SLV3 










04140 


Z47 


SYN 


Z48 + 1 
FORM TH 


04140 





50000 





00316 


Z5 


CLA 


ONED 


04141 





60100 





00716 




STO 


Z5V1 


04142 





50000 





00670 




CLA 


Z1V8 


04143 





60100 





00666 


Z53 


STO 


Z1V3 


04144 





40200 





00665 




SUB 


Z1V2 


04145 





10000 





04263 




TZE 


Z6 



YES 



PUT NO OF PREV* BB IN TMP10 
INITIALIZE 1ST PRED NO THIS BB 



IS THIS THE SEQUENTIAL 
TRANSFERS PRED ENTRY 

40* TRY NEXT ONE 



GET THE PRED NO 
FORM THE SXD CASE 



IS THIS A SXD CASE 

ISNT SXD CASt 

RECORD SXD CASE 

IN POSITION ASSOCIATED 

WITH SEQUENTIAL TRANSFER 

COMPILE THE SXD 

INST* WITH 

(1) ASSOCIATED SXD WITH LXD CASE 

(2)ASS0CIATED WITH AN LXD LIST 

(3) NOT ASSOCIATED { TRA COMPILED ) 

DOES IT HAVE A LXD CASE 

NO 

LXD CASE TO AC (ADDR) 

SET COUNT TO 3 * N=l 

GET INDEX 

OF TOP QUANTITY IN LIST N 

IS THE LXD CASE OF THIS SXD 

CASE THE SAME AS 

THE TOP QUANTITY IN LIST N 

NO* COUNT TO 3 

COMPILE A 

TRA (LXD ) 

RECORD THAT THERE 

IS A HANGING TRA OCASE 

SXD LIST AND THE SYN CARD LIST 
SET INDEX IN SYN TABLE 

RESET 1 ST PRED IN BB 

IS THIS PRED IN SAME BB 
NO* ADD FINISHED 



F5G46770 
F5G46780 
F5G46790 
F5G46800 
F5G46810 
F5G46820 
F5G46830 
F5646840 
F5G46850 
F5G46860 
F5G46870 
F5G46880 
F5G46890 
F5G46900 
F5G46910 
F5646920 
F5G46930 
F5646940 
F5G46950 
F5G46960 
F5G46970 
F5G46980 
F5G46990 
F5G47000 
F5G47010 
F5G47020 
F5G47030 
F5G47040 
F5G47050 
F5G47060 
F5G47070 
F5G47080 
F5G47090 
F5G47100 
F5G47110 
F5G47120 
F5G47130 
F5G47140 
F5G47150 
F5G47160 
F5G47170 
F5G47180 
F5G47190 
F5G47200 
F5G47210 
F5G47220 
F5G47230 
F5G47240 
F5G47250 
F5647260 
F5647270 
F5647280 
F5G47290 
F5G47300 



£ s/ 



04146 
04147 



-0 


50000 
12000 






01101 
04153 




CLA 
TMI 


SXST 
Z51 


YES 

WAS THERE A SEQUENTIAL TRANSFER 


04150 


-0 


32000 





00337 




ANA 


ADDMK 


YES» EXTRACT ADDRESS 


04151 





40200 





00666 




SUB 


Z1V3 


HAS PRED ALREDY BEEN CONSIDERED 


04152 





10000 





04213 




TZE 


Z55 


AS A SEQUENTIAL TRANSFER 


04153 





50000 





00666 


Z51 


CLA 


Z1V3 


NO 


04154 





07400 


4 


02211 




TSX 


SH»4 


GENERATE SXD CASE 


04155 





50000 





00466 




CLA 


SXD1 


IS THE 


04156 





40000 





00467 




ADD 


SXD2 


SXD CASE 


04157 





40000 





00470 




ADD 


SXD3 


ZERO 


04160 


0. 


10000 





04213 




TZE 


Z55 




04161 





53400 


1 


00314 




LXA 


ZERO*l 


NO* PREPARE TO SCAN SXD LIST 


04162 





50000 


1 


01101 


Z503 


CLA 


SXST»1 


IS SUBSXDO 


04163 


-0 


32000 





00335 




ANA 


DECMK 




04164 





60100 





00457 




STO 


TMP10 




04165 





50000 





00465 




CLA 


SXDO 




04166 


-0 


32000 





00335 




ANA 


DECMK 




04167 





402OO 





00457 




SUB 


TMP10 




04170 


-0 


10000 





04216 




TNZ 


Z54 




04171 





50000 


1 


01102 




CLA 


SXST+1»1 


THIS SXD CASE 


04172 





40200 





00466 




SUB 


SXD1 




04173 


-0 


10000 





04216 




TNZ 


Z54 




04174 





50000 


1 


01103 




CLA 


SXST+2»1 


SAME AS 


04175 





40200 





00467 




SUB 


SXD2 




04176 


-0 


10000 





04216 




TNZ 


Z54 




04177 





50000 


1 


01104 




CLA 


SXST+3»1 


THE ONE ALREADY 


04200 





40200 





00470 




SUB 


SXD3 


STORED 


04201 


-0 


10000 





04216 




TNZ 


Z54 




04202 





50000 


1 


01101 




CLA 


SXST»1 


YES* STORE INDICATION 


04203 


-0 


53400 


2 


00716 




LXD 


Z5V1*2 




04204 


-0 


32000 





00337 




ANA 


ADDMK 


SYN* 2 CARD 


04205 





60100 


2 


02125 




STO 


SYN»2 


IN THE 


04206 





50000 





00465 




CLA 


SXDO 


SYN 


04207 





76700 





00022 




ALS 


18 


LIST 


04210 





62200 


2 


02125 




STD 


SYNt2 




04211 


1 


00001 


2 


04212 


Z52 


TXI 


Z52+l»2»l 




04212 
04213 


-o 




63400 
50000 


2 



00716 
00666 


Z55 


SXD 
CLA 


Z5V1*2 
Z1V3 


PREPARE TO DEAL WITH NEXT PRED 


04214 





40000 





00315 




ADD 


ONEA 




04215 





02000 





04143 




TRA 


Z53 




04216 





50000 


1 


01101 


Z54 


CLA 


SXST»1 




04217 





12000 





04232 




TPL 


Z502 


IS THIS SXD POS. EMPTY 


04220 


-0 


53400 


2 


00324 




LXD 


LD3*2 


YES 


04221 


-3 


00000 


1 


04232 




TXL 


Z502»lt0 


IS THIS ST CASE 


04222 


3 


77773 


1 


04233 




TXH 


Z504»l»-4-l 


NO* IS THIS LIST CASE 


04223 


3 


77767 


1 


04242 




TXH 


Z507*l»-8-l 


NO 1ST 


04224 


3 


77763 


1 


04241 




TXH 


Z506»l»-12-1 


2ED 


04225 
04226 


3 



77757 
07400 


1 
4 


04240 
04252 




TXH 
TSX 


Z505»l»-16-1 
Z500»4 


3RD 
ENTER THE SXD CASE IN THE LIST 


04227 
04230 






50000 
60100 



1 


00416 
01105 




CLA 
STO 


MZE 
SXST+4tl 


STORE END MARK FOR SYN CAEDS 


04231 





02000 





04213 




TRA 


Z55 




04232 


1 


77774 


1 


04162 


Z502 


TXI 


Z503»lt-4 


EXAMINE NEXT SXD CASE 


04233 


-0 


50000 





00465 


Z504 


CAL 


SXDO 


ZERO LIST CASE 



F5647310 
F5G47320 
F5G47330 
F5G47340 
F5G47350 
F5G47360 
F5G47370 
F5G47380 
F5G47390 
F5G47400 
F5G47410 
F5G47420 
F5G47430 
F5G47440 
F5G47450 
F5G47460 
F5G47470 
F 5447440 
F5G47490 
F5G47500 
F5G47510 
F5G47520 
F5G47530 
F5G47540 
F5G47550 
F5G47560 
F5G47570 
F5G47580 
F5G47590 
F5G47600 
F5G47610 
F5G47620 
F5G47630 
F5G47640 
F5G47650 
F5G47660 
F5G47670 
F5G47680 
F5G47690 
F5G47700 
F5G47710 
F5G47720 
F5G47730 
F5G47740 
F5G47750 
F5G47760 
F5G47770 
F5G47780 
F5G47790 
F5G47800 
F5G47810 
F5G47820 
F5G47830 
F5G47840 



u 



u 



04234 


-0 


32000 





00335 




ANA 


DECMK 


04235 


-0 


10000 





04232 




TNZ 


Z502 


04236 





07400 


4 


04252 




TSX 


Z500f4 


04237 





02000 





04213 




TRA 


Z55 


04240 


2 


00001 


2 


04241 


Z505 


TIX 


Z505+l»2»l 


04241 


2 


00001 


2 


04242 


Z506 


TIX 


Z506+li2»l 


04242 


-0 


50000 


2 


00674 


Z507 


CAL 


Z2Yl+3»2 


04243 


-0 


73400 


4 


00000 




PDX 


0»4 


04244 





50000 





00465 




CLA 


SXDO 


04245 





77100 





00022 




ARS 


18 


04246 





40200 


4 


00676 




sue 


LIST1*4 


04247 


-0 


10000 





04232 




TNZ 


Z502 


04250 





07400 


4 


04252 




TSX 


Z500»4 


04251 





02000 





04213 




TRA 


Z55 
SUBROUTIN 


04252 





50000 





00465 


Z5Q0 


CLA 


SXDO 


04253 





60100 


1 


01101 




STO 


SXST»1 


04254 





50000 





00466 




CLA 


SXD1 


04255 





60100 


1 


01102 




STO 


SXST+1»1 


04256 





50000 





00467 




CLA 


SXD2 


04257 





60100 


1 


01103 




STO 


SXST+2*1 


04260 





50000 





00470 




CLA 


SXD3 


04261 





60100 


1 


01104 




STO 


SXST+3»1 


04262 





02000 


4 


00001 




TRA 


l»4 
COMPILE T 


04263 





53400 


1 


00333 


Z6 


LXA 


LM20?1 


04264 





50000 


1 


01101 


Z61 


CLA 


SXST»1 


04265 


-0 


12000 





04274 




TMI 


Z7 


04266 


-0 


63400 


1 


04271 




SXD 


Z6V1*1 


04267 





07400 


4 


02242 




TSX 


SI»4 


04270 





76100 





00000 




NOP 




04271 


3 


00000 





00000 


Z6V1 


TXH 


0»OtSET 


04272 


-0 


53400 


1 


04271 




LXD 


Z6V1»1 


04273 


1 


77774 


1 


04264 




TXI 


Z6l*l»-4 
COMPILE T 


04274 


-0 


53400 


2 


00324 


Z7 


LXD 


LD3»2 


04275 





50000 


2 


00422 


Z72 


CLA 


Z2Kl+3#2 


04276 


-0 


73400 


1 


00000 




PDX 


0»1 


04277 





50000 


1 


00676 




CLA 


LIST1»1 


04300 


-0 


12000 





04350 




TMI 


Z75 


04301 





10000 





04320 




TZt 


Z73 


04302 





50000 


1 


00677 




CLA 


LIST1+1»1 


04303 





10000 





04350 




TZE 


Z75 


04304 





12000 





04350 




TPL 


Z75 


04305 





50000 





00720 




CLA 


Z7V2 


04306 


-0 


12000 





04320 




TMI 


Z73 


04307 





50000 


2 


00443 


Z76 


CLA 


Z7Kl+3»2 


04310 


-0 


73400 


1 


00000 




PDX 


0*1 


04311 





50000 


1 


01101 




CLA 


SXST»1 


04312 


-0 


63400 


2 


00717 




SXD 


Z7Vlt2 


04313 


-0 


12000 





04344 




TMI 


274 


04314 





07400 


4 


02242 




TSX 


SIf4 


04315 





02000 





04317 




TRA 


Z71 


04316 





02000 





04333 




TRA 


111 



IS THE LXD CASE 

YES* ENTER SXD CASE IN 
ASSOCIATED POSITION 
GENERATE INDEX OF LIST 

IS 

THE 
LXD 

CASE THE 
SAME 

YES 



INE FOR ENTERING SXD CASE IN SXD LIST 



THE SXD LIST 

SET TO START OF SXD LIST 

IS THIS SXD POSITION EMPTY 

NO 

COMPILE THE SXD CASE WITH 

(1) LXD CASE* OR 

(2) THIS RETURN CANT OCCURR 

(3) TRA ALREADY CONPILED 

TNE LXD LISTS AND ASSOCIATED SXD S 
SET TO BEGIN SCAN OF LISTS 

PUT INDEX OF BOTTOM POSITION IN 1 

YES» IS IT A TRA{0) CASE 
IS THE LIST FILLED 
PERHAPS* IS IT A FOR SURE 

IT IS IF EITHER THE SUB BOTTOM 
ENTRY IS ~0 OR POSITIVE 

IS THIS 1ST TIME THRU 

YES 

IS THERE ASSOCIATED 

SXDLIST 



YES» COMPILE SXD CASE 
COMPILE 



F5G47850 

F5G47860 

F5G47870 

F5G47880 

F5G47890 

F5G47900 

F5G47910 

F5G47920 

F5G47930 

F5G47940 

F5G47950 

F5G47960 

F5G47970 

F5G47980 

F5G47990 

F5G48000 

F5G48010 

F5G48020 

F5G48030 

F5G48040 

F5G48050 

F5G48060 

F5G48070 

F5G48080 

F5G48090 

F5G48100 

F5G48110 

F5G48120 

F5G48130 

F5G48140 

F5G48150 

F5G48160 

F5648170 

F5G48180 

F5G48190 

F5G48200 

F5G48210 

F5G48220 

F5G48230 

F5G48240 

F5G48250 

F5G48260 

F5G48270 

F5G48280 

F5G48290 

F5G48300 

F5G48310 

F5G48320 

F5G48330 

F5G48340 

F5G48350 

F5G48360 

F5G48370 

F5G48380 



sn 



04317 


-0 


53400 


2 


00717 


Z71 


LXD Z7V1#2 




04320 


2 


00001 


2 


04275 


Z73 


TIX Z72.2»l 


COUNT TO 3 


04321 





50200 





00720 




CLS Z7V2 


IS THIS 1ST TIME THRU 


04322 





60100 





00720 




STO Z7V2 




04323 


-0 


12000 





04274 




TMI Z7 


YES» GO BACK CLASXST 


04324 





50000 





01105 




CLA SXASO 


IS THERE A ASSOCIATED 


04325 


-0 


12000 





04353 




TMI Z8 




04326 





53400 


1 


00334 




LXA LM4»1 


YES 


04327 





07400 


4 


02242 




TSX SI»4 


COMPILE SXD CASE 


04330 





02000 





04353 




TRA Z8 




04331 





02000 





04353 




TRA Z8 




04332 





02000 





04353 




TRA Z8 




04333 


-0 


53400 


2 


00717 


Z77 


LXD Z7V1.2 




04334 





50000 


2 


00715 




CLA Z4V1»2 




04335 


-0 


12000 





04344 




TMI Z74 




04336 





50000 


2 


00443 




CLA Z7Kl+3f2 




04337 


-0 


73400 


1 


00000 




PDX 0*1 




04340 





50000 


1 


01101 




CLA SXSTtl 




04341 





77100 





00022 




ARS 18 




04342 





07400 


4 


02403 




TSX SL*4 




04343 





02000 





04317 




TRA Z71 




04344 





50000 


2 


00674 


Z74 


CLA Z2Vl+3#2 


COMPILE THE LXD LIST 


04345 


-0 


73400 


1 


00000 




PDX Ofl 




04346 





07400 


4 


02440 




TSX SM»4 




04347 





02000 





04317 




TRA Z71 




04350 





50000 





00720 


Z75 


CLA Z7V2 


IS THIS 1ST TIME THRU 


04351 


-0 


12000 





04307 




TMI Z76 


N0» 2ED TIME 


04352 





02000 





04320 




TRA Z73 

COMPILE ANY 


YES 

SYN CARDS 


04353 


-0 


50000 





00443 


Z8 


CAL BBNO 


FORM 


04354 





77100 





00022 




ARS 18 


AND 


04355 





60100 





00457 




STO TMP10 


STORE 


04356 





07400 


4 


00067 




TSX SE1»4 




04357 


-0 


50000 


1 


06442 




CAL BBB»1 


-UDSXD)-(BBN0) + (1ST PRE 


04360 


-0 


32000 





00337 




ANA ADDMK. 




04361 





76700 





00012 




ALS 10 




04362 





40200 





00457 




SUB TMP10 




04363 





40200 





00410 




SUB IDSXD 




04364 





60100 





00457 




STO TMP10 




04365 


-0 


53400 


2 


00716 




LXD Z5V1»2 


SET TO START OF SYN LIST 


04366 


-3 


00001 


2 


04407 


Z81 


TXL Z83»2»l 


ARE WE THRU 


04367 


2 


00001 


2 


04370 


Z82 


TIX Z82+l»2»l 


DECREASE INDEX 


04370 
04371 


-0 
-0 


50000 
32000 


2 




02125 
00335 




CAL SYN.2 
ANA DECMK 


COMPILE THE SYN CARD 


04372 





77100 





00010 




ARS 8 




04373 





40200 





00457 




SUB TMP10 




04374 





07400 


4 


02367 




TSX SK»4 




04375 





50000 





00346 




CLA LSYN 




04376 





07400 


4 


02367 




TSX SK*4 




04377 


-0 


5 0000 


2 


02125 




CAL SYN»2 




04400 


-0 


32000 





00337 




ANA ADDMK 




04401 





76700 





00012 




ALS 10 




04402 





40200 





00457 




SUB TMP10 




04403 





07400 


4 


02367 




TSX SK»4 





F5G48390 
F5G48400 
F5G48410 
F5G48420 
F5G48430 
F5G48440 
F5G4845Q 
F5G48460 
F5G48470 
F5G48480 
F5G48490 
F5G48500 
F5G48510 
F5G48520 
F5G48530 
F5G48540 
F5G48550 
F5G48560 
F5G48570 
F5G48580 
F5G48590 
F5G48600 
F5G48610 
F5G48620 
F5G48630 
F5G48640 
F5G48650 
F5G48660 
F5G48670 
F5G48680 
F5G48690 
F5G48700 
F5G48710 
F5G48720 
F5G48730 
F5G48740 
F5G48750 
F5648760 
F5G48770 
F5G48780 
F5G48790 
F5G48800 
F5G48810 
F5G48820 
F5G48830 
F5G48840 
F5G48850 
F5G48860 
F5G48870 
F5G48880 
F5G48890 
F5G48900 
F5G48910 
F5G48920 



'26 



u 



u 



") 



04404 
04405 
04406 
04407 
04410 
04411 
04412 



04413 
04414 
04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04430 
04431 
04432 
04433 
04434 
04435 
04436 
04437 
04440 
04441 
04442 
04443 
04444 
04445 
04446 
04447 
04450 
04451 
04452 
04453 



50000 
07400 
02000 
53400 
50000 
60100 
02000 



76200 
70000 
02000 
02000 
07400 
53400 
53400 
76200 
70000 
77777 
02000 
76600 
76000 
02000 
63400 
00000 
50000 
07400 
77777 
77200 
53400 
53400 
63400 
00143 
76600 
00000 
70000 
77777 
77000 
02000 
76400 
00001 
07400 



00000 
00001 

00000 
00001 

00000 
00001 



00004 

ooooo 

07337 
00000 

04740 
00000 



00314 

02367 

04366 

00450 Z83 

00416 

01101 

02525 



04516 00000 



00224 
00457 
04420 
04413 
00004 
00325 
00337 
00224 
1 04516 
1 04423 
04436 
00333 
00012 
04451 
04432 
04421 
04516 
02367 
04432 
00204 
00412 
00655 
04444 
04447 
00223 
04447 
00655 
04444 
00203 
00030 
00204 
04421 
00004 
04454 
00000 
00000 
00030 
05215 
00000 
07337 
07470 
00000 
04740 
04773 
00000 



LSTBB 



EF3 
EFRTB 

EFCPY 



EFTXL 

EFREW 

LSTXL 

LSWEF 
EFERR 

RELSR 



CLA 
TSX 
TRA 
LXD 
CLA 
STO 
TRA 



RTB 
CPY 
TRA 
TRA 
TSX 
LXD 
LXA 
RTB 
CPY 
TXI 
TRA 
IOD 
RTT 
TRA 
SXD 
TXL 
CLA 
TSX 
TXI 
REW 
LXA 
LXD 
SXD 
TXH 
WTB 
TXL 
CPY 
TXI 
WEF 
TRA 
BST 
TIX 
TSX 
BSS 

ORG 
HTR 
HTR 
ORG 
HTR 
HTR 
ORG 
HTR 
HTR 
ORG 



ZERO 

SK»4 

Z81 

BB0X1*2 

MZE 

SXST 

FNDAS 
WRITE TH E 
AFTER PUTT 

INSTTP 

TMP10 

EF3 

LSTBB 

4*4 DIAGNO 

LD4»4 

ADDMK*3 

INSTTP 

RELSR»1 

EFCPY»i»-l 

EFREW 



GET INDEX OF COMPILED INDT 
RECORD NO SEQUENTIAL TRANSFER 



LAST BLOCK OF C.I. T. ON TAPE 
ING RELATIVE CONSTANT ROUTINES AT END 

AN END OF „«,.T f », cc 

FILE SEPARATES RELATIVE CONST. ROUTINES 

END FILE ALREADY READ 
READ END FILE 
STIC» ERROR 

TRY 4 TIMES 
READ IN NEXT RECORD 
OF RELATIVE CONSTANT SUBROUTINES 



END OF FILE » END OF INST* 



EFERR 

EFTXLtl 

EFRTB*2»SET 

R£LSR»2 

SK*4 

EFTXL*2s-l 

INSTTP 

SKK1»1 

SKV1»4 

LSTXL»4 

LSWEF»4»LCLST-1 

OTAPE 

LSWEF. lf- 

CLST*1 

LSTXL*1*-1 

OTAPE 

R 

INSTTP 

EFRTB»4»1 

Wth 4TH ERROR* TO DIAGNOSTIC 

PTi_4 SPACE FOR PATCHES 

START OF REL. CONST. ROUTINES 

r,0»4 CONTROL CARD PART 1* 

CMTAG-1 



PRED»0»PRED CONTROL CARD PART IB. 

I9A+2 



STORE END TEST 

COMPILE THE INSTRUCTIONS 



REWIND THE TAPE 

SET 1 TO LENGTH OF CS BLOCK 

INDEX OF NEXTCLST POSITION 

IS BLOCK EMPTY 
NO s WRITE 
IT ON TAPE 



WRITE AN END FILE 



QS»0»QS 
0S8 + 1 




CONTROL CARD* PART 1C 



F5G48930 

F5G48940 

F5G48950 

F5G48960 

F5G48970 

F5G48980 

F5G48990 

F5G49000 

F5G49010 

F5G49020 

F5G49030 

F5G49040 

F5G49050 

F5G49060 

F5G49070 

F5G49080 

F5G49090 

F5G49100 

F5G49110 

F5G49120 

F5G49130 

F5G49140 

F5G49150 

F5G49160 

F5G49170 

F5G49180 

F5G49190 

F5G49200 

F5G49210 

F5G49220 

F5G49230 

F5649240 

F5G49250 

F5G49260 

F5G49270 

F5G49280 

F5G49290 

F5G49300 

F5G49310 

F5G49320 

F5G49330 

F5G49340 

F5G49350 

F5G49360 

F5G49370 

F5G49371 

F5G49372 

F5G49373 

F5G49374 

F5G49375 

F5G49376 

F5G49377 

F5G49378 

F5G49379 



00000 





04740 





04740 


HTR 


QPUtO*QPU 


00001 





00000 





04773 
00000 


HTR 
ORG 


QPU8+1 



00000 





04740 





04740 


HTR 


OSU»0»QSU 


00001 





00000 





04773 
00000 


HTR 
ORG 


0SU8+1 



00000 





00320 





00317 


HTR 


BLV09»0»BL12 


00001 





00000 





00655 
00000 


HTR 
ORG 


BLIST 



00000 





00320 





00320 


HTR 


START»0»START 


00001 





00000 





00647 
00000 


HTR 
ORG 


ASCON 



00000 





03541 





00317 


HTR 


L3»0»PASS2 


00001 





00000 





04516 
03541 


HTR 
END 


RELSR 
PASS2 



CONTROL CARD, PART ID. 
CONTROL CARD» PART IE* 
CONTROL CARD* PART 2. 
CONTROL CARD, PART 3« 
CONTROL CARD* PART 4» 



F5G49380 
F5G49381 
F5G49382 
F5G49383 
F5G49384 
F5G49385 
F5G49386 
F5G49387 
F5G49388 
F5G49389 
F5G49390 
F5G49391 
F5G49392 
F5G49393 
F5G49394 



^ 



o 



u 



REM APPLIED PROGRAMMING/ FORTRAN. 704 = EST.NO. 8081* JOB NO. 1. 

APPLIED PROGRAMMING/ FORTRAN. 704 = EST.NO. 8081 t JOB NO. 1, 



THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING= 

** IN THE ADDRESS* TAG» OR DECREMENT OF AN INSTRUCTION 

INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM. 

* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 

THIS LOGICAL BLOCK OR SUBROUTINE. 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED. 

P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED <PATCH>. 

******************************* 
704 FORTRAN 2 / SECTION 5PRIME / A. S. NOBLE* JR. / 12 FEB 58 



00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 
00045 
00046 



76400 
76400 
53400 
76200 
53400 
70000 
77777 
07400 
76400 
76000 
00000 
63400 

1 00000 

2 00001 
07400 



00030 



00203 5PRIME 

00203 

00420 

00223 

00413 

00445 CPYCIT 

00035 

00004 

00203 

00012 

00045 

00044 

00047 BBOX 

00033 RTT0N1 

00004 



ORG 



BST 
BST 
LXA 
RTB 
LXA 
CPY 
TXI 
TSX 
BST 
RTT 
TXI 
SXD 
TXI 
TIX 
TSX 



5PRIME COMPILES ASSIGN CONSTANTS* FIXED POINT CONSTANTS 

FLOATING POINT CONSTANTS* REGION SIX CONSTANTS AND FORMAT 

STATEMENTS. THE FOLLOWING TABLES ARE PUT ON DRUMS FOR USE IN 

THE ASSEMBLY PROGRAM ••• SIZ* TEIFNO* EQUIT* CLOSUB* FORSUB. 

24 

SETCIT/ CALLS=DIAG. 

SET UP CIT BUFFER* COUNTER* AND TAPE FOR COMPILING. 



CITTAP 

CITTAP 

TERC.2 

CITTAP 

L(0}*1 

CIBtl 

CPYCIT.l.-l 

DIAG»4 

CITTAP 

RTTON1»0 

BB0X»1 

5P1ASC*0»** 

CPYCIT-2»2*1 

DIAG.4 

END OF PROGRAM SETCIT. 
************ 



BACKSPACE CIT TAPE OVER EOF MARK 

AND LAST RECORD. 

SET TAPE ERROR COUNTER FOR 5 TRYS. 

SELECT CIT TAPE FOR READING. 

COPY LAST 

CIT RECORD 

INTO CIT BUFFER. 

* EOF ERROR - GO TO DIAGNOSTIC. 
REPOSITION CIT TAPE* AND 

IF TAPE RECORD 

WAS READ CORRECTLY* 

SAVE CIT COUNTER* 

* AND GO READ ASSIGN CONSTANTS. 
OTHERWISE* GO REREAD RECORD UNLESS 

* 5 ATTEMPTS FAILED - GO TO DIAG. 

******************* 



5P1ASC/ CALLS=5PS1R»5PS2C. 

READ IN AND COMPILE ASSIGN CONSTANTS. 



00047 


76400 





00202 


5P1ASC 


BST 


TABTAP 


00050 


07400 


4 


00304 




TSX 


5PS1R»4 


00051 


-3 00000 


1 


00053 




TXL 


SETOP»1»0 


00052 


07400 


4 


00331 




TSX 


5PS2C»4 


00053 


50000 





00431 


SETOP 


CLA 


OCTLOP 


00054 


60100 





00442 




STO 


W0RD2 

END OF PROGRAM 5P1ASC. 
************ 



POSITION TABLE TAPE* AND 
* GO READ ASSIGN CONSTANTS. 

IF NO ENTRIES* GO SET OP TO OCT. 
» GO COMPILE ASSIGN CONSTANTS. 

SET W0RD2 OF COMPILED INSTRUCTION 

TO (OCT000) BCD FOR FUTURE USE. 

******************* 



5P2FXC/ CALLS=5PS1R.5PS2C. 
READ IN AND COMPILE FIXCON. 



-?3 



3«T 



00055 


53400 2 00416 


5P2FXC 


LXA L(3) #2 


00056 


76400 00202 




BST TABTAP 


00057 


2 00001 2 00056 




TIX 5P2FXC+1.2.1 


00060 


07400 4 00304 




TSX 5PSlRt4 * 


00061 


-3 00000 1 00065 




TXL 5P3F3D.1.0 * 


00062 


50000 00426 




CLA FIXSYM 


00063 


60100 00441 




STO W0RD1 


00064 


07400 4 00331 




TSX 5PS2C.4 * 
END OF PROGRAM 5P2FXC. 
************* 



POSITION 

TABLE TAPE 

TO FIXCON. 

GO READ FIXCON INTO BUFFER. 

IF NO ENTRIESf GO READ IN FORSUB. 

SET W0RD1 OF COMPILED 

INSTRUCTION TO (200000) BCD. 

GO COMPILE FIXCON ENTRIES. 

****************** 



5P3F3D/ CALLS=5PS1R.5PS3D. 

TRANSFER FORSUB TABLE FROM TAPE 2 TO DRUM 3. 



00065 





53400 


2 00420 


5P3F3D 


LXA 


L(5).2 




POSITION 


00066 





76400 


00202 




BST 


TABTAP 




TABLE TAPE 


00067 


2 


00001 


2 00066 




TIX 


5P3F3D+1.2.1 




TO DO TAG B 


00070 





76200 


00222 




RTB 


TABTAP 




RECORD COUNT 


00071 





70000 


00440 




CPY 


5PERAS 




AND ADD 23 


00072 


-0 


53400 


1 00440 




LXD 


5PERAS.1 




TO THIS TO 


00073 


1 


00027 


1 00074 




TXI 


BKSPC.1.23 




POSITION 


00074 





76400 


00202 


BKSPC 


BST 


TABTAP 




TABLE TAPE 


00075 


2 


00001 


1 00074 




TIX 


BKSPC.1.1 




TO FORSUB. 


00076 





07400 


4 00304 




TSX 


5PS1R.4 


* 


GO READ FORSUB INTO BUFFER. 


00077 





60000 


00613 




STZ 


WRDCNT 




IF THERE WERE 


00100 


-3 


00000 


1 00107 




TXL 


EMPTY1.1.0 




ENTRIES MADE IN 


00101 


-0 


75400 


1 00433 


L(SIX) 


PXD 


SIX.l 




FORSUB TABLE 


00102 





76000 


00006 




COM 






COMPUTE THE 


00103 





40100 


00425 




ADM 


DECR1 




WORD COUNT 


00104 





62200 


00613 




STD 


WRDCNT 




AND THEN 


00105 





07400 


4 00345 




TSX 


5PS3D1»4 


* 


GO WRITE FORSUB ONTO DRUM3. 


00106 


1 


00000 


00110 




TXI 


5P4FLC.0 


* 


WHEN DONE* GO READ IN FLOCON. 


00107 





07400 


4 00351 


EMPTY1 


TSX 


5PS3D3»4 

END OF PROGRAM 5P3F3D. 
************ 


* 
* 


IF FORSUB IS EMPTY. RECORD WRD CNT. 
****************** 



5P4FLC/ CALLS=5PS1R»5PS2C. 
READ IN AND COMPILE FLOCON. 





00110 


76200 





00222 


5P4FLC 


RTB 


TABTAP 












00111 


70000 





00440 




CPY 


5PERAS 










D 


00112 


1 00000 





00111 




TXI 


5P4FLC+1.0 










D 


00113 


1 00000 





00115 




TXI 


EOFILE. 












00114 


1 77773 





00110 


MINUS5 


TXI 


5P4FLC»0*-5 












00115 


76600 





00333 


EOFILE 


IOD 














00116 


-0 76000 





00012 




RTT 














00117 


76100 





00000 




NOP 














00120 


07400 


4 


00304 




TSX 


5PS1R.4 








* 




00121 


-3 00000 


1 


00125 




TXL 


5P5R6C.1.0 








* 




00122 


50000 





00427 




CLA 


FLOSYM 












00123 


60100 





00441 




STO 


W0RD1 












00124 


07400 


4 


00331 




TSX 


5PS2Ct4 








* 
















END OF PROGRAM 


5P4FLC. 
















****** 


* 


* 


* * 


* * * 



FIND 

NEXT 

END OF FILE 

ON TABLE TAPE 

TO LOCATE FLOCON. 

WHEN DONE. 

MAKE SURE TAPE CHECK 

LIGHT IS TURNED OFF. AND 

GO READ FLOCON INTO BUFFER. 

IF NO ENTRIES. GO COMPILE REGI0N6. 

SET W0RD1 OF COMPILED 

INSTRUCTION TO (300000) BCD. 

GO COMPILE FLOCON ENTRIES. 

****************** 



5P5R6C/ CALLS=5PS2C. 



i^y 



u 



u 



00125 





50000 





00126 





60100 





00127 





50000 





00130 





62100 





00131 


-0 


53400 


1 


00132 





07400 


4 



COMPILE REGION-SIX CONSTANTS, 



00430 5P5R6C CLA SIXSYM 
00441 STO W0RD1 
00101 CLA L(SIX) 
00333 STA COMP 
00114 LXD MINUS5*1 
00331 TSX 5PS2C»4 

END OF PROGRAM 5P5R6C, 



SET W0RD1 OF COMPILED 
INSTRUCTION TO (600000) BCD. 
SET COMPILING 
SUBROUTINE (5PS2) 
TO PICK UP THE FIVE CONSTANTS. 
* GO COMPILE REGION-SIX CONSTANTS. 

A--**************-***'* 



00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 



50000 00137 5P6FTC CLA 

63000 00306 STP 

50000 00424 CLA 

07400 4 00304 TSX 

00000 1 00154 TXLOP TXL 

50000 00432 CLA 

60100 00442 STO 

53400 2 00413 LXA 

50000 2 00614 COMPW1 CLA 

60100 00441 STO 

77777 2 00146 TXI 

50000 2 00614 C0MPW3 CLA 

60100 00443 STO 

07400 4 00370 TSX 

1 00002 1 00152 TXI 
•3 00000 1 00154 TESTF TXL 

1 77777 2 00143 TXI 



5P6FTC/ CALLS=5PS1R*5PS4W. 

READ IN AND COMPILE FORMAT TABLE. 



TXLOP 
0PSW1 
L(10) 
5PS1R»4 
5P7CBW*1>0 
4MAT0P 
W0RD2 
L(0) »2 
BUFFER*2 
W0RD1 

COMPW3»2i-l 
BUFFER»2 
W0RD3 
5PS4W»4 
TESTF»1*2 
5P7CBW*1»0 
C0MPWlt2»~l 
END OF PROGRAM 5P6FTC. 



SET OP SWITCH 

IN READING ROUTINE (5PS1) 

TO TEST FOR CORRECT TABLE NUMBER. 

* GO READ IN FORMAT TABLE. 

* IF NO ENTRIES* GO WRITE OUT CIT. 
SET W0RD2 OF COMPILED 
INSTRUCTION TO ( BCDOOO ) BCD. 
MOVE 

FORMAT 
ENTRY 
INTO 

W0RD1 AND 
W0RD3. 

* THEN GO COMPILE FORMAT TABLE. 
IF NO ENTRIES REMAIN* 

* THEN GO WRITE OUT CIT BUFFER. 
OTHERWISE* CONTINUE COMPILING. 



00154 

00155 -0 

00156 -0 

00157 
00160 
00161 
00162 
00163 



5P7CBW. 

TERMINATE COMPILING. 
76600 00223 5P7CBW WTB CITTAP 
53400 2 00044 LXD BB0X»2 
63400 2 00162 SXD TESTC»2 
53400 2 00413 LXA L(0)»2 
70000 2 00445 WRCIB CPY CIB»2 
77777 2 00162 TXI TESTC.2.-1 
00000 2 00160 TESTC TXH WRCIB>2»** 
77000 00203 WEF CITTAP 

END OF PROGRAM 5P7CBW. 

**♦#******** 



WR I TE 

THE CONTENTS 

OF THE 

CIT BUFFER 

ONTO 

TAPE3 

FOLLOWED BY 

AN END OF FILE. 



00164 -0 50000 

00165 63000 

00166 



5P8S2D/ CALLS=5PS1R*5PS3D. 

TRANSFER SIZ TABLE FROM TAPE 2 TO DRUM 2. 
00137 5P8S2D CAL TXLOP SET OP SWITCH IN 5PS1R 

00310 STP 0PSW2 TO COPY EIFNO* BUT SKIP TABNO TEST. 

07400 4 00304 TSX 5PS1R*4 * GO READ IN SIZ TABLE + EIFNO. 



00167 50000 00612 

00170 60100 00611 

00171 50000 00351 

00172 40200 00414 



CLA TABNUM 
STO EIFNO 
CLA SETDRM 
SUB L( 1) 



MOVE EIFNO 

INTO PROPER LOCATION. 
SET DRUM ROUTINE (5PS3D) 
TO WRITE ONTO DRUM2. 



r$ 



/ 



00173 
00174 
00175 
00176 
00177 
00200 
00201 
00202 



60100 00351 



75400 
62100 
00000 
50000 

07400 

1 00000 
07400 



STO SETDRM 



02000 DRMLOC PXD 1024*0 



00174 STA DRMLOC 

00202 TXL EMPTY2,1,0 
00613 CLA WRDCNT 
00346 T5X 5PS3D2»4 

00203 TXI 5P9T4D*0 
00351 EMPTY2 TSX 5PS3D3,4 

END OF PROGRAM 5P8S2D. 
******************* -fr**-********* 



SET DRUM ADDRESS 

FOR REMAINING DRUM TABLES 

TO ZERO. 

IF THERE WERE ENTRIES MADE 

IN SIZ TABLE* PICKUP WRDCNT AND* 

GO WRITE SIZ ONTO DRUM2. 

WHEN DONE* GO READ IN TEIFNO* 

IF SIZ IS EMPTY* 'GO RECORD WRD CNT. 



00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
0O214 
00215 
00216 
00217 
00220 
00221 
00222 



53400 
76200 
2 00001 
50000 
63000 
50000 
07400 
50000 
63000 
50O00 
40000 O 
60100 
-3 00000 1 
07400 4 
i 00000 
07400 4 



00420 
00222 
00204 
00137 
00310 
00413 
00304 
00137 
00354 
00351 
00415 
00351 
00222 
00344 
00223 
00351 



5>9T4D LXA 
RTB 
TIX 
CLA 
STP 
CLA 
TSX 
CLA 
STP 
CLA 
ADD 
STO 
TXL 
TSX 
TXI 

EMPTY3 TSX 



5P9T4D/ 
TRANSFER 
L<5>,2 
TABTAP 

5P9T4D-H,2»1 
TXLOP 
0PSW2 
L(O) 
5PS1R»4 
TXLOP 
DRMSW 
SETDRM 
L(2) 
SETDRM 
EMPTY3*1 
5PS3D»4 
5P10ED»0 
5PS3D3,4 
END OF 



CALLS=5PS1R,5PS3D* 
TEIFNO TABLE FROM TAPE 2 TO DRUM 4. 
MOVE TABLE TAPE 



♦ 



OVER END OF FILE AND 1ST FOUR 
TABLES TO POSITION FOR TEIFNO. 
SET OP SWITCH IN 5PS1R 
TO MAKE TABLE NUMBER TEST. 
PICKUP TEIFNO TABLE NUMBER, AND 

* GO READ IN TEIFNO TABLE. 
SET OP SWITCH IN 5PS3D 
TO WRITE EIFNO ON DRUM. 
SET DRUM ROUTINE 

TO WRITE ONTO 

DRUM 4. 

IF THERE WERE ENTRIES MADEIN TEIFNO 

* GO WRITE EIFNO AND TEIFNO ON DRUM4* 

* WHEN DONE, GO READ IN EQUIT. 

* IF TEIFNO IS EMPTY, RECORD WRD CNT. 



PROGRAM 5P9T4D. 



****** 



* * * * 



***** 



* * * * 



00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 



53400 
76200 
2 00001 
50000 
07400 
-0 50000 
63000 
50000 
40200 
60100 
-3 00000 
•0 53400 
53400 
76000 
36100 

56000 
"0 60000 

1 77777 
1 77777 
36100 



1 00421 

00222 

1 00224 
00422 
4 00304 
00137 
00354 
00351 
00416 

00351 

1 00270 
00613 
00413 
00000 
00614 
00614 
03550 
00245 
00246 
00614 



5P10ED LXA 

RTB 

TIX 

CLA 

TSX 

CAL 

STP 

CLA 

SUB 

STO 

TXL 

LXD 

LXA 

EQCHS CLM 

CLASS ACL 

LDQ 

STQ 

TXI 

NXT1 TXI 

NXT2 ACL 



5P10ED/ CALLS-5 

TRANSFER EQUIT 

L(7),l 

TABTAP 

5P10ED+1, 1,1 

L(8) 

5PS1R,4 

TXLOP 

DRMSW 

SETDRM 

L(3> 

SETDRM 

EMPTY4*1*G 

WRDCNT, 4 

L(0),3 

BUFFER, 1 
BUFFER, 1 
NEWEQ,2 
NXT1»1#<-1 
NXT2»2»-1 
BUFFER ,1 



PS1R»5PS3D. 

TABLE FROM TAPE 2 TO DRUM 1. 

MOVE TABLE TAPE 

OVER 7 RECORDS 

TO POSITION FOR EQUIT. 

PICKUP EQUIT TABLE NUMBER, AND 
* GO READ IN EQUIT TABLE- 
SET OP SWITCH IN 5PS3D 

TO SKIP WRITING OF EIFNO. 

SET DRUM ROUTINE 

TO WRITE ONTO 

DRUM1. 

IF EQUIT IS EMPTY, RECORD WRDCNT. 

OTHERWISE, 

COMPUTE A 

LOGICAL 

CHECK 

SUM 

FOR 

EACH 

EQUIVALENCE 

CLASS 



o 



u 



00247 


56000 


1 


00614 




LDO 


BUFFER*1 


AND 


00250 


-0 60000 


2 


03550 




STQ 


NEWEQf2 


MOVE 


00251 


1 77777 


1 


00252 




TXI 


NXT3»1*-1 


EACH 


00252 


1 77777 


2 


00253 


NXT3 


TXI 


NXT4»2»-1 


CLASS 


00253 


1 77776 


4 


00254 


NXT4 


TXI 


NXT5»4f-2 


FOLLOWED 


00254 


16200 





00241 


NXT5 


TOP 


CLASS 


BY ITS 


00255 


60200 


2 


03550 


L(NEQ) 


SLW 


NEWEQ»2 


CHECK 


00256 


1 77777 


2 


00257 




TXI 


NXT6»2»-1 


SUM 


00257 


3 00001 


4 


00240 


NXT6 


TXH 


EQCHS»4*1 


INTO NEWEQ. 


00260 


-0 75400 


2 


00000 




PXD 


• 2 


COMPUTE 


00261 


76000 





00006 




COM 




THE 


00262 


40100 





00425 




ADM 


DECR1 


NEW 


00263 


62200 





00613 




STD 


WRDCNT 


WORDCOUNT 


00264 


77100 





00022 




ARS 


18 


AND 


00265 


73400 


1 


00000 




PAX 


• 1 


THE 


00266 


40000 





00255 




ADD 


L(NEQ) 


NEW 


00267 


62100 





00362 




STA 


CADDRM 


MEMORY ADDRESS » AND 


00270 


07400 


4 


00351 


EMPTY4 


TSX 


5PS3D3»4 
END OF PROGRAM 5P10ED. 


* GO WRITE EQUIT ON DRUM !• 



******************************* 



5P11CD/ CALLS=5PS1R*5PS3D. 

TRANSFER CLOSUB TABLE FROM TAPE 2 TO DRUM 3. 



00271 





50000 





00423 


5P11CD 


CLA 


L(9) 


00272 





07400 


4 


00304 




TSX 


5PS1R»4 


00273 





50000 





00351 




CLA 


SETDRM 


00274 





40000 





00415 




ADD 


L(2) 


00275 





60100 





00351 




STO 


SETDRM 


00276 


-3 


00000 


1 


00301 




TXL 


EMPTY5»1»0 


00277 





07400 


4 


CO 344 




TSX 


5PS3D»4 


00300 


1 


00000 





00302 


5PXR1 


TXI 


END5P»0»** 


00301 





07400 


4 


00351 


EMPTY5 


TSX 


5PS3D3t4 


00302 





76200 





00221 


END5P 


RTB 


SYSTAP 


00303 


1 


00000 





00004 


5PXR2 


TXI 


SECSIX»0.** 

END OF PROGRAM 5P11CD. 
************ 



PICKUP CLOSUB TABLE NUMBER* AND 

* GO READ IN CLOSUB TABLE. 
SET DRUM ROUTINE 

TO WRITE ONTO 

DRUM3. 

IF THERE WERE ENTRIES MADEIN CLOSUB 

* GO WRITE CLOSUB ONTO DRUM3. 
THEN GO CALL SECTION SIX. 

* IF CLOSUB IS EMPTY* RECORD WRDCNT. 
SPACE OVER DIAGNOSTIC RECORD* 

* THEN GO CALL SECTION SIX. 

******************* 



END OF PROGRAM 5PRIME. 



**************** 



















5PS1R* 


















5P9T4D 


















READ A 




00304 





53400 


2 


00420 


5PS1R 


LXA 


TERC»2 




00305 





76200 





00222 


READ 


RTB 


TABTAP 


D 


00306 


-3 


00000 





00315 


0PSW1 


TXL 


SKIP*0 




00307 





70000 





00612 




CPY 


TABNUM 


D 


00310 


3 


00000 





00315 


0PSW2 


TXH 


SKIP»0 




00311 





34000 





00612 




CAS 


TABNUM 





00312 


1 


00000 





00314 




TXI 


STOP»0 




00313 


1 


00000 





00315 


5PXR4 


TXI 


SKIP»0 




00314 





07400 


4 


00004 


STOP 


TSX 


DIAG»4 




00315 





70000 





00613 


SKIP 


CPY 


WRDCNT 




00316 





53400 


1 


00413 




LXA 


L(0)>1 



4/ CALLERS=5P1ASC»5P2FXC»5P3F3D»5P4FLC»5P6FTC*5P8S2D* 

»5P10ED»5P11CD. CALLS=DIAG. 
RECORD FROM TAPE 2. 

SET TAPE ERROR COUNTER FOR 5 TRYS. 
SELECT TABLE TAPE FOR READING. 
IF OP SWITCH IS SET TO TXH* 
THEN COPY 1ST WORD INTO TABNUM. 
IF OP SWITCH IS SET TO TXH* 
THEN COMPARE C(ACJ WITH TABNUM= 
IF INCORRECT RECORD - GO TO STOP. 

*** IF EQUAL - THEN CONTINUE. 

* IF INCORRECT RECORD - GO TO DIAG. 
READ WORD COUNT* 
AND THEN READ 



*T 



; 



00317 


70000 


1 


00614 


COPY 


CPY 


8UFFER»1 


00320 


1 77777 


1 


00317 




TXI 


COPY»l»~l 


00321 


07400 


4 


00004 




TSX 


DIAGt4 


00322 


76600 





00333 




IOD 




00323 


-0 76000 





00012 




RTT 




00324 


1 00000 





00326 




TXI 


RTTONtO 


00325 


02000 


4 


00001 




TRA 


1*4 


00326 


76400 





00202 


RTTON 


BST 


TABTAP 


00327 


2 00001 


2 


00305 




TIX 


READ*2»1 


00330 


07400 


4 


00004 




TSX 


DIAG»4 

END OF PROGRAM 5PS1R# 
************ 



COMPLETE TABLE 
INTO BUFFER. 

* IF END OF FILE -GO TO DIAGNOSTIC. 
WHEN DONEt 

IF TAPE RECORD 

WAS READ CORRECTLY* 

* RETURN TO MAIN ROUTINE. 
OTHERWISE* BACKSPACE TAPE* AND 
GO REREAD RECORD UNLESS 

* 5 ATTEMPTS FAILED - GO TO DIAG. 

******************* 



00331 


-0 


63400 


4 


00313 


5PS2C 


SXD 


5PXR4t4 


00332 





53400 


2 


00413 




LXA 


L(0)*2 


00333 





50000 


2 


00614 


COMP 


CLA 


BUFFER»2 


00334 





60100 





00443 




STO 


W0RD3 


00335 





07400 


4 


00370 




TSX 


5PS4W>4 


00336 


1 


00001 


1 


00337 




TXI 


TESTtltl 


00337 


-3 


00000 


1 


00342 


TEST 


TXL 


EXIT2»1»0 


00340 





60000 





00441 




STZ 


WORDl 


00341 


1 


77777 


2 


00333 




TXI 


C0MP»2*-1 


00342 


-0 


53400 


4 


00313 


EXIT2 


LXD 


5PXR4»4 


00343 





02000 


4 


00001 




TRA 


1*4 

END OF PROGRAM 5PS2C. 
*********** 



5PS2C*4/ CALLS=5PS4W. CALLERS=5P1ASC*5P2FXC»5P4FLC*5P5R6C. 
COMPILE 4-WORD INSTRUCTIONS FROM BUFFER ENTRIES. 

SAVE CCXR4) FOR EXIT. 

MOVE 

ENTRY 

INTO WORD3* 

* AND GO COMPILE INSTRUCTION. 
IF NO ENTRIES REMAIN* 
THEN TAKE EXIT2. 
SET WORDl TO ZERO* 
AND COMPILE SUCCEEDING ENTRIES. 
RESTORE C(XR4J » AND 

* RETURN TO MAIN ROUTINE. 

#******#****# ******* 



5PS3D»4/ CALLERS=5P3F3D»5P8S2D*5P9T4D»5P10ED»5P11CD. 
WRITE TABLE ONTO DRUM FOLLOWED BY CHECKSUM. 



00344 





50000 





00613 


5PS3D 


CLA 


WRDCNT 


SET C(XRl) 


00345 





77100 





00022 


5PS3D1 


ARS 


18 


EQUAL TO 


00346 





73400 


1 


00614 


5PS3D2 


PAX 


BUFFER*! 


THE WORD COUNT 


00347 





40000 





00346 




ADD 


5PS3D2 


AND INITIALIZE 


00350 





62100 





00362 




STA 


CADDRM 


CAD ADDRESS. 


00351 





76600 





00303 


5PS3D3 


WDR 


3 


WRITE ONTO 


00352 





76000 





00000 




CLM 




THE DRUM* 


00353 





46000 





00174 




LDA 


DRMLOC 


ACCORDING TO SWITCH SETTING. 


00354 


-3 


00000 





00357 


DRMSW 


TXL 


DRMSW+3»0 


IF OP SWITCH IS TXH* 


00355 





70000 





00611 




CPY 


EIFNO 


WRITE EIFNO FOLLOWED 


00356 





70000 





00611 




CPY 


EIFNO 


BY ITS CHECKSUM. 


00357 





70000 





00613 




CPY 


WRDCNT 


WRITE WORD COUNT FOLLOWED 


00360 





70000 





00613 




CPY 


WRDCNT 


BY ITS CHECKSUM* AND THEN 


00361 


-3 


00000 


1 


00367 




TXL 


EXIT3*1*0 


UNLESS THE BUFFER IS EMPTY* 


00362 


-0 


70000 


1 


00000 


CADDRM 


CAD 


**»1 


WRITE THE 


00363 


2 


00001 


1 


00362 




TIX 


CADDRM»1»1 


CONTENTS OF BUFFER 


00364 





70000 





00413 




CPY 


L(0) 


ONTO DRUM FOLLOWED 


00365 





60200 





00440 




SLW 


5PERAS 


BY ZERO AND THEN 


00366 





70000 





00440 




CPY 


5PERAS 


THE LOGICAL CHECKSUM. 


00367 





02000 


4 


00001 


EXIT3 


TRA 


lt4 

END OF PROGRAM 5PS3D. 
************ 


♦RETURN TO MAIN ROUTINE. 
*************** 



* * * * 



&* 



o 



u 



00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 



63400 
63400 
53400 
77634 
76600 
53400 
70000 
00001 
00000 
77777 
53400 
50000 
60100 
77777 
00001 
63400 
53^00 
53400 
02000 



00300 5PS4W 

00303 

00044 

00402 

00223 

00413 

00445 WRITE 

00400 

00402 TESTB 
00376 
00417 

00445 MOVE 
00445 
00406 

00403 TESTA 
00044 
00300 
00303 
00001 



5PS4W»4/ CALLERS=5P6FTC 
MOVE 4-WORD INSTRUCTION 

SXD 5PXR1»1 

SXD 5PXR2»2 

LXD BB0X#2 

TXH MOVE-l»2f-100 

WTB CITTAP 

LXA L(0)»1 

CPY CIB»1 

TXI TESTB»2»1 

TXL MOVE-1»2.0 

TXI WRITE»1*-1 

LXA L(4)»l 

CLA W0RD1+4»1 

STO CIBf2 

TXI TESTA»2»-1 

TIX M0VE»1»1 

SXD BB0X»2 

LXD 5PXRltl 

LXD 5PXR2»2 

TRA 1»4 

END OF PROGRAM 5PS4W. 
************ 



♦5PS2C. 
INTO CIB» AND WRITE CIB ONTO TAPE3. 

SAVE C(XR1) AND 
SAVE CUR2U 
IF THE NUMBER OF 
WORDS ENTERED = 100» 
THEN 
WRITE 

THE CONTENTS 
OF THE CIT 
BUFFER 
ONTO TAPE3t 
MOVE 
NEW 

4 WORD 
INSTRUCTION 
INTO CIT BUFFER. 
ADJUST BUFFER COUNT* 
RESTORE CCXR1) ♦ 
RESTORE CIXR2) » AND 
* EXIT TO MAIN ROUTINE. 

******************* 



00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 



00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 
00001 
020000000000 
030000000000 
060000000000 
462363000000 
222324000000 
233000000000 
000000077777 
000000000000 
000001000000 
000000000000 



CONSTANTS USED BY 5 PRIME, 

00000 L(0) PZE 

00001 L(1J PZE 1 

00002 L(2) PZE 2 

00003 L(3) PZE 3 

00004 L<4) PZE 4 

00005 L<5) PZE 5 
00007 L<7) PZE 7 

00010 L(8) PZE 8 

00011 L(9J PZE 9 

00012 LQO) PZE 10 
00000 DECR1 PZE 0»0»1 

FIXSYM BCD 1200000 
FLOSYM BCD 1300000 
SIXSYM BCD 1600000 
OCTLOP BCD 1OCT000 
4MAT0P BCD 1BCD000 



SIX OCT 233000000000»77777»0»1000000»0 



END OF 5 PRIME CONSTANTS. 
************** 



********** 



****** 



WORKING STORAGE USED BY 5 PRIME. 
00440 5PERAS BSS 1 
050000000000 W0RD1 BCD 1500000 
W0RD2 BCD 1TRA000 
W0RD3 BCD 1000000 



00441 

00442 635121000000 

00443 000000000000 



#1 



>?V V 



00444 000000000000 W0RD4 BCD 1000000 
00445 CIB BSS 100 

00611 EIFNO BSS 1 

00612 TABNUM BSS 1 

00613 WRDCNT BSS 1 

00614 BUFFER BSS 1500 
03550 NEWEQ BSS 1500 

END OF 
* * * * 



PRIME WORKING STORAGE. 
******************* 



******* 



SYNONYMS USED BY 5 PRIME- 
00351 SETDRM SYN 5PS3D3 
00420 TERC SYN L(5) 
00001 SYSTAP SYN 1 

2 

3 

4 
00004 SECSIX SYN 4 

END OF 5 PRIME SYNONYMS* 



00002 TABTAP SYN 

00003 GITTAP SYN 

00004 DIAG SYN 



LOCATION OF WDR INSTRUCTION. 

TAPE ERROR COUNTER. 

FORTRAN SYSTEM TAPE. 

TABLE TAPE. 

COMPILED INSTRUCTION TAPE. 

DIAGNOSTIC ROUTINE. 

SECTION SIX = NEXT SECTION. 



******************************* 



00030 • END 5PRIME 
OSHARE ASSEMBLER STATISTICS 

OTAPE TOTAL 1 FAIL 2 FAIL 3 FAIL 

INP 

LIB 

COL 395 

ONUMBER OF ON-LINE INPUT RECORDS 395 

ONUMBER OF OFF-LINE PRINT RECORDS 408 

ONUMBER OF SYMBOLS* DEF 104»DEFOP 0»UNDEF 



4 FAIL 






<5 



70 



o 



u 



REM ************* FORTRAN II 



SECTION PRE-SIX ********************F6A0001 
************* FORTRAN II SECTION PRE-SIX *** 
FORTRAN 2 RECORD 92 - PRE-6. 

CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL) 









00030 




ORG 


24 






00030 


00000 





00000 


PCI 


HTR 









00031 


00000 





00000 


PC2 


HTR 









00032 


00000 





00000 


PC3 


HTR 









00033 


00000 





00000 


PC4 


HTR 









00034 


00000 





00000 


PC5 


HTR 









00035 


00000 





00000 


PC6 


HTR 









00036 


00000 





00000 


SUBIN 


HTR 




SECTION PRE 6 


















TRANSFER VECTOR COMPILING 










00037 




ORG 


31 






00037 


77200 





00202 


START 


REW 


2 






00040 


77200 





00203 




REW 


3 






00041 


77200 





00204 




REW 


4 






O0O42 


07400 


4 


01406 




TSX 


APCH2f4 


TO SKIP BCD FILE. 




00043 


76200 





00222 


PI 


RTB 


2 


ON TAPE 2. 




00044 


70000 





01355 


CHI 


CPY 


ERAS1 






00045 


02000 





00044 




TRA 


CHI 






00046 


02000 





00050 




TRA 


P2 


END OF FILE. 




00047 


Q 02000 





00043 




TRA 


PI 


END OF REC# 




00050 


2 00001 


2 


00043 


P2 


TIX 


Plt2»l 






00051 


76200 





00222 




RTB 


2 


RECORD 3 




00052 


77100 





00377 




ARS 


255 






00053 


77100 





00377 




ARS 


255 






00054 


-0 76000 





00012 




RTT 








00055 


76100 





00000 




NOP 


READ TRANSFER 


VECTOR FROM DRUM 


3 


00056 


53400 


2 


00142 




LXA 


P16*2 






00057 


76200 





00303 


RDRM 


RDR 


3 






00060 


-0 75400 





00000 


MDA 


PXD 








00061 


46000 





00060 




LDA 


MDA 






00062 


-0 70000 





04574 




CAD 


TV-2 






00063 


76000 





00006 




COM 








00064 


-0 70000 





04575 




CAD 


TV-1 






00065 


76000 





00006 




COM 








00066 


10000 





00071 




TZE 


RDRF 






00067 


2 00001 


2 


00057 




TIX 


RDRM*2»1 






00070 


07400 


4 


00004 




TSX 


4*4 






00071 


-0 53400 


3 


04574 


RDRF 


LXD 


TV-2?3 






00072 


-3 00000 


1 


00110 




TXL 


SDF«1 






00073 


53400 


2 


00142 




LXA 


P16t2 






00074 


76200 





00303 


RDRM1 


RDR 


3 






00075 


-0 75400 





00002 


FDA 


PXD 


2 






00076 


46000 





00075 




LDA 


FDA 






00077 


-0 70000 


1 


04574 


CPY 


CAD 


TV-2»1 






00100 


2 00001 


1 


00077 




TIX 


CPYtltl 






00101 


70000 





01366 




CPY 


SUM 






00102 


76000 





00006 




COM 









#**#*************F6A00010 
F6A00011 
F6A00012 
F6A00013 
F6A00014 
F6A00020 
F6A00030 
F6A00040 
F6A00050 
F6A00060 
F6A00070 
F6A00080 
F6A00090 
F6A00100 
F6A00110 
F6A00120 
F6A00130 
F6A00140 
F6A0O150 
F6A00160 
F6A00170 
F6A00180 
F6A00190 
F6A00200 
F6A00210 
F6A00220 
F6A00230 
F6A00240 
F6A00250 
F6A00260 
F6A00270 
F6A00280 
F6A00290 
F6A00300 
F6A00310 
F6A00320 
F6A00330 
F6A00340 
F6A00350 
F6A00360 
F6A00370 
F6A00380 
F6A00390 
F6A00400 
F6A00410 
F6A00420 
F6A00430 
F6A00440 
F6A0O450 
F6A00460 
F6A00470 
F6A00480 
F 6 AGO 490 



5// 



00103 
00104 
00105 
00106 
00107 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00130 
00131 
00132 
00133 
00134 

00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
00164 
00165 
00166 
00167 



70000 
76000 
10000 
00001 
07400 
50000 
60100 
10000 
40200 
62200 
53400 
50000 
60200 
60200 
60000 
50000 
60200 
00004 
00143 
00001 
00127 
02000 
07400 
02000 
53400 
02000 

53400 
02000 
76400 
0000 1 
07400 
42000 
76200 
53400 
70000 
00001 
02000 
77100 
77100 
76000 
02000 
50000 
77100 
60100 
50000 
60100 
10000 
50000 
60200 
50000 
40000 
60100 
60000 



01366 
00006 
00110 
00074 
00004 
04574 
00032 
00133 
01342 
00127 
01307 
04573 
02461 
02457 
02456 
01311 
02460 
00125 
00131 
00127 
00135 
00116 
01254 
00126 
01307 
00135 



00142 
00143 
00202 
00143 
00004 
00005 
00222 
01310 
04574 
00145 
01341 
00377 
00377 
00012 
00137 
00032 
00022 
00035 
04574 
00036 
01233 
04573 
00034 
00035 
01307 
00035 
01356 



SDF 



P9 



P7 

Pll 

PS 

WRIT4 

NOVC 

P10 
P15 



P16 
P17 

P18 



P19 



CAD 
COM 
TZE 
TIX 
TSX 
CLA 
STO 
TZE 
SUB 
STD 
LXD 
CAL 
SLW 
SLW 
ST2 
CAL 
SLW 
TXI 
TXH 
TXI 
TXH 
TRA 
TSX 
TRA 
LXD 
TRA 

LXA 
TRA 
BST 
TIX 
TSX 
HPR 
RTB 
LXA 
CPY 
TXI 
TRA 
ARS 
ARS 
RTT 
TRA 
CLA 
ARS 
STO 
CAL 
STO 
TZE 
CAL 
SLW 
CLA 
ADD 
STO 
STZ 



SUM 

SDF 

RDRM1»2»1 

4*4 

TV-2 

PC3 

NOVC 

C18 

P8 

Cl#5 

TV-3»4 

REC-1»1 

REC-3f 1 

REC-4tl 

BCD 

REC-2»1 

P7»l»4 

WRIT4»1»99 

P8»4»l 

P10»4»* 

P9 

SUB1»2 

Pll 

Cl.l 

P10 

SUBDEF COMPI 

P16i4 

P17 

2 

P17»4t 1 

4»4 

5 

2 

C2«2 

SUB-2»2 

P18»2»l 

E0F2 

255 

255 

P15 

PC3 

18 

PC 6 

SUB-2 

SUB IN 

NOSUB 

SUB-3 

PC5 

PC6 

CI 

PC6 

RCT 



WD CT. OF TRANSFER VECTOR. 
STORE LENGTH IN PROGRAM CARD. 



INITIALIZE TAPE 4 (SETXR1 AND 4=0) 
STORAGE. 
SELECT NAME AND 
COMPILE CIT. 



WRITE RECORD ON 
TAPE 4. 
SETXR1=0 

LING 

SET READ ERROR COUNTER. 



READ SUBDEF TABLE INTO 
SUB-l»-2»... 



STORE SUBDEF WORD COUNT. 

TEST FOR SUBROUTINE. 

STORE NAME OF SUBROUTINE FOR PROGRAM CARD. 



SET RELATIVE 
COUNT TO 0. 



F6A00500 
F6A00510 
F6A00520 
F6A00530 
F6A00540 
F6A00550 
F6A00560 
F6A00570 
F6A0O580 
F6A00590 
F6A00600 
F6A00610 
F6A00620 
F6A00630 
F6A00640 
F6A00650 
F6A00660 
F6A00670 
F6A00680 
F6A00690 
F6A00700 
F6A00710 
F6A00720 
F6A00730 
F6A00740 
F6A00750 
F6A00760 
F6A00770 
F6A00780 
F6A00790 
F6A00800 
F6A00810 
F6A0O820 
F6A00830 
F6A00840 
F6A00850 
F6A00860 
F6A00870 
F6A00880 
F6A00890 
F6A00900 
F6A00910 
F6A00920 
F6A00930 
F6A00940 
F6A00950 
F6A00960 
F6A00970 
F6A00980 
F6A00990 
F6A01000 
F6A01010 
F6A01020 
F6A01030 



r/^ 



~y 



U 



u 



00170 


-0 


50000 





01314 




CAL 


C5 


00171 





60200 


1 


02461 




SLW 


REC-1»1 


00172 





07400 


2 


01265 




TSX 


SUB2»2 


00173 





02000 





00175 




TRA 


P20 


00174 





07400 


2 


01254 




TSX 


SUB1.2 


00175 





60000 


1 


02461 


P20 


STZ 


REC-1.1 


00176 





07400 


2 


01265 




TSX 


SUB2»2 


00177 





02000 





00201 




TRA 


P22 


00200 





07400 


2 


01254 




TSX 


SU81»2 


00201 





60000 


1 


02461 


P22 


STZ 


REC-1»1 


00202 





07400 


2 


01265 




TSX 


SUB2»2 


00203 





02000 





01415 




TRA 


NAME 


00204 





07400 


2 


01254 




TSX 


SUB1.2 


00205 





02000 





01415 


COMPX 


TRA 


NAME 


00206 





07400 


2 


01275 




TSX 


SUB3.2 


00207 





02000 





00211 




TRA 


P26 


00210 





07400 


2 


01254 




TSX 


SUB1»2 


00211 


-0 


50000 





01320 


P26 


CAL 


C9 


00212 





07400 


2 


01275 




TSX 


SUB3»2 


00213 





02000 





00215 




TRA 


P28 


00214 





07400 


2 


01254 




TSX 


SUB1*2 


00215 


-0 


50000 





01321 


P28 


CAL 


CIO 


00216 





07400 


2 


01275 




TSX 


SUB3»2 


00217 





02000 





00221 




TRA 


P30 


00220 





07400 


2 


01254 




TSX 


SUB1»2 


00221 





56000 





01307 


P30 


LOQ 


CI 


00222 


-0 


60000 





01357 




STQ 


DEL IN 


00223 





50000 





04574 




CLA 


SUB-2 


00224 





77100 





00022 




ARS 


18 


00225 





40200 





01317 




SUB 


C8 


00226 





60100 





01360 




STO 


ARGCT 


00227 





10000 





01243 




TZE 


Fl 


00230 





40000 





01322 




ADD 


Cll 


00231 





62100 





01333 




STA 


AGTST 
FORM ARG 


00232 


-0 


50000 





01322 


Al 


CAL 


Cll 


00233 





62100 





00306 




STA 


A10 


00234 





53400 


2 


00142 




LXA 


P16»2 


00235 





76200 





00302 


A4 


RDR 


2 


00236 





46000 





00237 




LDA 


A2 


00237 


-0 


75400 





00000 


A2 


PXD 





00240 


-0 


70000 





01350 




CAD 


EA1 


00241 





76000 





00006 




COM 




00242 


-0 


70000 





01351 




CAD 


EA2 


00243 





76000 





00006 




COM 




00244 





10000 





00247 




TZE 


A3 


00245 


2 


00001 


2 


00235 




TIX 


A4i2»l 


00246 





07400 


4 


00004 




TSX 


<+»4 


00247 





50000 





01350 


A3 


CLA 


EA1 


00250 





77100 





00001 




ARS 


1 


00251 





60100 





01350 




STO 


EA1 


00252 


-0 


53400 


2 


01307 


A18 


LXD 


Cl#2 


00253 





60000 


2 


05310 


A19 


STZ 


ARIND»2 



COMPILE CITS. 

COMPLETES CIT ONE. 

CIT 1 
IF VECt WRITE OFF TAPE FOUR. 
COMPILE CIT. WD1=0» 
WD 2=HTR» WD 3=0. WD 4=0. 

IF NEC» WRITE OFF TAPE FOUR. 
CIT 3 



TO STORE CIT 4 IN TAPE 4 BUFFER. 



TO STORE IN T-4 BUFFER PROLOGUE CIT 5 



TO STORE IN T-4 BUFFER PROLOGUE CIT 6. 



INIT DELETE 

INDICATOR NOT ZERO. 

COMPUTE TEST 

ADDRESS FOR END 

OF ARG LIST. 

ARGCT CONTAINS WD CT. OF SUBDEF-1. 

=0 IF NO ARGUMENTS 

AGTST CONTAINS NO. OF ARGS-SUB+4 
ARRAY INDICATOR TABLE 
INIT ARG LIST. 
SET ADDRESS A10=SUB-4 # 

READ SIZE TABLE WORD COUNT. 



EA1 NOW CONTAINS NO. OF 2-WORD ENTRIES 

TABLE* 

SET ARRAY IND. TABLE 

TO ZERO* 



IN SIZE 



F6A01040 
F6A01050 
F6A01060 
F6A01070 
F6A01080 
F6A01090 
F6A01100 
F6A0U10 
F6A01120 
F6A01130 
F6A01140 
F6A01150 
F6A01160 
F6A01170 
F6A01180 
F6A01190 
F6A01200 
F6A01210 
F6A01220 
F6A01230 
F6A01240 
F6A01250 
F6A01260 
F6A01270 
F6A01280 
F6A01290 
F6A01300 
F6A01310 
F6A01320 
F6A01330 
F6A01340 
F6A01350 
F6A01360 
F6A01370 
F6A01380 
F6A01390 
F6A01400 
F6A01410 
F6A01420 
F6A01430 
F6A01440 
F6A01450 
F6A01460 
F6A01A70 
F6A01480 
F6A01490 
F6A01500 
F6A01510 
F6A01520 
F6A01530 
F6A01540 
F6A01541 
F6A01550 
F6A01560 



i'J> 



00254 


1 


00001 


2 


00255 




TXI 


A20»2»l 


00255 


3 


00035 


2 


00257 


A20 


TXH 


CH4#2»29 


00256 





02000 





00253 




TRA 


A19 


00257 





53400 


2 


01350 


CH4 


LXA 


EA1*2 


00260 


-3 


00000 


2 


00342 




TXL 


Blt2»0 


00261 


-o 


63400 


1 


01352 




SXO 


IRIST#1 


00262 





53400 


1 


00142 




LXA 


P16.1 


00263 





76200 





00302 


A8 


RDR 


2 


00264 





46000 





00265 




LDA 


A5 


00265 


-0 


75400 





00002 


A5 


PXD 


2 


00266 


-0 


70000 


2 


06546 


A6 


CAD 


DIM»2 


00267 


-0 


70000 





01351 




CAD 


EA2 


00270 


2 


00001 


2 


00266 




TIX 


A6t2»l 


00271 





70000 





01351 




CPY 


EA2 


00272 





76000 





00006 




COM 




00273 


-0 


70000 





01351 




CAD 


EA2 


00274 





76000 





00006 




COM 




00275 





10000 





00300 




TZE 


A7 


00276 


2 


00001 


1 


00263 




TIX 


A8»l*l 


00277 





07400 


4 


00004 




TSX 


4»4 


00300 





50000 





01324 


A7 


CLA 


C13 


00301 


-0 


53400 


1 


01352 




LXD 


IRISTtl 


00302 





60100 





01351 




STO 


EA2 


00303 





50000 





01323 




CLA 


C12 


00304 





62100 





00316 




STA 


A14 


00305 





53400 


2 


01350 


A9 


LXA 


EAlf2 


00306 





50000 





04572 


A10 


CLA 


SUB-4 


00307 





34000 


2 


06546 




CAS 


DIM»2 


00310 





02000 





00312 




TRA 


All 


00311 





02000 





00315 




TRA 


A13 


00312 


2 


00001 


2 


00306 


All 


TIX 


A10»2fl 


00313 





50000 





01334 


A12 


CLA 


ZERO 


00314 





02000 





00316 




TRA 


A14 


00315 





50000 





01325 


A13 


CLA 


C14 


00316 


-0 


60200 





05310 


A14 


ORS 


ARIND STORE 


00317 





50000 





01325 




CLA 


C14 


00320 





77100 





00001 


A17 


ARS 


1 


00321 





60100 





01325 




STO 


C14 


00322 


-0 


50000 





01351 




CAL 


EA2 


00323 





40200 





01317 




SUB 


C8 


00324 





60100 





01351 




STO 


EA2 


00325 





10000 





00334 




TZE 


A15 


00326 





50000 





00306 


A16 


CLA 


A10 


00327 





40200 





01317 




SUB 


C8 


00330 





62100 





00306 




STA 


A10 


00331 





40200 





01333 




SUB 


A6TST 


00332 





10000 





00342 




TZE 


Bl 


00333 





02000 





00305 




TRA 


A9 


00334 





50000 





01324 


A15 


CLA 


C13 


00335 





60100 





01351 




STO 


EA2 


00336 





50000 





00316 




CLA 


A14 


00337 





40000 





01317 




ADD 


C8 


00340 





62100 





00316 




STA 


A14 


00341 





02000 





01432 




TRA 


APCH3+1 



TABLE 



TEST FOR NO ARRAYS. 
SAVE TAPE 4 INDEX* 



READ SIZ TABLE. 



INIT ARIND TABLE. 



SELECT ARG. 

IS ARGUMENT AN ARRAY. 

YES 

ARG IS NOT ARRAY. SET BIT TO ZERO 

ARG IS ARRAY* SET BIT TO BE 1. 
INSTORE INDICATOR 



MODIFY ARIND COUNT. 



WORD FULL TEST. 
MODIFY ARG 
LIST ADDRESS. 



NO MORE ARGUMENTS. 



F6A01570 
F6A01580 
F6A01590 
F6A01600 
F6A01610 
F6A01620 
F6A01630 
F6A01640 
F6A01650 
F6A01660 
F6A01670 
F6A01680 
F6A01690 
F6A01700 
F6A01710 
F6A01720 
F6A01730 
F6A01740 
F6A01750 
F6A01760 
F6A01770 
F6A01780 
F6A01790 
F6A01800 
F6A01810 
F6A01820 
F6A01830 
F6A01840 
F6A01850 
F6A01860 
F6A01870 
F6A01880 
F6A01890 
F6A01900 
F6A01910 
F6A01920 
F6A01930 
F6A01940 
F6A01950 
F6A01960 
F6A01970 
F6A01980 
F6A01990 
F6A02000 
F6A02010 
F6A02020 
F6A02030 
F6A02040 
F6A02050 
F6A02060 
F6A02070 
F6A02080 
F6A02090 
F6A02100 



'/ 



u 



(J 



00342 


-0 63400 1 01352 


Bl 


SXD IRISTtl 
FORM OP 


00343 


60000 01361 




STZ TP2CT 


00344 


76200 00222 


83 


RTB 2 


00345 


70000 01351 


CH2 


CPY EA2 


00346 


02000 00345 




TRA CH2 


00347 


02000 00351 




TRA B2 


00350 


02000 00344 




TRA B3 


00351 


-0 53400 1 01307 


B2 


LXD Clfl 


00352 


53400 4 00357 


B8 


LXA B5»4 


00353 


02000 00360 




TRA B6 


00354 


76400 00203 


B4 


BST 3 


00355 


2 00001 4 00360 




TIX B6*4»l 


00356 


07400 4 00004 




TSX 4t4 


00357 


42000 00005 


B5 


HPR 5 


00360 


76200 00223 


B6 


RTB 3 


00361 


53400 2 01310 




LXA C2*2 


00362 


70000 2 02624 


B7 


CPY CIT-2»2 


00363 


1 00001 2 00362 




TXI B7»2»l 


0036& 


02000 00517 




TRA B28 


00365 


77100 00377 




ARS 255 


00366 


77100 00377 




ARS 255 


00367 


-0 76000 00012 




RTT 


00370 


02000 00354 




TRA B4 


00371 


-0 63400 2 00515 




SXD B27»2 


00372 


-0 53400 4 01307 




LXD Cl#4 


00373 


50000 01356 




CLA RCT 


00374 


-0 10000 00377 




TNZ B9 


00375 


-0 50000 02625 




CAL CIT-1 


00376 


60200 01353 




SLW SLINT 


00377 


50000 01357 


B9 


CLA DELIN 


00400 


10000 00414 




TZE Bll 


00401 


-0 50000 4 02624 




CAL CIT-2»4 


00402 


77100 00022 




ARS 18 


00403 


34000 01332 




CAS QPR 


00404 


02000 00425 




TRA B12 


00405 


02000 00407 




TRA BIO 


00406 


02000 00425 




TRA B12 


004G7 


60000 01357 


BIO 


STZ DELIN 


00410 


50000 01356 


B16 


CLA RCT 


00411 


40000 01317 




ADD C8 


00412 


60100 01356 




STO RCT 


00413 


02000 00514 




TRA B26 


00414 


50000 01317 


Bll 


CLA C8 


00415 


60100 01357 




STO DELIN 


00416 


02000 00514 




TRA B26 


00417 


50000 4 02622 


EXT21 


CLA CIT-4t4 


00420 


77100 00022 




ARS 18 


00421 


40000 01356 




ADD RCT 


00422 


60100 01356 




STO RCT 


00423 


02000 00514 




TRA B26 


00424 


000000226262 


BSS 


BCD 1000BSS 


00425 


34000 00424 


B12 


CAS BSS 


00426 


02000 00430 




TRA EXT20 



SAVE TAPE 4 INDEX 
TABLES FROM SEARCHING CIT 

SET TAPE 2 RECORD COUNT TO ZERO» 
READY TAPE 2» 



EOF 
EOR 

INIT OP BLOCK. SET XR1=0 
READ TAPE 3 



SELECT CIT TAPE. 

SETXR2=-1 

COPY A RECORD OF CIT TAPE INTO CIT-l»-2» 



END OF FILE 
END OF RECORD 



SAVE TAPE 3 RECORD LENGTH(-2) 
INIT TAPE 3 BLOCK. 

TRANSFER IF RELATIVE COUNT NOT ZERO. 

STORE INITIAL 

SYM LOCATION. 

IS DELIND ZERO. 

TRANSFER IF YES. 

SELECT CIT. IS OP QPR, 



EQUAL. OP IS QPR« 

NOT EQUAL 

QPR OP. SET DELETE INDICATOR TO ZERO. 

INCREMENT RCT BY If 

AND GO MODIFY TAPE THREE INDEX. 

SET DELETE INDIC. EQUAL ONE 
AND 60 MODIFY TAPE 3 INDEX. 



OP NOT QPR» TEST FOR BSS OP. 



F6A02110 

F6A02120 

F6A02130 

F6A02140 

F6A02150 

F6A02160 

F6A02170 

F6A02180 

F6A02190 

F6A02200 

F6A02210 

F6A02220 

F6A02230 

F6A02240 

F6A02250 

F6A02260 

F6A02270 

F6A02280 

F6A02290 

F6A02300 

F6A02310 

F6A02320 

F6A02330 

F6A02340 

F6A02350 

F6A02360 

F6A02370 

F6A02380 

F6A02390 

F6A02400 

F6A02410 

F6A02420 

F6A02430 

F6A02440 

F6A02450 

F6A02460 

F6A02470 

F6A02480 

F6A02490 

F6A02500 

F6A02510 

F6A02520 

F6A02530 

F6A02540 

F6A02550 

F6A02560 

F6A02570 

F6A02580 

F6A02590 

F6A02600 

F6A02610 

F6A02620 

F6A02630 

F6A02640 



00427 
00430 
00431 
00432 
00433 
00434 
00433 
00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00430 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 



02000 
02000 
62100 
50000 
34000 
02000 
02000 
50000 
40200 
62100 
40200 
10000 
02000 
50200 
40200 
40000 
60100 
40200 
76500 
22000 
60000 
62100 
50000 
40200 
62100 
56000 
76300 
75400 
76300 
10000 
50000 
60100 



02000 



60000 

50000 

76700 

40000 

60100 

00002 

00441 

02000 

76600 

53400 

70000 

00001 

00441 

02000 

53400 

50000 

40000 

60100 

76600 

02000 

00004 4 



00417 
01370 
00432 
04572 
02623 
00436 
00444 
00432 
01317 
00432 
01333 
00410 
00432 
01322 
00432 
01317 
01354 
01317 
00043 
01324 
01355 
00461 
01323 
01355 
00460 
00460 
00461 
00000 
00001 
00470 
02622 
06544 
00471 
06544 
01354 
00022 
01356 
06545 
00476 
00500 
00410 
00222 
01307 
06545 
00504 
00506 
00502 
01307 
01361 
01317 
01361 
00333 
00410 
00515 



EXT20 
B13 

B15 



B14 



B17 
B18 



B19 
B20 



B21 
B22 
B25 
B23 
B24 



B26 



TRA 
TRA 
STA 
CLA 
CAS 
TRA 
TRA 
CLA 
SUB 
STA 
SUB 
T2E 
TRA 
CLS 
SUB 
ADD 
STO 
SUB 
LRS 
DVH 
STQ 
STA 
CLA 
SUB 
STA 
LDQ 
LLS 
PXD 
LLS 
TZE 
CLA 
STO 
TRA 
STZ 
CLA 
ALS 
ADD 
STO 
TXI 
TXH 
TRA 
WTB 
LXD 
CPY 
TXI 
TXH 
TRA 
LXD 
CLA 
ADD 
STO 
I0D 
TRA 
TXI 



EXT21 

APCH1 

B13 

SUB-4 

CIT-3*4 

B15 

B14 

B13 

C8 

B13 

AGTST 

B16 

B13 

Cll 

B13 

C8 

ARGNO 

C8 

35 

C13 

ERAS1 

B16 

C12 

ERAS1 

B17 

* 



1 

B19 

CIT-4.4 

0P-2»1 

B20 

0P-2»1 

ARGNO 

18 

RCT 

0P-1»1 

B21»l»2 

B22.1.289 

B16 

2 

Cltl 

0P-1»1 

B23.1.1 

B24*l#289 

B25 

Cl»l 

TP2CT 

C8 

TP2CT 

B16 
B27.4.4 



OP EQUAL BSS. 

OP NOT QPR NOR BSS. 

INITIALIZE ARGUMENT LIST ADDRESS* 

SEARCH ARG LIST 

FOR EQUAL SYMBOLIC 

ADDRESS* 

EQUAL* GO TO B14 TO COMPILE OP TABLE ENTRY. 

SYMBOLIC ADDRESS NOT AN ARGUMENT* UPDATE 

ARGUMENT COUNTER* 

TEST FOR ALL ARGUMENTS TREATED* 
NO MORE ARGUMENTS* TRANSFER. 
GO CHECK AGAINST NEXT ARGUMENT. 
EQUAL. MUST COMPILE OP TABLE ENTRY. 



COMPUTE ADDRESS 
COMPUTE ADDRESS 
OF BIT IN ARIND 
TABLE. 



TEST FOR ARRAY. 



NOT ARRAY* 

ARG IS ARRAY. SO STORE RELATIVE ADDRESS OF 

CIT AS WORD 2 OF OP TABLE ENTRY. 

ARG IS NOT ARRAY. SET WORD 2 OF OP ENTRY=0. 
ASSEMBLE WORD ONE OF OP TABLE ENTRY. 



MODIFY TAPE 2 
BLOCK. 

WRITE OFF 
TAPE 2. 



SET XR1 EQUAL ZERO 

UPDATE TAPE TWO RECORD COUNT. 



MODIFY TAPE 3 BLOCK TO SELECT NEXT CIT (FROM 



F6A02650 
F6A02660 
F6A02670 
F6A02680 
F6A02690 
F6A02700 
F6A02710 
F6A02720 
F6A02730 
F6A02740 
F6A02750 
F6A02760 
F6A02770 
F6A02780 
F6A02790 
F6A02800 
F6A02810 
F6A02820 
F6A02830 
F6A02840 
F6A02850 
F6A02860 
F6A02870 
F6A02880 
F6A02890 
F6A02900 
F6A02910 
F6A02920 
F6A02930 
F6A02940 
F6A02950 
F6A02960 
F6A02970 
F6A02980 
F6A02990 
F6A03000 
F6A03010 
F6AO3020 
F6A03030 
F6A03040 
F6A03050 
F6A03060 
F6A03070 
F6A03080 
F6A03090 
F6A03100 
F6A03110 
F6A03120 
F6A03130 
F6A03140 
F6A03150 
F6A03160 
F6A03170 
F6A03180 



v^ 



U 



U 



00515 


3 


00515 


4 


00352 


B27 


TXH 


B8»4»* 


00516 





02000 





00377 




TRA 


B9 


00517 





77200 





00203 


B28 


REW 


3 


00520 


3 


00000 


1 


00522 




TXH 


B29»l»0 


00521 





02000 





00531 




TRA 


B34 


00522 


-o 


63400 


1 


00527 


B29 


SXD 


B3i»l 


00523 





76600 





0022? 




WTB 


2 


00524 


-0 


53400 


1 


01320 




LXD 


C9»l 


00525 





70000 


1 


06546 


B30 


CPY 


OPtl 


00526 


1 


00001 


1 


00527 




TXI 


B31»l»l 


00527 


3. 


00527 


1 


00534 


B31 


TXH 


B35»l»* 


00530 





02000 





00525 




TRA 


B30 


00531 





50000 





01361 


B34 


CLA 


TP2CT 


00532 


-0 


10000 





00540 




TNZ 


B36 


00533 





07400 


4 


00004 




TSX 


4»4 


00534 





50000 





01361 


B35 


CLA 


TP2CT 


00535 





76600 





00333 




IOD 




00536 





40000 





01317 




ADD 


C8 


00537 





60100 





01361 




STO 


TP2CT 


00540 





77000 





00202 


B36 


WEF 


2 


00541 





76400 





00202 




BST 


2 


00542 





53400 


1 


01361 




LXA 


TP2CT»1 


00543 





76400 





00202 


B37 


BST 


2 


00544 


2 


00001 


1 


00543 




TIX 


B37#l»l 


00545 





77100 





00377 




ARS 


255 


00546 





77100 





00377 




ARS 


255 


00547 


-o 


76000 





00012 




RTT 




00550 





76100 





00000 




NOP 




00551 


-0 


53400 


1 


01352 




LXD 


IRIST*1 


00552 





60000 





01356 




STZ 


RCT 


00553 





50000 





01326 




CLA 


C15 


00554 





60100 





01357 




STO 


DELIN 


00555 


-0 


53400 


2 


01334 


READ2 


LXD 


ZER0»2 


00556 





53400 


4 


00563 


D5 


LXA 


Dl»4 


00557 





02000 





00564 




TRA 


D2 


00560 





76400 





00202 


D3 


BST 


2 


00561 


2 


00001 


4 


00564 




TIX 


D2*4tl 


00562 





07400 


4 


00004 




TSX 


4»4 


00563 





42000 





00005 


01 


HPR 


5 


00564 





76200 





00222 


D2 


RTB 


2 


00565 





76100 





00000 




NOP 




00566 





70000 


2 


06545 


D4 


CPY 


0P-1»2 


00567 


1 


00001 


2 


00566 




TXI 


D4»2»l 


00570 





02000 





00576 




TRA 


D89 


00571 





77100 





00377 




ARS 


255 


00572 





77100 





00377 




ARS 


255 


00573 


-0 


76000 





00012 




RTT 




00574 





02000 





00560 




TRA 


D3 


00575 





02000 





00556 




TRA 


D5 


00576 





60000 





01350 


D89 


STZ 


EA1 


00577 


-0 


63400 


2 


01350 




SXD 


EAlt2 


00600 





76100 





00000 




NOP 




00601 





50000 





01350 


D30 


CLA 


EA1 



TAPE 3). 

TEST END OF TAPE 3 BLOCK. 

EOF TAPE 3. REWIND TAPE 3. 

ANY OP ENTRIES TO BE WRITTEN ON T-2. 

NO* 

YES» SAVE COUNT OF WORDS TO BE WRITTEN. 

WRITE OFF ON 
TAPE 2. 

NECESSARY 



IS RECORD COUNT ZERO. 

NO. OKAY 50 TRANSFER TO READ TAPE TWO. 

YES. ERROR. 

UPDATE TAPE TWO RECORD COUNT* 



WEF TAPE 2« 

BACK SPACE TO 
BEGIN OF FILE. 



SET RELATIVE COUNT TO ZERO. 

SET DELETE INDICATOR TO NOT-ZERO. 

SET READ-ERROR COUNTER. 

READ TAPE 2 FILE 6 
INTO STORAGE. 



E.O.F. 



TEST WD COUNT OF OP TABLE. 



F6A03181 

F6A03190 

F6A03200 

F6A03210 

F6A03220 

F6A03230 

F6A03240 

F6A03250 

F6A03260 

F6A03270 

F6A03280 

F6A03290 

F6A03300 

F6A03310 

F6A03320 

F6A03330 

F6A03340 

F6A03350 

F6A03360 

F6A03370 

F6A03380 

F6A03390 

F6A03400 

F6A03410 

F6A03420 

F6A03430 

F6A03440 

F6A03450 

F6A03460 

F6A03470 

F6A03480 

F6A03490 

F6A03500 

F6A03510 

F6A03520 

F6A03530 

F6A03540 

F6A03550 

F6A03560 

F6A03570 

F6A03580 

F6A03590 

F6A03600 

F6A03610 

F6A03620 

F6A03630 

F6A03640 

F6A03650 

F6A03660 

F6A03670 

F6A0368Q 

F6A03690 

F6A03700 

F6A03710 



00602 





40200 





01345 




SUB 


C21 


00603 


-0 


12000 





00605 




TMI 


06 


00604 





07400 


4 


00004 




TSX 


4t4 


00603 





77200 





00202 


D6 


REW 


2 


00606 





60000 





01363 




STZ 


CONCT 


00607 





50000 





01317 




CLA 


C8 


00610 





60100 





01354 




STO 


ARGNO 


00611 





50000 





01350 




CLA 


EA1 


00612 





40200 





01342 




SUB 


C18 


00613 





62200 





00636 




STD 


D14 


00614 





60000 


1 


02461 


D7 


STZ 


REC-1»1 


00615 


-0 


50000 





01327 




CAL 


C16 


00616 





60200 


1 


02460 




SLW 


REC-2»1 


00617 





50000 





01354 




CLA 


ARGNO 


00620 





76700 





00022 




ALS 


18 


00621 





40000 





01307 




ADD 


CI 


00622 





60100 


1 


02456 




STO 


REC-4tl 


00623 





60000 


1 


02457 




STZ 


REC-3»1 


00624 


1 


00004 


1 


00625 




TXI 


D8*l»4 


00625 


3 


00143 


1 


00647 


D8 


TXH 


D9»l»99 


00626 





60000 





01362 


010 


STZ 


DELTA 


00627 


-0 


53400 


2 


01307 




LXD 


Cl»2 


00630 





50000 


2 


06545 


Dll 


CLA 


0P-1»2 


00631 





77100 





00022 




ARS 


18 


00632 





34000 





01354 




CAS 


ARGNO 


00633 





02000 





00635 




TRA 


D12 


00634 





02000 





00651 




TRA 


D13 


00635 


1 


00002 


2 


00636 


D12 


TXI 


D14»2»2 


00636 


3 


00636 


2 


00640 


D14 


TXH 


D15»2»* 


00637 





02000 





00630 




TRA 


Dll 


00640 





50000 





01354 


D15 


CLA 


ARGNO 


00641 





40000 





01317 




ADD 


C8 


00642 





60100 





01354 




STO 


ARGNO 


00643 





40200 





01360 




SUB 


ARGCT 


00644 


-0 


12000 





00614 




TMI 


D7 


00645 





10000 





00614 




TZE 


D7 


00646 





02000 





00761 




TRA 


El 


00647 





07400 


2 


01254 


D9 


TSX 


SUB1»2 


00650 





02000 





00626 




TRA 


D10 


00651 





50000 


2 


06544 


D13 


CLA 


OP-2#2 


00652 





77100 





00022 




ARS 


18 


00653 





60100 





01364 




STO 


DELDD 


00654 





40200 





01362 




SUB 


DELTA 


00655 





60100 





01365 




STO 


GAMMA 


00656 





56000 





01364 




LDQ 


DELDD 


00657 


-0 


60000 





01362 




STQ 


DELTA 


00660 





50000 





01365 




CLA 


GAMMA 


00661 





10000 





00722 




TZE 


D25 


00662 





50000 





01363 




CLA 


CONCT 


00663 





10000 





00677 




TZE 


CH6 


00664 





40000 





01330 




ADD 


C17 


00665 





40200 





01317 




SUB 


C8 


00666 





62100 





00667 




STA 


D17 


00667 





50000 





06546 


D17 


CLA 


HTAB 



MORE THAN 2000 WORDS IS ERROR. 

REWIND TAPE 2. 

SET CONCT EQUAL ZERO 

INIT. ARG. NUMBER TO ONE. 



SUBTRACT ONE (IN DECREMENT) 

SET END OF OP BLOCK TEST. (EA1-1) 

COMPILE CLA N»4 

WHERE N IS THE ARGUMENT NUMBER. 

SL = 

OP=CLA 

SA=0 

RA=N|4 



TEST CIT BLOCK FULL. IF YES* GO WRITE OFF. 
SET DELTA ZERO. 
INIT. IR2 TO ZERO. 
SELECT OP TABLE ENTRY. 

COMPARE IT WITH ARG NO. 

EQUAL ARGUMENT* GO COMPILE STORE. 
UPDATE OP TABLE COUNTER. 
TEST FOR END OF OP TABLE. 

MODIFY ARG NUMBER (INCREASE IT BY ONE). 



TEST END OF ARG. NUMBERS. 

NO. 

NO. 

FINISHED. 

WRITE OFF ON 

TAPE 4. 

COMPILE STORE. 

COMPUTE GAMMA WHICH IS THE AMOUNT NECESSARY 
ADD TO GET EFFECTIVE ADDRESS FOR STA. 



IS INCREMENT ZERO. 

YES 

NO. TEST FOR ANY INCREMENT TABLE. 

NO INCREMENT TABLE. 

YES* THERE IS AN INCREMENT TABLE. 

SET ADDRESS OF D17=L0CATI0N OF 

LAST GAMMA STORED. 

IS LAST GAMMA 



F6A03720 
F6A03730 
F6A03740 
F6A03750 
F6A03760 
F6A03770 
F6A03780 
F6A03790 
F6A03800 
F6A03810 
F6A03820 
F6A03830 
F6A03840 
F6A03850 
F6A03860 
F6A03870 
F6A03880 
F6A03890 
F6A03900 
F6A03910 
F6A03920 
F6A03930 
F6A03940 
F6A03950 
F6A03960 
F6A03970 
F6A03980 
F6A03990 
F6A04000 
F6A04010 
F6A04020 
F6A04030 
F6A04040 
F6A04050 
F6A04060 
F6A04070 
F6A04080 
F6A04090 
F6A04100 
F6A04110 
F6A04120 
TO F6A04130 
F6A04140 
F6A04150 
F6A04160 
F6A04170 
F6A04180 
F6A04190 
F6A04200 
F6A04210 
F6A04220 
F6A04230 
F6A04240 
F6A04250 



<?> 



u 



u 



00670 





40200 





01365 




SUB 


GAMMA 


00671 





10000 





00743 




TZE 


EX1 


00672 





50000 





00667 




CLA 


D17 


00673 





40200 





01317 




SUB 


C8 


00674 





62100 





00667 




STA 


D17 


00675 





40200 





01330 




SUB 


C17 


00676 





12000 





00667 




TPL 


D17 


00677 


. 


50000 





01330 


CH6 


CLA 


C17 


00700 





40000 





01363 




ADD 


CONCT 


00701 





62100 





00703 




STA 


D18 


00702 





50000 





01365 




CLA 


GAMMA 


00703 





60100 





00703 


D18 


STO 


* 


00704 





50000 





01363 




CLA 


CONCT 


00705 





40000 





01317 




ADD 


C8 


00706 





60100 





01363 




STO 


CONCT 


00707 





60000 


1 


02461 


D19 


STZ 


REC-1»1 


00710 


-0 


50000 





01331 




CAL 


ADD 


00711 





60200 


1 


02460 




SLW 


REC-2.1 


00712 


-0 


50000 





01335 




CAL 


TABCT 


00713 





60200 


1 


02457 




SLW 


REC-3sl 


00714 





50000 





01363 




CLA 


CONCT 


00715 





40200 





01317 




SUB 


C8 


00716 





76700 





00022 




ALS 


18 


00717 





60100 


1 


02456 




STO 


REC-4.1 


00720 


1 


00004 


1 


00721 




TXI 


D16»ls4 


00721 


3 


00143 


1 


00737 


D16 


TXH 


D20.1>99 


00722 





60000 


1 


02461 


D25 


STZ 


REC-lsl 


00723 


-0 


50000 





01337 




CAL 


STA 


00724 





60200 


1 


02460 




SLW 


REC-2tl 


00725 


-0 


50000 





01353 




CAL 


SLINT 


00726 


-0 


10000 





00730 




TNZ 


D21 


00727 


-0 


50000 





01313 




CAL 


C4 


00730 





60200 


1 


02457 


D21 


SLW 


REC-3«1 


00731 





56000 


2 


06545 




LDQ 


OP-l>2 


00732 





76300 





00022 




LLS 


18 


00733 


-0 


60000 


1 


02456 




STG 


REC-4»1 


00734 


1 


00004 


1 


00735 




TXI 


D22»l»4 


00735 


3 


00143 


1 


00755 


D2Z 


TXH 


D23»l»99 


00736 





02000 





00635 


D24 


TRA 


D12 


00737 


-0 


63400 


2 


01352 


D20 


SXD 


IRIST»2 


00740 





07400 


2 


01254 




TSX 


SUB1»2 


00741 


-0 


53400 


2 


01352 




LXD 


IRIST.2 


00742 





02000 





00722 




TRA 


D25 


00743 





50000 





00667 


EX1 


CLA 


D17 


00744 





40200 





01330 




SUB 


C17 


00745 





76700 





00022 




ALS 


18 


00746 





60100 


1 


02456 




STO 


REC-4»1 


00747 





60000 


1 


02461 




STZ 


REC-1»1 


00750 


-0 


50000 





C1331 




CAL 


ADD 


00751 





60200 


1 


02460 




SLW 


REC-2*1 


00752 


-0 


50000 





01335 




CAL 


TABCT 


00753 





60200 


1 


02457 




SLW 


REC-3.1 


00754 


1 


00004 


1 


00721 




TXI 


D16.1.4 


00755 


-0 


63400 


2 


01352 


D23 


SXD 


IRIST»2 



EQUAL CURRENT GAMMA. 

YES» ADDEND ALREADY IN TABLE 

NOt 

MODIFY ADDRESS IN HTAB. 

ANY MORE ENTRIES IN HTAB. 

YES. 

NOT IN TABLE. 



SET BY CH6 TO HTAB+CONCT. STORE GAMMA. 
UP CONCOUNT BY ONE. 



COMPILE ADD. 
ADD 



SA=9( 



RELATIVE LOCATION OF HTAB CONSTANT. 

MODIFY TAPE 4 BLOCK. 

TEST TAPE 4 BLOCK FULL. 

COMPILE STA. ONE SUCH CIT FOR EACH TIME ARG. 

APPEARS IN OP TABLE. 

TEST INITIAL SYMBOLIC LOCATION. 

TRANSFER IF NOT ZERO. 

ZERO* SET SA EQUAL TO $$000. 



TEST TAPE 4 BLOCK FULL. 

NO. 

GO WRITE A CIT RECORD ON TAPE 4. 



ADDEND ALREADY IN TABLE 



F6A04260 
F6A04270 
F6A04280 
F6A04290 
F6A04300 
F6A04310 
F6A04320 
F6A04330 
F6A04340 
F6A04350 
F6A04360 
F6A04370 
F6A04380 
F6A04390 
F6A04400 
F6A04410 
F6A04420 
F6A04430 
F6A04440 
F6A04450 
F6A04460 
F6A04470 
F6A04480 
F6A04490 
F6A04500 
F6A04510 
F6A04520 
F6A04530 
F6A04540 
F6A04550 
F6A04560 
F6A04570 
F6A04580 
F6A04590 
F6A04600 
F6A04610 
F6A04620 
F6A04630 
F6A04640 
F6A04650 
F6A04660 
F6A04670 
F6A04680 
F6A04690 
F6A04700 
F6A04710 
F6A04720 
F6A04730 
F6A04740 
F6A04750 
F6A04760 
F6A04770 
F6A04780 
F6A04790 



m 



00736 





07400 


2 


01254 




TSX 


SUB1»2 


00757 


-0 


53400 


2 


01352 




LXD 


IRIST.2 


00760 





02000 





00635 




TRA 


D12 


00761 





53400 


2 


00766 


El 


LXA 


E3»2 


00762 





02000 





00767 




TRA 


E4 


00763 





76400 





00203 


E2 


BST 


3 


00764 


2 


00001 


2 


00767 




TIX 


E4»2»l 


00765 





07400 


4 


00004 




TSX 


4t4 


00766 





42000 





00005 


E3 


HPR 


5 


00767 





76200 





00223 


E4 


RTB 


3 


00770 





53400 


4 


01310 




LXA 


C2»4 


00771 





70000 


4 


02624 


E5 


CPY 


CIT-2.4 


00772 


1 


00001 


4 


00771 




TXI 


E5.4.1 


00773 





02000 





01061 




TRA 


E14 


00774 





77100 





00377 




ARS 


255 


00775 





77100 





00377 




ARS 


255 


00776 


-0 


76000 





00012 




RTT 




00777 





02000 





00763 




TRA 


E2 


01000 


-0 


63400 


4 


01041 




SXD 


E8»4 


01001 


-0 


53400 


4 


01307 




LXD 


Cl»4 


01002 





50000 





01360 




CLA 


ARGCT 


01003 





10000 





01012 




TZE 


E6 


01004 





50000 





01356 




CLA 


RCT 


01005 


-0 


10000 





01012 




TNZ 


E6 


01006 


-0 


50000 





01353 




CAL 


SLINT 


01007 


-0 


10000 





01012 




TNZ 


E6 


01010 


-0 


50000 





01313 




CAL 


C4 


01011 





60200 





02625 




SLW 


CIT-1 


01012 


-0 


50000 


4 


02624 


E6 


CAL 


CIT-2»4 


01013 





77100 





00022 




ARS 


18 


01014 





40200 





01332 




SUB 


QPR 


01015 





10000 





01043 




TZE 


E9 


01016 





40000 





01332 




ADD 


OPR 


01017 





40200 





01053 




SUB 


QXD 


01020 





10000 





01050 




TZE 


EX3 


01021 





50000 





01357 




CLA 


DELIN 


01022 





10000 





01054 




TZE 


Ell 


01023 


-0 


50000 


4 


02624 




CAL 


CIT-2»4 


01024 





60200 


1 


02460 


E10 


SLW 


REC-2»1 


01025 


-0 


50000 


4 


02625 




CAL 


CIT-1.4 


01026 





60200 


1 


02461 




SLW 


REC-1»1 


01027 


-0 


50000 


4 


02623 




CAL 


CIT-3.4 


01030 





60200 


1 


02457 




SLW 


REC-3»1 


01031 


-0 


50000 


4 


02622 




CAL 


CIT-4.4 


01032 





60200 


1 


02456 




SLW 


REC-4tl 


01033 





50000 





01356 




CLA 


RCT 


01034 





40000 





01317 




ADD 


C8 


01035 





60100 





01356 




STO 


RCT 


01036 


1 


00004 


1 


01037 




TXI 


E7.1.4 


01037 


3 


00143 


1 


01057 


E7 


TXH 


E13»l*99 


01040 


1 


00004 


4 


01041 


E12 


TXI 


E8.4.4 


01041 


3 


01041 


4 


00761 


E8 


TXH 


Elt4t* 


01042 





02000 





01012 




TRA 


E6 


01043 





60100 





01357 


E9 


STO 


DELIN 



READ TAPE 3 



SET READ ERROR COUNTER. 



READ A RECORD FROM TAPE 3. 

SET COUNTER TO -It TO READ INTO 

CIT-1.-2. 

EOF. 



TEST ARGUMENT COUNT FOR ZERO. 

YES« TRANSFER. 

N0» TEST RCT FOR ZERO. 

RCT NOT ZERO. 

TEST FIRST SUMBOLIC LOC. 

TRANSFER IF NOT ZERO. 

$$ 



IS OP QPR. 

YES. TRANSFER. 

IS OP QXD. 
YES. TRANSFER. 
IS DELETE IND 
ZERO. TRANSFER IF YES. 
COPY CIT FROM TAPE 3 INTO 
TAPE 4 BUFFER. 
BLOCK 



ADD TO RCT 
UPDATE RELATIVE COUNT BY ONE. 

MODIFY TAPE 4 BUFFER COUNTER. 

TEST END OF TAPE 4 BLOCK. 

NOt MODIFY TAPE 3 BLOCK COUNTER, 

TEST END OF TAPE 3 BLOCK. 

NO. 

QPR. SET DELIN=0. 



F6A04600 
F6A04810 
F6A04820 
F6A04830 
F6A04840 
F6A04850 
F6A04860 
F6A04870 
F6A04880 
F6A04890 
F6A04900 
F6A04910 
F6A04920 
F6A04930 
F6A04940 
F6A04950 
F6A04960 
F6A04970 
F6A04980 
F6A04990 
F6A05000 
F6A05010 
F6A05020 
F6A05030 
F6A05040 
F6A05050 
F6A05060 
F6A05070 
F6A05080 
F6A05090 
F6A05100 
F6A05110 
F6A05120 
F6A05130 
F6A05140 
F6A05150 
F6A05160 
F6A05170 
F6A05180 
F6A05190 
F6A05200 
F6A05210 
F6A05220 
F6A05230 
F6A05240 
F6A05250 
F6A05260 
F6A05270 
F6A05280 
F6A05290 
F6A05300 
F6A05310 
F6A05320 
F6A05330 



<k 



te'JJ 



u 



u 



01044 


-0 


50000 





01340 




CAL 


TRA 


01045 





60200 


1 


02460 


EX2 


SLW 


REC-2»1 


01046 





60000 


1 


02461 




STZ 


REC-1»1 


01047 





02000 





01027 




TRA 


E10 + 3 


01050 


-0 


50000 





01052 


EX3 


CAL 


LXD 


01051 





02000 





01024 




TRA 


E10 


01052 


436724000000 


LXD 


BCD 


1LXD000 


01053 


000000506724 


QXD 


BCD 


1000QXD 


01054 





50000 





01317 


Ell 


CLA 


C8 


01055 





60100 





01357 




STO 


DELIN 


01056 





02000 





01040 




TRA 


E12 


01057 





07400 


2 


01254 


E13 


TSX 


SUB1»2 


01060 





02000 





01040 




TRA 


E12 


01061 





50000 





01363 


E14 


CLA 


CONCT 


01062 





10000 





01113 




TZE 


E20 


01063 





50000 





01330 




CLA 


C17 


01064 





62100 





01072 




STA 


E17 


01065 





60000 





01350 




STZ 


EA1 


01066 


-0 


50000 





01335 




CAL 


TABCT 


01067 





60200 


1 


02461 




SLW 


REC-ltl 


01070 


-0 


50000 





01346 


E18 


CAL 


OCT 


01071 





60200 


1 


02460 




SLW 


REC-2*1 


01072 


-0 


50000 





01072 


E17 


CAL 


> 


01073 





60200 


1 


02457 




SLW 


REC-3»1 


01074 





60000 


1 


02456 




STZ 


REC-4»1 


01075 


1 


00004 


1 


01076 




TXI 


£15*1*4 


01076 


3 


00143 


1 


01111 


E15 


TXH 


E16.1.99 


01077 





50000 





01072 


E19 


CLA 


E17 


01100 





40200 





01317 




SUB 


C8 


01101 





62100 





01072 




STA 


E17 


01102 





50000 





01350 




CLA 


EA1 


01103 





40000 





01317 




ADD 


C8 


01104 





60100 





01350 




STO 


EA1 


01105 





40200 





01363 




SUB 


CONCT 


01106 





10000 





01113 




TZE 


E20 


01107 





60000 


1 


02461 




STZ 


REC-1»1 


OHIO 





02000 





01070 




TRA 


E18 


01111 





07400 


2 


01254 


E16 


TSX 


SUB1»2 


01112 





02000 





01077 




TRA 


E19 


01113 





07400 


4 


01406 


E20 


TSX 


APCH2*4 


01114 





76200 





00222 


E21 


RTB 


2 


01115 





70000 





01355 


CH3 


CPY 


ERAS1 


01U6 





02000 





01115 




TRA 


CH3 


01117 





02000 





01121 




TRA 


E22 


01120 





02000 





01114 




TRA 


E21 


01121 


2 


00001 


2 


01114 


E22 


TIX 


E21»2*l 


01122 





76200 





00222 




RTB 


2 


01123 





76200 





00222 




RTB 


2 


01124 





76200 





00222 




RTB 


2 


01125 





77100 





00377 




ARS 


255 


01126 





77100 





00377 




ARS 


255 


01127 


-0 


76000 





00012 




RTT 




01130 





76100 





00000 




NOP 




01131 





53400 


2 


01136 




LXA 


E24»2 



SELECT 0P=TRA» 

AND RETURN TO GET REST 

OF CIT. 

OP IS QXD. 



DELETE INSTRUCTION* SET DELETE INDICATOR 

TO NOT ZEROf AND TRANSFER 

TO TEST TAPE 4 BLOCK FULL. 

WRITE OFF ON 

TAPE 4a 

END OF TAPE 3e 

TRANSFER SINCE 9) 

IF NECESSARY 
COMPILE 9) TABLE. 
SET EA1=0. 



TABLE NOT NEC. 



SL=9) 
OP=OCT. 

SA=TH£ NECESSARY CONSTANT. 

RA=0 

MODIFY TAPE 4 BLOCK COUNT. 

TEST END OF TAPE 4 BLOCK. 

TO GET NEXT CONSTANT IN 9) TABLE. 



INCREASE EA1 BY ONE. 



TRANSFER IF ALL NEC 9) TABLE CITS COMPILED, 

SET SL=0 

AND GO COMPILE REST OF CIT. 



TO SKIP BCD FILE. 
SKIPPING TO FILE 5. 



END OF FILE. 
END OF RECORD. 

SKIP FIRST 3 RECORDS IN FILE FIVE. 



SET READ ERROR COUNTER. 



F6A05340 
F6A05350 
F6A05360 
F6A05370 
F6A05380 
F6A05390 
F6A05400 
F6A05410 
F6A05420 
F6A05430 
F6A05440 
F6A05450 
F6A05460 
F6A05470 
F6A05480 
F6A05490 
F6A05500 
F6A05510 
F6A05520 
F6A05530 
F6A05540 
F6A05550 
F6A05560 
F6A05570 
F6A05580 
F6A05590 
F6A05600 
F6A05610 
F6A05620 
F6A05630 
F6A05640 
F6A05650 
F6A05660 
F6A05670 
F6A05680 
F6A05690 
F6A05700 
F6A05710 
F6A05720 
F6A05730 
F6A05740 
F6A05750 
F6A05 760 
F6A05770 
F6A05780 
F6A05790 
F6A05800 
F6A05810 
F6A05820 
F6A05830 
F6A05840 
F6A05850 
F6A05860 
F6A05870 



V 



01132 





02000 





01137 




TRA 


E25 


01133 





76400 





00202 


E23 


BST 


2 


01134 


2 


00001 


2 


01137 




TIX 


E25»2»l 


01135 





07400 


4 


00004 




TSX 


4t4 


01136 





42000 





00005 


E24 


HPR 


5 


01137 





76200 





00222 


E25 


RTB 


2 


01140 





53400 


4 


01310 




LXA 


C2»4 


01141 





70000 


4 


04574 


E26 


CPY 


SUB-2.4 


01142 


1 


00001 


4 


01141 




TXI 


E26*4#l 


01143 





02000 





01347 




TRA 


E0F3 


01144 





77100 





00377 




ARS 


255 


01145 





77100 





00377 




ARS 


255 


01146 


-0 


76000 





00012 




RTT 




01147 





02000 





01133 




TRA 


E23 


01150 





50000 





04574 


E27 


CLA 


SUB-2 


01151 





10000 





01214 




TZE 


E33 


01152 





40200 





01342 




SUB 


C18 


01153 





60100 





01350 


STO 


EA1 


01154 





50000 





01150 




CLA 


E27 


01155 





40200 





01317 




SUB 


C8 


01156 





62100 





01164 




STA 


E29 


01157 





60000 





01351 




STZ 


EA2 


01160 


-0 


50000 





01343 




CAL 


C19 


01161 





60200 


1 


02461 




SLW 


REC-1»1 


01162 


-0 


50000 





01311 


E28 


CAL 


BCD 


01163 





60200 


1 


02460 




SLW 


REC-2t 1 


01164 





50000 





01164 


E29 


CLA 


# 


01165 





34000 





01344 




CAS 


C20 


01166 





02000 





01170 




TRA 


LIB10 


01167 





02000 





01206 




TRA 


LIB12 


01170 





60100 


1 


02457 


LIB10 


STO 


REC-3.1 


01171 





60000 


1 


02456 


LIB11 


STZ 


REC-4.1 


01172 


1 


00004 


1 


01173 




TXI 


E30*l»4 


01173 


3 


00143 


1 


01212 


E30 


TXH 


E31.1.99 


01174 





50000 





01164 


E32 


CLA 


E29 


01175 





40200 





01317 




SUB 


C8 


01176 





62100 





01164 




STA 


E29 


01177 





50000 





01351 




CLA 


EA2 


01200 





40000 





01342 




ADD 


C18 


01201 





60100 





01351 




STO 


EA2 


01202 





40200 





01350 




SUB 


EA1 


01203 





10000 





01244 




TZE 


E40 


01204 





60000 


1 


02461 




STZ 


REC-1.1 


01205 





02000 





01162 




TRA 


E28 


01206 





60100 


1 


02457 


LIB12 


STO 


REC-3.1 


01207 





50000 





01346 




CLA 


OCT 


01210 





60100 


1 


02460 




STO 


REC-2.1 


01211 





02000 





01171 




TRA 


LIB11 


01212 





07400 


2 


01254 


E31 


TSX 


SUB1*2 


01213 





02000 





01174 




TRA 


E32 


01214 


-3 


00001 


1 


01225 


E33 


TXL 


E35»l.l 


01215 


2 


00001 


1 


01216 




TIX 


CH7»1»1 


01216 


-0 


63400 


1 


01223 


CH7 


SXD 


E34.1 


01217 





76600 





00224 




WTB 


4 



READ HOLARG TABLE 
INTO SUB-l>-2» 



TEST WORD COUNT OF HOLARG TABLE* 
EXIT* NO HOLARG. 



STORE WD. COUNT-1 IN EAl TAr , irr 

INITIALIZE ADDRESS FOR SEARCHING HOLARG TABLE. 



SET EA2=0. ,-„,,., 

SET SL OF FIRST CIT FOR EACH HOLLERITH 

ARGUMENT=11. 

SET OP=BCD. 

(SUB-3 TO START) 

TEST FOR END OF ARGUMENT. 

NO* 

TRANSFER WHEN CITS FOR A GIVEN ARGUMENT DONE. 

SA=6 CHARACTERS OF THE ARGUMENT. 

RA=0. 

MODIFY TAPE 4 BLOCK COUNT. 

TEST TAPE 4 BLOCK FULL. 

MODIFY ADDRESS IN HOLARG TABLE. 

INCREMENT COUNT OF WORDS FROM TABLE 
TREATED BY ONE. 

TEST FOR END OF HOLARG TABLE. 

END. 

NO. 

END OF ARGUMENT. COMPILE ENDING CIT 
(SAsSTRING OF IS) 



WRITE OFF ON TAPE 4. 

MAY NEED TO WRITE OFF 4. 

WRITE OFF ON 
TAPE 4. 



F6A05880 

F6A05890 

F6A05900 

F6A05910 

F6A05920 

F6A05930 

F6A05940 

F6A05950 

F6A05960 

F6A05970 

F6A05980 

F6A05990 

F6A06000 

F6A06010 

F6A06020 

F6A06030 

F6A06040 

F6A06050 

F6A06060 

F6A06070 

F6A06080 

F6A06090 

F6A06100 

F6A06110 

F6A06120 

F6A06130 

F6A06140 

F6A06150 

F6A06160 

F6A06170 

F6A06180 

F6A06190 

F6A06200 

F6A06210 

F6A06220 

F6A06230 

F6A06240 

F6A06250 

F6A06260 

F6A06270 

F6A06280 

F6A06290 

F6A06300 

F6A06310 

F6A06320 

F6A0633Q 

F6A06340 

F6A06350 

F6A06360 

F6A06370 

F6A06380 

F6A06390 

F6A06400 

F6A06410 



/^ 



u 



u 



01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 
01245 
01246 
01247 
01250 
01251 
01252 
01253 
01254 
01255 
01256 
01257 
01260 
01261 
01262 
01263 
01264 
01265 
01266 
01267 
01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01300 
01301 
01302 
01303 
01304 
01305 



53400 
70000 
00001 
01223 
02000 
77000 
77200 
77200 
77200 
76200 
02000 
60000 
60000 
50000 
601O0 O 
60000 
77200 
60000 
02000 
02000 
60000 
50000 
60200 
50000 
60200 



00004 
02000 
76600 
53400 



00001 
00143 
02000 
76600 
53400 
02000 
50000 
60200 
60000 
60000 
00004 
00143 
02000 
02000 
60200 
50000 
60200 
50000 



60000 1 



70000 1 



60200 1 



60000 
00004 
00143 



02000 



01307 
02461 
01223 
01225 
01221 
00204 
00204 
00203 
00202 
00221 
00004 
00034 
01356 
01317 
01357 
01363 
00202 
01360 
00761 
01234 
02461 
01346 
02460 
01344 
02457 
02456 
01253 
01214 
00224 
01307 
02461 
01260 
01262 
01256 
00333 
01307 
00001 
01315 
02460 
02457 
02456 
01272 
01274 
00001 
00002 
02456 
01316 
02460 
01314 
02457 
02461 
01304 
01306 
00001 



E36 

E34 
E35 



NOSUB 



Fl 
E40 



CH10 
SUB1 

SUBA 

SUBB 

SUBC 

SUB2 



SUB2A 

SUB2B 
SUB3 



SUB3A 



LXD 
CPY 
TXI 
TXH 
TRA 
WEF 
REW 
REW 
REW 
RTB 
TRA 
STZ 
STZ 
CLA 
STO 
STZ 
REW 
STZ 
TRA 
TRA 
STZ 
CAL 
SLW 
CAL 
SLW 
STZ 
TXI 
TRA 
WTB 
LXD 
CPY 
TXI 
TXH 
TRA 
IOD 
LXD 
TRA 
CAL 
SLW 
STZ 
STZ 
TXI 
TXH 
TRA 
TRA 
SLW 
CAL 
SLW 
CAL 
SLW 
STZ 
TXI 
TXH 
TRA 



Clf 1 

REC-ltl 

E34»ltl 

E35>1»* 

£36 

4 

4 

3 

2 

1 

4 

PCS 

RCT 

C8 

DELIN 

CONCT 

2 

ARGCT 

El 

NOSUB+l 

REC-ltl 

OCT 

REC-2»1 

C20 

REC-3tl 

REC-4»1 

CH10»1»4 

£33 

4 

Cltl 

REC-ltl 

SUBBtltl 

SUBCtlt99 

SUBA 

Cltl 

lt2 

C6 

REC-2tl 

REC-3»1 

REC-4»1 

SUB2A>1»4 

SUB2Btlt99 

lt2 

2t2 

REC-4il 

C7 

REC-2tl 

C5 

REC-3#i 

REC-ltl 

SUB3Atlt4 

SUB36tl»99 

1»2 



WRITE END OF FILE ON TAPE 4. 
REWIND TAPES 2t3»4 
AND GO TO LOADERt 



RETURN TO LOADER 
NOT A SUBROUTINE. SET NAME=0 ON PROGRAM CARD. 
SET RELATIVE COUNT=0. 

SET DELIN TO NOT ZERO. 
SET CONSTANT C0UNT=ZER0. 
REWIND TAPE TWO. 
SET ARGUMENT C0UNT=ZER0. 
GO DEAL WITH TAPE 3 CITS. 



COMPILE FINAL HOLARG CIT. 



UPDATE T-4 BLOCK COUNTER. 
GO TEST BLOCK FULL. 
WRITE TAPE 4t 



COMPILE CITS 
OP=HTR 
SA=0 
RA = 

TEST TAPE 4 BLOCK FULL. 

NO. 

YES. 

STORE CIT 4 5 6 

OP=SXD 

SA=$0000 
SL = 

TEST TAPE 4 BLOCK FULL. 
NO. 



F6A06420 
F6A06430 
F6A06440 
F6A06450 
F6A06460 
F6A06470 
F6A06480 
F6AO6490 
F6A06500 
F6A06510 
F6A06520 
F6A06530 
F6A06540 
F6A06550 
F6A06560 
F6A06570 
F6A06580 
F6A06590 
F6A06600 
F6A06610 
F6A06620 
F6A06630 
F6A06640 
F6A06650 
F6A06660 
F6A06670 
F6A06680 
F6A06690 
F6A06700 
F6A06710 
F6A06720 
F6A06730 
F6A06740 
F6A06750 
F6A06760 
F6A06770 
F6A06780 
F6A06790 
F6A06800 
F6A06810 
F6A06820 
F6A06830 
F6A06840 
F6A06850 
F6A06860 
F6A06870 
F6A06880 
F6A06890 
F6A06900 
F6A06910 
F6A06920 
F6A06930 
F6A06940 
F6A06950 



'■:> 



01306 


02000 


2 00002 


SUB3B 


TRA 


2*2 


YES* 


01307 


00000 


00004 


CI 


HTR 


4 




01310 


00000 


77777 


C2 


HTR 


-1 




01311 


222324000000 


BCD 


BCD 


1BCD000 




01312 


00000 


00003 


C3 


HTR 


3 




01313 


535360000000 


C4 


BCD 


1$$ 000 




01314 


536000000000 


C5 


BCD 


1$ 0000 




01315 


306351000000 


C6 


BCD 


1HTR000 




01316 


626724000000 


C7 


BCD 


1SXD000 




01317 


00000 


00001 


C8 


HTR 


1 




01320 


+000001000002 


C9 


OCT 


000001000002 




01321 


+000002000004 


CIO 


OCT 


000002000004 




01322 


-0 50000 


04572 


Cll 


CAL 


SU6-4 




01323 


00000 


05310 


C12 


HTR 


ARIND 




01324 


00000 


00043 


C13 


HTR 


35 




01325 


2 00000 


00000 


C14 


TIX 


0*0*0 




01326 


00000 


00005 


C15 


HTR 


5 




01327 


234321000000 


C16 


BCD 


1CLA0O0 




01330 


50000 


06546 


C17 


CLA 


HTAB 




01331 


212424000000 


ADD 


BCD 


1ADD000 


INITARG 


01332 


000000504751 


QPR 


BCD 


1000QPR 




01333 


50000 


00000 


AGTST 


CLA 


** 




01334 


00000 


00000 


ZERO 


HTR 







01335 


1100000000QO 


TABCT 


BCD 


1900000 




01336 


07400 


4 00004 


E0F1 


TSX 


4»4 




01337 


626321000000 


STA 


BCD 


1STA0O0 




01340 


635121000000 


TRA 


BCD 


1TRAOO0 




01341 


07400 


4 00004 


E0F2 


TSX 


4#4 




01342 


+000001000000 


C18 


OCT 


000001000000 




01343 


+130000000000 


C19 


OCT 


130000000000 




01344 


-377777777777 


C20 


OCT 


777777777777 




01345 


+003720000000 


C21 


OCT 


003720000000 


(2000 I 


01346 


462363000000 


OCT 


BCD 


1OCT0O0 




01347 


07400 


4 00004 


E0F3 


TSX 


4»4 




01350 


00000 


00000 


EA1 


HTR 







01351 


00000 


00000 


EA2 


HTR 







01352 


00000 


00000 


IRIST 


HTR 







01353 


00000 


00000 


SLINT 


HTR 







01354 


00000 


00000 


ARGNO 


HTR 







01355 


00000 


00000 


ERAS1 


HTR 







01356 


00000 


00000 


RCT 


HTR 







01357 


00000 


00000 


DELIN 


HTR 







01360 


00000 


00000 


ARGCT 


HTR 







01361 


00000 


00000 


TP2CT 


HTR 







01362 


00000 


00000 


DELTA 


HTR 







01363 


00000 


00000 


CONCT 


HTR 







01364 


00000 


00000 


DELDD 


HTR 







01365 


00000 


00000 


GAMMA 


HTR 







01366 


0.00000 


00000 
01367 


SUM 


HTR 
BSS 




1 




01370 


34000 


01403 


APCH1 


CAS 


SYNOP 




01371 


02000 


01401 




TRA 


GOON 




01372 


02000 


00514 




TRA 


B26 


OP IS SYN. 


01373 


34000 


01404 




CAS 


OCTOP 





IN DICREMENT) 



F6A06960 
F6A06970 
F6A06980 
F6A06990 
F6A07000 
F6A07010 
F6A07020 
F6A07030 
F6A07040 
F6A07050 
F6A07060 
F6A07070 
F6A07080 
F6A07090 
F6A07100 
F6A07110 
F6A07120 

F6A07140 
F6A07150 
F6A07160 
F6A07170 
F6A07180 
F6A07190 
F6A07200 
F6A07210 
F6A07220 
F6A07230 
F6A07240 
F6A07250 
F6A07260 
F6A07270 
F6A07280 
F6A07290 
F6A07300 
F6A07310 
F6A07320 
F6A07330 
F6A07340 
F6A07350 
F6A07360 
F6A07370 
F6A07380 
F6A07390 
F6A07400 
F6A07410 
F6A07420 
F6A07430 
F6A07440 
F6A07441 
F6A07442 
F6A07443 
F6A07444 
F6A07445 



6V 



o 



u 



01374 





02000 





01401 




TRA 


GOON 




01375 





02000 





00410 




TRA 


B16 


OP IS OCT* 


01376 





34000 





01405 




CAS 


BCPOP 




01377 





02000 





01401 




TRA 


GOON 




01400 





02000 





00410 




TRA 


B16 


OP IS BCD* 


01401 


-0 


50000 





01322 


GOON 


CAL 


Cll 




01402 





02000 





00431 




TRA 


EXT20+1 




01403 


+000000627045 


SYNOP 


OCT 


000000627045 




01404 


+000000462363 


OCTOP 


OCT 


000000462363 




01405 


+000000222324 


BCDOP 


OCT 


000000222324 




01406 





76200 





00202 


APCH2 


RTD 


2 


SKIP A BCD FILE* 


01407 





70000 





01355 




CPY 


ERAS1 




01410 





02000 





01407 




TRA 


*-l 




01411 





02000 





01413 




TRA 


*+2 


END OF FILE 


0*412 


6 


Q26QQ 


© 


01406 




TRA 


APCH2 


END OF RECORD 


01413 





53400 


2 


01312 




LXA 


C3*2 




01414 





02000 


4 


00001 




TRA 


1#4 


RETURN TO PROGRAM. 


01415 


-0 


50000 





01311 


NAME. 


CAL 


BCU 


INSERT CIT 3 PRIME. 


01416 





60200 


1 


02460 




SLW 


REC-2tl 




01417 


-o 


50000 





O0034 




CAL 


PC5 


OP=BCD 


01420 





60200 


1 


02457 




SLW 


REC-3»1 


SA=NAME OF ROUTINE* 


01421 





60000 


1 


02461 




ST2 


REC-1»1 




01422 





60000 


1 


02456 




STZ 


REC-4»1 




01423 


1 


00004 


1 


01424 




TXI 


*+l*l»4 




01424 


3 


00143 


1 


01426 




TXH 


*+2»l>99 




01425 





02000 





01427 




TRA 


P24 




01426 





07400 


2 


01254 




TSX 


SUB1»2 




01427 


-0 


50000 





01317 


P24 


CAL 


C8 




01430 





02000 





00206 




TRA 


COMPX+1 




01431 


2 


00000 





00000 


APCH3 


TIX 


0t0>0 


REINITIALIZE C14 


01432 





50000 





01431 




CLA 


APCH3 




01433 





60100 





01325 




STO 


C14 




01434 





02000 





00326 
02316 
02462 
02626 
06546 
02626 
04576 
04576 
06546 
06546 
06546 
05252 
05310 
00000 


REC 
CIT 
OP 

TV 

SUB 

HTAB 
DIM 

ARINO 


TRA 
ORG 
BES 
BES 
BES 
ORG 
BES 
SYN 
ORG 
BSS 
SYN 
ORG 
BES 
END 


A16 

1230 

100 

100 

2000 

1430 

1000 

TV 

3430 

300 

OP 

2730 

30 





F6A07446 
F6A07447 
F6A07448 
F6A07449 
F6A07450 
F6A07451 
F6A07452 
F6A07453 
F6A07454 
F6A07455 
F6A07456 
F6A07457 
F6A07458 
F6A07459 
F6A07460 
F6A07461 
F6A07462 
F6A07463 
F6A07464 
F6A07465 
F6A07466 
F6A07467 
F6A07468 
F6A07469 
F6A07470 
F6A07471 
F6A07472 
F6A07473 
F6A07474 
F6A07475 
F6A0 7476 
F6A07477 
F6A07478 
F6A07480 
F6A07481 
F6A07482 
F6A07483 
F6A07490 
F6A07500 
F6A07510 
F6A07520 
F6A07530 
F6A07540 
F6A07550 
F6A07560 
F6A07570 



Sc > 



PST 











00037 




ORG 


31 




00037 


1 


00037 


2 


00037 


SRCH 


TXI 


*>2»* 




00040 





16200 





00042 




TOP 


IFTXH 




00041 




77776 


1 


00102 




TXI 


L0WER»l*-2 


00042 




77776 


1 


00101 


IFTXH 


TXI 


RAISE»] 


L»-2 


00043 




20000 


2 


00037 




TXI 


SRCH»2i 


+ 8192 


00044 




60000 


2 


00037 




TXI 


SRCH»2< 


t-8192 


00045 




10000 


2 


00037 




TXI 


SRCH»2i 


»+4096 


00046 




70000 


2 


00037 




TXI 


SRCH»2i 


-4096 


00047 




04000 


2 


00037 




TXI 


SRCH»2i 


>+2048 


00050 




74Q0O 


2 


QGQ3J 




TXI 


SRCHi2i 


r-2048 


00051 




02000 


2 


00037 




TXI 


SRCH*2i 


>+1024 


00052 




76000 


2 


00037 




TXI 


SRCH*2i 


»-1024 


00053 




01000 


2 


00037 




TXI 


SRCH»2i 


►+512 


00054 




77000 


2 


00037 




TXI 


SRCH»2i 


1-512 


00055 




00400 


2 


00037 




TXI 


SRCH»2i 


►+256 


00056 




77400 


2 


00037 




TXI 


SRCH»2i 


► -256 


00057 




00200 


2 


00037 




TXI 


SRCH»2i 


► + 128 


00060 




77600 


2 


00037 




TXI 


SRCH#2i 


► -128 


00061 




00100 


2 


00037 




TXI 


SRCH»2 


►+64 


00062 




77700 


2 


00037 




TXI 


SRCHt2i 


► -64 


00063 




00040 


2 


00037 




TXI 


SRCH»2 


► + 32 


00064 




77740 


2 


00037 




TXI 


SRCH»2i 


► -32 


00065 




00020 


2 


00037 




TXI 


SRCH»2 


► + 16 


00066 




77760 


2 


00037 




TXI 


SRCH ♦ 2 


► -16 


00067 




00010 


2 


00037 




TXI 


SRCH»2i 


►+8 


00070 




77770 


2 


00037 




TXI 


SRCH. 2 


► -8 


00071 




00004 


2 


00037 




TXI 


SRCH»2 


►+4 


00072 




77774 


2 


00037 




TXI 


SRCH»2 


►-4 


00073 




00002 


2 


00037 




TXI 


SRCH* 2 


►+2 


00074 




77776 


2 


00037 




TXI 


SRCH»2 


► -2 


00075 




00001 


2 


00037 




TXI 


SRCH»2 


► + 1 


00076 




77777 


2 


00037 




TXI 


SRCH»2 


► -1 


00077 





02000 


4 


00001 


NOT IN 


TRA 


lf4 




00100 


1 


77777 


2 


00077 




TXI 


NOTING 


2»-l 


00101 





02000 


1 


00101 


RAISE 


TRA 


RAISE* 


L 


00102 





02000 


1 


00102 


LOWER 


TRA 


LOWER* 


L 


00103 





56000 





00120 


STEV 


LDQ 


TEVL 




00104 


-0 


60000 





00037 




STQ 


SRCH 




00105 





53400 


1 


00117 




LXA 


TEVS*1 




00106 


-0 


53400 


2 


00117 




LXD 


TEVS»2 




00107 





34000 


2 




TTEV 


CAS 


TEV*2 




00110 


1 


77776 


1 


00101 




TXI 


RAISE* 


L»-2 


00111 





02000 





00113 




TRA 


ATEV 




00112 


1 


77776 


1 


00102 




TXI 


LOWER* 


l*-2 


00113 


-0 


75400 


2 


00000 


ATEV 


PXD 


0*2 




00114 





77100 





00022 




ARS 


18 




00115 





40000 





00172 




ADD 


LTEV 





************* FORTRAN II SECTION SIX ************* 
FORTRAN 2 RECORD 94 - BINARY SEARCH* 

CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL) 



OR TXL TDEV*2»0 OR TXH TTIV»2*-2 
OR TXL TTEV DEPENDING ON TABLE AND 
ON DIRECTION OF TABLE* 

FOR A TABLE WITH N 

ENTRIES* THE SEARCH IS 

COMMENCED AT THE 2**XTH 

ENTRY* THE LATTER BEING THE 

LARGEST POWER OF 2 

LESS THAN N* 

THEN. DEPENDING ON THE RESULTS 

OF THE COMPARISON* THE SEARCH 

STEPS UP* OR DOWN* BY 

2**(X-1) * AND MAKES 

A NEW COMPARISON WITH THAT 

ENTRY 

IF THIS STEP OVERREACHES THE 

END OF THE TABLE* IT IS TRAPPED 

BY THE TXL OR TXH INSTRUCTIONS 

IN SRCH 



INDEX REGISTER 1* WHICH 
CONTAINS 2(X+3) SELECTS THE 
APPROPRIATE TXI IN THIS LIST* 
TO MAKE THE NEXT LEAP 
FORWARDS OR BACKWARDS IN 
THE TABLE. 

INDEX REGISTER 2 SELECTS THE 
TABLE ENTRY FOR COMPARISON. 
END OF SEARCH* 



ENTER HERE TO SEARCH TEV. 

TABLE 
CONTROLS HOPPING WITHIN TEV. 
SELECTS ITEM FOR COMPARISON. 

NOT FOUND. CONTINUE SEARCH 

FOUND. 

NOT FOUND. CONTINUE SEARCH 

CONTROLS ENTRY POINT OF SEARCH 

DEC. CONTAINS TABLE LENGTH. 



***********F6B00010 
F6B00011 
F6B00012 
F6B00013 
F6B00014 
F6B00020 
F6B00030 
F6B00040 
F6B00050 
F6B00060 
F6B00070 
F6B00080 
F6B00090 
F6B00100 
F6B00110 
F6B00120 
F 6 B00130 
F6B00140 
F6B00150 
F6B00160 
F6B00170 
F6B00180 
F6B00190 
F6B00200 
F6B00210 
F6B00220 
F6B00230 
F6B00240 
F6B00250 
F6B00260 
F6B00270 
F6B00280 
F6B00290 
F6B00300 
F6B00310 
F6B00320 
F6B00330 
F6B00340 
F6B00350 
F6B00360 
F6B00370 
F6B00380 
F6B00390 
F6B00400 
F6B00410 
F6B00420 
F6B00430 
F6B00440 
F6B00450 
F6B00460 
F6B00470 
F6B00480 
F6B00490 



&l 



u 



u 



00116 





02000 


4 


00002 




TRA 


2f4 


00117 





00000 





00004 


TEVS 




4tOt**+0 


00120 


-3 


00000 


2 


00107 


TEVL 


TXL 


TTEV*2»**+0 


00121 





76700 





00017 


STIV 


ALS 


15 


00122 





60200 





00160 




SLW 


ENTRY 


00123 





60200 





00157 




SLW 


ARG 


00124 





56000 





00141 




LDQ 


TIVL 


00125 


-0 


60000 





00037 




STQ 


SRCH 


00126 





53400 


1 


00140 




LXA 


T1VS»1 


00127 


-0 


53400 


2 


00140 




LXD 


TIVS»2 


00130 





50000 


2 


02114 


TTIV 


CLA 


TIV»2 


00131 





62100 





00157 




STA 


ARG 


00132 





34000 





00157 




CAS 


ARG 


00133 


1 


77776 


1 


00102 




TXI 


L0WER»l*-2 


00134 





020O0 





00136 




TRA 


ATIV 


00135 


1 


77776 


1 


00101 




TXI 


RAISE»l*-2 


00136 





50000 


2 


02114 


ATIV 


CLA 


TIV.2 


00137 





02000 


4 


00002 




TRA 


2»4 


00140 





77777 





00004 


TIVS 




4.0***- 1 


00141 


3 


77776 


2 


00130 


TIVL 


TXH 


TTIV»2t**-2 


00142 





56000 





00155 


SDEV 


LDQ 


DEVL 


00143 


-0 


60000 





00037 




STQ 


SRCH 


00144 





53400 


1 


00154 




LXA 


DEVS»1 


00145 


-0 


53400 


2 


00154 




LXD 


DEVS*2 


00146 





34000 


2 


77777 


TDEV 


CAS 


DEV»2 


00147 


1 


77776 


1 


00101 




TXI 


RAISE »l»-2 


00150 





02000 





00152 




TRA 


ADEV 


00151 


1 


77776 


1 


00102 




TXI 


LOWER »l»-2 


00152 





50000 


2 


74413 


ADEV 


CLA 


DEA»2 


00153 





02000 


4 


00003 




TRA 


3»4 


00154 





00000 





00004 


DEVS 




^#0»**+Q 


00155 


-3 


00000 


2 


00146 


DEVL 


TXL 


TDEV»2»**+Q 


00156 





00001 





00002 


DEVA 




2,Q***+1 


00157 





00000 





OOOOO 


ARG 


HTR 





00160 





00000 





OOOOO 


ENTRY 


HTR 





00161 


+000000000000 


ZERO 


DEC 


0000000000 


00162 


+000000000001 


ONE 


DEC 


0000000001 


00163 


+000000000002 


TWO 


DEC 


0000000002 


00164 





00000 





77777 


ADOR 


HTR 


-1 


00165 





ooooo 





OOOOO 


EIFN 


HTR 





00166 





00000 





OOOOO 


LI 


HTR 





00167 





ooooo 





OOOOO 


L2 


HTR 





00170 





ooooo 





ooooo 


LI FN 


HTR 





00171 





ooooo 





77462 


LCTR 


HTR 


-206 


00172 





ooooo 





ooooo 


LTEV 


HTR 





00173 





ooooo 





ooooo 


D 


HTR 





00174 





ooooo 





ooooo 


EA 


HTR 





00175 





ooooo 





ooooo 


L3 


HTR 





00176 





ooooo 





ooooo 


PGBK- 


HTR 





00177 





ooooo 





ooooo 


SW1 


HTR 





00200 





ooooo 





ooooo 


SW2 


HTR 





00201 





ooooo 





ooooo 


SW3 


HTR 





00202 





ooooo 





ooooo 


svm 


HTR 





00203 





ooooo 





ooooo 


SW5 


HTR 






ENTER HERE TO SEARCH TIV. 



RETURN WITH COMPLETE OLD TIV ENTRY 



ENTER HERE TO SEARCH DEV 

TABLE 
CONTROLS HOPPING WITHIN DEV 
SELECTS THE ITEM FOR COMPARISON. 

NOT FOUND CONTINUE SEARCH 

ENTRY FOUND 

NOT FOUND. CONTINUE SEARCH. 



CONTROLS ENTRY POINT OF SEARCH. 

CONTAINS TABLE LENGTH 

USED BY EDEV FOR MODIFYING DEVS. 



F6B00500 
F6B00510 
F6B00520 
F6B00530 
F6B00540 
F6B00550 
F6B00560 
F6B00570 
F6B00580 
F6B00590 
F6B00600 
F6B00610 
F6B00620 
F6B00630 
F6B00640 
F6B00650 
F6B00660 
F6B00670 
F6B00680 
F6B00690 
F6B00700 
F6B00710 
F6B00720 
F6B00730 
F6B00740 
F6B00750 
F6B00760 
F6B00770 
F6B00780 
F6B00790 
F6B00800 
F6B00810 
F6B00820 
F6B00830 
F6B00840 
F6B00850 
F6B00860 
F6B00870 
F6B00880 
F6B00890 
F6B00900 
F6B00910 
F6B00920 
F6B00930 
F6B00940 
F6B00950 
F6B00960 
F6B00970 
F6BO0980 
F6B00990 
F6B01000 
F6B01010 
F6B01020 
F6B01030 



fi 7 



00204 


+077777077777 


DOLSI 


OCT 


077777077777 


00205 





00001 


00001 
00210 


ME2 


ORG 


ltO»l 
136 


00210 





53400 


2 00255 


START 


LXA 


ADD5»2 


00211 





76200 


00304 


ADD6 


RDR 


4 


00212 


-0 


75400 


00000 


ADD1 


PXD 




00213 





46000 


00212 




LDA 


ADD1 


00214 





70000 


00165 




CPY 


EIFN 


00215 





76000 


00006 




COM 




00216 





70000 


00223 




CPY 


ADD 2 


00217 





76000 


00006 




COM 




00220 





10000 


00224 




TZE 


ADD3 


00221 


2 


0000 1 


2 00211 




TIX 


ADD6»2fl 


00222 





07400 


4 00004 




TSX 


4»4 


00223 





00000 


00000 


ADD 2 


HTR 





00224 


-0 


53400 


1 00165 


ADD 3 


LXD 


EIFNtl 


00225 


1 


00001 


1 00226 


ADD4 


TXI 
SXD 


ADD4»1»1 
£fFN*l 


O0rZ26 


-0 


63400 


1 00^165 


00227 





77200 


00202 




REW 


2 


00230 





02000 


00260 


Bl 


TRA 


BPCH1 


00231 





76200 


00222 


B2 


RTB 


2 


00232 





70000 


00253 


CHI 


CPY 


ERAS 


00233 





02000 


00232 




TRA 


CHI 


00234 





02000 


00236 




TRA 


B3 


00235 





02000 


00231 




TRA 


B2 


00236 


2 


00001 


1 00231 


B3 


TIX 


B2»ltl 


00237 





76200 


00222 




RTB 


2 


00240 





70000 


00177 




CPY 


SW1 


00241 





70000 


00200 




CPY 


SW2 


00242 





70000 


00201 




CPY 


SW3 


00243 





70000 


00202 




CPY 


SW4 


00244 





70000 


00203 




CPY 


SW5 


00245 





77200 


00203 




REW 


3 


00246 





77200 


00204 




REW 


4 


00247 


-0 


76000 


00012 




RTT 




00250 





76100 


00000 




NOP 




00251 





76200 


00221 




RTB 


1 


00252 





02000 


00004 




TRA 


4 


00253 





00000 


00000 


ERAS 


HTR 





00254 





00000 


00004 


FOUR 


HTR 


4 


00255 





00000 


00017 
00256 


ADD5 


HTR 
BSS 


15 
2 


00260 





76200 


00202 


BPCH1 


RTD 


2 


00261 





70000 


00253 




CPY 


ERAS 


00262 





02000 


00261 




TRA 


*-l 


00263 





02000 


00265 




TRA 


PREPR 


00264 





02000 


00260 




TRA 


BPCH1 


00265 





53400 


1 00267 


PREPR 


LXA 


L0CV3»1 


00266 





02000 


00231 




TRA 


B2 


00267 


+000000000003 


L0CV3 


DEC 


3 








01400 




ORG 


768 








01400 


SOPR 


BSS 


12 








01654 


SYMOP 


BES 


160 








02114 


ABSOP 


BES 


160 



ADDRESS CAN BE CHANGED TO ZERO BY ME1 

SET DRUM ERROR COUNTER TO 15 

SELECT DRUM 4. 

NUMBER OF 

ENTRIES IN 

EXTERNAL INTERNAL 

FORMULA NOS TABLE* 



TO 

GO SKIP BCD FILE 

POSITION TAPE TWO 

AT THE BEGINNING OF FILE FIVE. 



SELECT TAPE TWO 

COPY SENSE SWITCH SETTINGS 

I.E« FIRST RECORD OF FILE 5. 



TO RETURN CONTROL TO LOADER. 



SKIP A BCD FILE. 



END OF FILE 
END OF RECORD 



F6B01040 
IN REC.96F6B01050 
F6B01060 
F6B01070 
F6B01O80 
F6B01090 
F6B01100 
F6B01110 
F6B01120 
F6B01130 
F6B01140 
F6B01150 
F6B01160 
F6B01170 
F6B01180 
F6B01190 
F6B01200 
^4B042iO 
F6B01220 
F6B01230 
F6B01240 
F6B01250 
F6B01260 
F6B01270 
F6B01280 
F6B01290 
F6B01300 
F6B01310 
F6B01320 
F6B01330 
F6B01340 
F6B01350 
F6B01360 
F6B01370 
F6B01380 
F6B01390 
F6B01400 
F6B01410 
F6B01420 
F6B01430 
F6B01440 
F6B01441 
F6B01442 
F6B01443 
F6B01444 
F6B01445 
F6B01446 
F6B01447 
F6B01448 
F6B01449 
F6B01450 
F6B01460 
F6B01470 
F6B01480 



kt 



u 



o 



n 



02114 


TIV 


BSS 




71003 




ORG 


-3581 


71457 


ECS 


BES 


300 


72607 


UPPER 


BES 


600 


74413 


DEA 


BES 


900 


74413 




ORG 


-1781 


75055 


STS 


BES 


290 


75531 


I 


BES 


300 


76173 


L 


BES 


290 


77777 


DEV 


BES 


900 


00000 




END 




00001 


TEV 







F6B01490 
F6B01500 
F6B01501 
F 6801510 
F6B01520 
F6B01530 
F6B01540 
F6B01550 
F6B01560 
F6B01570 
F6B01580 



£ 



1 



AST 



00210 
00211 
00212 
00213 
00214 
00213 
0O2I6 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 

00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 

00252 
00253 
00254 
00255 
00256 
00257 
00260 



00001 
63400 
60100 
53400 
00001 
63400 
0ODO0 
50000 
40000 
60200 
62200 
40000 
62200 
00225 
50000 
60200 
5O0O0 
60100 
02000 
50000 
60200 
50000 
60200 
77777 



63400 
53400 
76200 
53400 
46000 
75400 
70000 
00001 
70000 
16200 

70000 
76000 
36100 
76000 
10000 
00001 
07400 



00205 
00210 



00211 
00225 
00160 
00155 
00215 
00155 
00225 
00154 
00156 
00154 
00156 
00156 
00216 
00233 
00160 
77777 
00174 
74413 
00001 
00000 
77777 
74414 
74413 
00225 

00264 
00265 
00301 
00161 
00361 
00000 
71456 
00250 
75531 
00246 

00362 
00006 
00362 
00006 
00261 
00242 
00004 



ME2 SYN 133 
ORG 136 

THIS ROUTINE IS ENTERED AFTER AN UNSUCCESSFUL BINARY SEARCH 
OF DEV. INDEX REGISTER 2 CONTAINS THE RELATIVE POSITION IN 
DEV THAT THE NEWt ENTRY SHOULD HAVE. 



NXT 
LIB21 

ECC 
ECI 



************* FORTRAN II SECTION SIX ***«*«»»**«»***«********F6C00010 
FORTRAN 2 RECORD 96 - ASSIGN COMMON F6C00012 

CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL) ?!5JJ?J? 

F6C00014 

F6CO0O20 

F6C00030 

F6C00031 

F6C00032 

F6C00033 

F6C00040 

F6C00050 

F6C00060 

F6C00070 

F6C00080 

F6C00090 

F6C00100 

F6C00110 

F6C00120 

F6C00130 

F6C00140 

F6C00150 

F6C00160 

F6C00170 

F6C00180 

F6C00190 

F6C0O2O0 

F6C00210 

F6C00220 

F6C00230 

F6C00240 

F6C00250 

F6C00260 

F6C00270 

F6C00280 

F6C00290 

F6C00300 

F6C00310 

F6C00320 

F6C00330 

F6C00340 

F6C00350 

F6C00360 

F6C00370 

F6C00380 

F6C00381 

F6C00390 

F6C00400 

F6C00410 

F6C00420 

F6C00430 

F6C00440 

F6C00450 



EDEV TXI EDEV0»2»1 
EDEVO SXD EDEVlt2 

STO ENTRY 

LXD DEVLt2 

TXI EDEV2»2tl 
EDEV2 SXD DEVL.2 
EDEV3 TXL EDEVlt2»**+0 

CAL DEVS 

ADD DEVA 

SLW DEVS 

STD DEVA 

ADD DEVA 

STD EDEV3 
EDEV1 TXH ED£V4»2»* 

CAL ENTRY 

SLW DEV»2 

CLA EA 

STO DEA»2 

TRA 1»4 
EDEV4 CAL DEV+1*2 

SLW DEV»2 

CAL DEA+1#2 

SLW DEA»2 



SAVE POSITION FOR TEST. 

SAVE ITEM TO BE ENTERED 

UPDATE LENGTH OF DEV TABLE. 

MUST STARTING PT OF NEXT SEARCH BE 

UPDATED TO NEXT POWER OF 2. 

YES. 

UPDATE DEVS 



UPDATE THE EDEV3 TEST TO NEXT 

HIGHER POWER OF 2. 

DECREMENT CONTAINS NEW POSITION 

OF ENTRY. IF TEST SHOWS THAT ENTRY 

TO BE MADE ON END OF TABLE* 

DO SO. 

ENTRY IS MADE INTO MIDDLE OF DEV. 

MOVE SUCCEDING ENTRIES DOWN 

UNTIL SPACE IS MADE FOR NEW ENTRY. 



TXI EDEV1»2»-1 

READ EQUIV SENTENCE FROM DRUM 



SXD LIB20t2 

LXA LOC15»2 

RDR 1 

LXA ZER0»1 

LDA ETL 

PXD 

CAD ECS-1»1 

TXI ECI»1»1 

CAD 1*1 

TOP ECC 

CPY CS 

COM 

ACL CS 

COM 

TZE GFI 

TIX LIB21»2»1 

TSX 4t4 



SAVE XR2 

SET DRUM READ ERROR COUNTER 

SET XR1*0 

TO LOCATE FIRST VARIABLE NAME IN EQUIV. SENT. 

COPY VARIABLE NAME INTO ECS-1 ETC 

COPY ELEMENT NUMBER INTO 1-1 ETC 

TRANS. TO ECC IF STILL MORE WORDS IN SENT. 

READ IN. 

CHECK SUM TEST. (EACH SENTENCE HAS ITS OWN 

LOGICAL CHECK SUM. 



IF CHECK SUM 0K» PROCEED TO GFI 

IF INCORRECT CHECK SUM* TRY AGAIN UNLESS 

ERROR COUNTER EQUALS ONE. 



C/t 



O 



u 



n 



00261 


-0 


63400 


i 


00363 


GFI 


SXD 


N»l 


00262 


-0 


5 3400 


2 


00264 




LXD 


LI820 


00263 





02000 


4 


00001 




TRA 


1*4 


00264 





00000 





00000 


LIB20 


HTR 





00265 





00000 





00017 


LCC15 


HTR 


15 
EQUIV 


00266 


-0 


53400 


1 


00363 


UP02 


LXD 


Ntl 


00267 


-0 


63400 


4 


00372 




SXD 


IR4»4 


00270 





50200 


1 


75531 




CLS 


1*1 


00271 


-2 


00001 


1 


00276 




TNX 


MAX»1 


002 72 





56000 


1 


75531 


MIT 


LDQ 


1*1 


00273 





04000 





00275 




TLQ 


TIN 


00274 





.50000 


1 


75531 




GLA 


I »1 


00275 


2 


00001 


1 


00272 


TIN 


TIX 


MIT*1 


00276 





60200 





00364 


MAX 


SLW 


MAXI 


00277 


-0 


75400 





OOOOO 




PXD 




00300 





60100 





00365 




STO 


MAXD 


00301 


-0 


53400 


1 


00363 




LXD 


N*l 


00302 





50000 


1 


71457 


LID 


CLA 


ECS»i 


00303 





53400 


2 


00366 




LXA 


VS2»2 


00304 


-3 


00000 


2 


00311 




TXL 


NSZ* 2 


00305 





3400C 


2 


75055 


SS2 


CAS 


STS»2 


00306 





02000 





00310 




TRA 


TDV 


003 07 





02000 





00313 




TRA 


SSF 


003 1C 


2 


00001 


2 


00305 


TDV 


TIX 


SSZ*2 


00311 





50000 


6 


00162 


NSZ 


CLA 


ONE 


00312 





C2000 





00314 




TRA 


LIT 


C C 3 1 3 





5O00O 


2 


76173 


SSF 


CLA 


L*2 


00314 


-0 


40000 


1 


75531 


LIT, 


S5H 


III 


00315 





60100 





00173 




STO 


D' 


00316 





56000 





00173 




LDQ 


D 


00317 





50000 





00365 




CLA 


MAXD 


00320 





04000 





00322 




TLQ 


DEN 


00321 


-0 


60000 





00365 




STQ 


MAXD 


00322 


2 


0OO01 


1 


00302 


DEN 


TIX 


LID*1 


00323 





50000 





00171 




CLA 


LCTR 


00324 





40200 





00364 




SUB 


MAXI 


00325 





60100 





00171 




STO 


LCTR 


00326 


-0 


53400 


1 


00363 




LXD 


N*l 


00327 


-0 


63400 


1 


00367 


STJ 


SXD 


J»l 


00330 





50000 





00171 




CLA 


LCTR 


0033} 





40100 


1 


75531 




ADM 


1*1 


00332 


/-I 


60100 


w 


0017* 




STO 


EA 


00 333 





50000 


2 


71457 


r*£ c 


CLA 


ECS*1 


00334 





H7400 


ii 


00142 




TSX 


SDEV* 


00335 





07'* 10 


L. 


00210 




TSX 


EDEV* 


00336 





02000 





00 342 




TRA 


MJC 



#2 



SAVE NO* OF VARIABLE NAMES READ IN SENT* 

RESTORE XR2 

RETURN 



SENTENCE ASSIGNMENT 

N=NO* OF WORDS 
SAVE XR4 
SELECT MAXIMUM 



• 1 



.1 



*1 



IN SENTENCE INTO XR1 
I+/LAST I/INTO AC 



WHERE I IS NUMERIC PART OF £QUIV« 

NEXT I 

GREATER OF THE TWO IS INTO AC* 



IF MORE IS TO BE COMPARED* DECREMENT XR1 

AND REPEAT WITH NEXT I* 

STORE MAXIMUM 1 OF SENTENCE* 

LET D=L-I» WHERE L IS LENGTH OF ARRAY 

SET MAXD=0 WHICH CORRESPONDS TO ONE 

WD CT. OF SENT* INTO XR1. OF THE WORDS IN 

SENTENCE* 

BRING A WORD OF SENTENCE INTO AC* 

NO. OF ENTRIES IN ARRAY NAME TABLE (FROM SIZE 

TABLE)* 

IF NO ENTRIES IN SIZE TABLE* GO TO NSZ 

OTHERWISE* COMPARE A WORD OF EQUIV SENT WITH 

AN ARRAY NAME* 



THE 



F6C00460 
F6C00470 
F6C00480 
F6C00490 
F6CO050O 
F6C00510 
F6C0O520 
F6C00530 
F6C0Q540 
COMPARE WITH F6C00550 
F6C0O560 
F6C00570 
F6C00580 
F6COO590 
F6C0O591 
F6C00600 
F6C00610 
F6C00620 
F6C00630 
F6C00631 
F6COO640 
F6C00650 
F6C00651 
F6C00660 
F6C00670 
F6C00671 
F6C00680 

IF EQUAL, 60 TO SSF TO COMPUTE D* - F6C00690 

IF NOT EQUAL, DECREMENT ARRAY NAME INDEX AND GOF6C00700 
AGAIN TO COMPARE* F6C0O701 

IF NO WORD IN SENTENCE IS AN ARRAY* F6C0Q710 

SET L=l AND GO TO LIT TO COMPUTE D* F6C00720 

IF WORD IN SENT.^ARRAY NAME IN SIZE TABLE*. CLA F6C00730 
LENGTH OF THAT ARRAY. F6C00731 

F6C00740 
F6C00741 
F6C00750 
F6C00760 
F6C00770 
F6C00780 
F6C0079O 
F6C00800 
F6C00810 
F6C00820 
F6C00830 
F6C00840 
F6C00850 
F6C00860 
F6C00870 
F6C008S0 
F6C00890 
F6C00900 
F6C00910 
F6C00920 



COMPUTE AND STORE D»L-I FOR I CORRESPONDING TO 

WORD 

IN EQUIVALENCE SENTENCE* 

COMPARE WITH MAXD AND STORE LARGER IN MAXD* 



GO BACK AND COMPUTE D USING NEW I 

IS CORRESPONDING TO WDS IN EQUIV* 

EXHAUSTED* 

REDUCE LOCATION COUNTER BY MAXI 

RESET COUNTER. FOR WORDS IN EQUIV* 
SAVE CURRENT STATUS OF COUNTER IN 
COMPUTE ABSOLUTE LOCATION OF WORD 
AND SAVE IT IN EA* 

CURRENT WORD OF EQUIV SENTENCE* 
SEARCH DEV TABLE 
STORE IN DEV TABLE 
RETURN FROM EDEV* 



UNTIL ALL 
SENT* ARE 



SENTENCE* 
DECR. OF J* 
IN SENT** 



00337 





40200 





00174 




SUB 


EA 


00 340 





10000 





00342 




TZE 


MJC 


00341 





07400 


4 


00004 




TSX 


4»4 


00342 


-0 


53400 


1 


00367 


MJC 


LXD 


Jfl 


0O343 


2 


00001 


1 


00327 




TIX 


STJ.1.1 


00344 





50000 





00171 




CLA 


LCTR 


00345 





40200 





00365 




SUB 


MAXD 


00346 





60100 





00171 




STO 


LCTR 


00347 


-0 


53400 


4 


00372 




LXD 


IR4.4 


00350 





50000 





00363 


UP03 


CLA 


N 


00S31 





77100 





00021 




ARS 


17 


00352 





40000 





00162 




ADO 


ONE 


00353 





40000 





00361 




ADD 


ETL 


00354 





60100 





00361 




STO 


ETL 


00355 





53400 


1 


00361 




LXA 


ETL.l 


00356 


-3 


00000 


1 


00360 


ECN 


TXL 


UP31.lt** 


00357 


O 


020U0 


4 


0WO2 




TRA 


2.4 


00360 





02000 


4 


00001 


UP31 


TRA 


1»4 


00361 





00000 





00000 


ETL 


HJR 





00362 





00000 





00000 


CS 


HTR 





00363 





00000 





00000 


N 


HTR 





00364 





00000 





00000 


MAX I 


HTR 





00365 





00000 





00000 


MAXD 


HTR 





00366 





00000 





ooooo 


VSZ 


HTR 





00367 





00000 





00000 


J 


HTR 





00370 





00000 





ooooo 


ETN 


HTR 





00371 


+000001000000 


CI 


OCT 


000001000000 


00372 





00000 





ooooo 

00400 


IR4 


HTR 
ORG 




BUILD SYMBOL 

256 


00400 


-0 


75400 





00004 


UP12 


PXD 


4 


00401 





76000 





00006 




COM 




00402 





60200 





77777 




SLW 


DEV 


00403 





76200 





00222 




RTB 


2 


00404 





53400 


1 


00411 




LXA 


STP.l 


00405 





02000 





00412 




TRA 


UP15 


00406 





76400 





00202 


ERRUP 


BST 


2 


00407 


2 


00001 


1 


00412 




TIX 


UP15.1.1 


00410 





07400 


4 


00004 




TSX 


4»4 


00411 





42000 





00005 


STP 


HPR 


5 


00412 





76200 





00222 


UP15 


RTB 


2 


00413 


-0 


53400 


4 


00164 




LXD 


ADDR.4 


00414 





70000 


4 


72606 


UP16 


CPY 


UPPER-1.4 


00415 


1 


00001 


4 


00414 




TXI 


UP16.4.1 


00416 





02000 





00427 




TRA 


EOF 


00417 





77100 





00377 




ARS 


255 


00420 





77100 





00377 




ARS 


255 


00421 


-o 


76000 





000 12 




RTT 




00422 





02000 





00406 




TRA 


ERRUP 


00423 





50000 





72605 




CLA 


UPPER-2 


00424 





40200 





00371 




SUB 


CI 


00425 





62200 





00522 




STD 


UP18 


00426 





02000 





00430 




TRA 


DSR 



RETURN FROM SDEV IF FOUND IN ^V TABLE. DEA 
CORRESP» TO DEV ENTRY SHOULD EQUAL EA OR ERROR 

CURRENT STATUS OF EQUIV. WORD COUNTER 

IF MORE WDS IN SENTENCE. REPEAT WITH NEXT WORD 

AT END OF SENTENCE* REDUCE LCTR BY MAXD. 



TO MODIFY DRUM ADDRESS ADD NO. OF WORDS READ 

EQUIVALENCE TABLE. 

PLUS ONE TO ALLOW FOR CHECK SUM 

PLUS 

LAST STARTING DRUM ADDRESS. 

STORE NEW STARTING DRUM ADDRESS IN ETL. 

TEST FOR END OF EQUIVALENCE TABLE. 

WD COUNT OF EQUIV. TABLE IN DECR. 

IS END OF TABLE t GO TO 2.4 

IF NOT END OF EQUIV TABLE. GO TO EXIT+I 



CONTAINS NO. OF 2-WORD ENTRIES IN SIZ TABLE. 



TABLE FROM COMMON 



WORD OF IS INTO DEV. 

TO SKIP SUBDEF RECORD ON TAPE 2. 

SET TAPE ERROR COUNTER 

AND GO TO READ IN COMMON. 

TRY TO READ RECORD AGAIN 

UNLESS COUNTER REDUCED TO 1. 



SELECT TAPE TWO 

READ IN COMMON TABLE. 

END OF FILE IS ERROR HERE 



STORE WORD COUNT OF COMMON 
TABLE -1 IN DECR OF UP 18 

ERROR 



F6C00930 
F6C00940 
F6C00950 
F6C00960 
F6C00970 
F6C00980 
F6C00990 
F6C01000 
F6C01010 
F6C01020 
F6C01021 
F6C01030 
F6C01040 
F6C01050 
F6C01060 
F6C01070 
F6C01080 
F6C01090 
F6C01100 
F6C01110 
F6C01120 
F6C01130 
F6C01140 
F6C01150 
F6C01160 
F6C01170 
F6C01180 
F6C01190 
F6C01200 
F6C01210 
F6C01220 
F6C01230 
F6C01240 
F6CO1250 
F6C01260 
F6C01270 
F6C01280 
F6C01290 
F6C01300 
F6C01310 
F6C01320 
F6C01330 
F6C01340 
F6C01350 
F6C01360 
F6C01370 
F6C01380 
F6C01390 
F6C014OO 
F6C01410 
F6C01420 
F6C01430 
F6C01440 
F6C01450 



u 



u 



00427 





07400 


4 


00004 


EOF 


TSX 


4t4 


00430 





53400 


2 


00265 


DSR 


LXA 


L0C15»2 


00431 





76200 





00302 


LIB22 


RDR 


2 


00432 





46000 





00433 




LDA 


DSA 


00433 


-0 


75400 





00000 


DSA 


PXD 





00434 


-0 


70000 





00366 




CAD 


VSZ 


00435 





76000 





00006 




COM 




00436 


-0 


70000 





00362 




CAD 


CS 


00437 





76000 





00006 




COM 




00440 





10000 





00443 




TZE 


DTR 


00441 


2 


00001 


2 


00431 




TIX 


LIB22»2»1 


00442 





07400 


4 


00004 




TSX 


4*4 


00443 





50000 





00366 


DTR 


CLA 


VSZ 


00444 





77100 





00001 




ARS 


1 


00445 





60100 





00366 




STO 


VSZ 


00446 





53400 


1 


00366 


DTE 


LXA 


VSZ fl 


00447 


-3 


00000 


1 


00466 




TXL 


ETR»1 


00450 





53400 


2 


00265 




LXA 


L0C15»2 


00451 





76200 





00302 


LIB23 


RDR 


2 


00452 





46000 





00453 




LDA 


DTA 


00453 


-0 


75400 





00002 


DTA 


PXD 


2 


00454 


-0 


70000 


1 


75055 


DTC 


CAD 


STS»1 


00455 


-0 


70000 


i 


76173 




CAD 


L*l 


00456 


2 


00001 


1 


00454 




TIX 


DTC*1»1 


00457 





70000 





00362 




CPY 


CS 


00460 





76000 





00006 




COM 




00461 


-0 


70000 





00362 




CAD 


CS 


00462 





76000 





00006 




COM 




00463 





10000 





00466 




TZE 


ETR 


00464 


2 


00001 


2 


00451 




TIX 


LIB23*2»1 


00465 





07400 


4 


00004 




TSX 


4*4 


00466 





53400 


2 


00265 


ETR 


LXA 


L0C15*2 


00467 





76200 





00301 


LIB24 


RDR 


1 


00470 





46000 





00471 




LDA 


ETA 


00471 


-0 


75400 





00000 


ETA 


PXD 





00472 


-0 


70000 





00370 




CAD 


ETN 


00473 





76000 





00006 




COM 




00474 


-0 


70000 





00362 




CAD 


CS 


00475 





76000 





00006 




COM 




00476 





10000 





00501 




TZE 


ETT 


00477 


2 


00001 


2 


00467 




TIX 


LlB24.2tl 


00500 





07400 


4 


00004 




TSX 


4f4 


00501 


-0 


53400 


1 


00370 


ETT 


LXD 


ETN,1 


00502 


-3 


00000 


1 


00535 




TXL 


UPOltl 


00503 


-0 


63400 


1 


00356 




SXD 


ECN.l 


00504 





50000 





00163 




CLA 


TWO 


00505 





60100 





00361 




STO 


ETL 


00506 





50000 





72605 




CLA 


UPPER-2, 


00507 





10000 





00574 




TZE 


UP25 


00510 





07400 


4 


00240 


UP32 


TSX 


NXTt4 


00511 


2 


00001 


1 


00512 




TIX 


CH2*1*1 


00512 


-0 


63400 


1 


00525 


CH2 


SXD 


UP21.1 


00513 


-0 


53400 


1 


00164 




LXD 


ADDR»1 



END OF FILE ERROR 

SET DRUM ERROR COUNTER 

SIZE TABLE TEST 

READ SI2E TABLE WORD COUNT 



IF DRUM READ ERROR 



STORE NO. OF ARRAY NAMES IN SIZE 

TABLE INTO VSZ 

SIZE TABLE TEST 

IF NO SIZE TABLEt GO ETR 

IF SIZE TABLE ENTRIES* SET 

DRUM READ ERROR COUNT AND READ IN SIZE 

TABLE. 

COPY ARRAY NAME INTO STS»1 
COPY ARRAY LENGTH INTO L*l 



TEST CHECK SUM IF OK* GO TO ETR. 
CHECK SUM ERROR. 



SELECT DRUM 1. TO SEE IF ANY EOUIV. TABLE. 
EQUIV TABLE TEST 

READ WORD COUNT OF EQUIV TA8LE INTO ETN 



IF NO ERROR* GO TO ETT. 



SET XR1 EQUAL WD. CT. OF EQUIV TABLE 

IF WORD COUNTER ZERO* TRANSFER 

IF THERE ARE ENTRIES IN EQUIV* SAVE WD. CT. 

ECN. 

SET ETL=2 

IF WORD COUNT OF COMMON TABLE 

EQUALS ZERO* GO TO UP 25. IF NOT 0* 

READ EQUIV* SENTENCE. 

XR1 CONTAINS NO. OF WORDS READ BY NXT 

NO. OF WORDS IN SENTENCE INTO DECR. UP 21 

SET XR1»2=0 



F6C01460 
F6CD1470 
F6C01480 
F6C01490 
F6C01500 
F6C01510 
F6C01520 
F6C01530 
F6C01540 
F6C01550 
F6C01560 
F6C01570 
F6C01580 
F6C01590 
F6C01600 
F6C01610 
F6C01620 
F6C01630 
F6C01640 
F6C01650 
F6C01660 
F6C01670 
F6C01680 
F6C01690 
F6C01700 
F6C01710 
F6C01720 
F6C01730 
F6C01740 
F6C01750 
F6C01760 
F6C01770 
F6C01780 
F6C01790 
F6C01800 
F6C01810 
F6C01820 
F6C01830 
F6C01840 
F6C01850 
F6CO1860 
F6C01870 
F6C01880 
F6C01890 
IN F6C01900 
F6C01901 
F6C01910 
F6C01920 
F6C01930 
F6C01940 
F6C01950 
F6C01960 
F6C01970 
F6C01980 



(rtl 



00514 


-0 


53400 


2 


00164 


UP22 


LXD 


ADDR.2 


00515 





50000 


1 


71456 


UP20 


CLA 


ECS-1.1 


00516 





34000 


2 


72604 




CAS 


UPPER-3.2 


00517 





02000 





00521 




TRA 


UP17 


00520 





02000 





00532 




TRA 


UP30 


00521 


1 


00001 


2 


00522 


UP17 


TXI 


UP18.2.1 


00522 


3 


00522 


2 


00524 


UP18 


TXH 


UP19t2#* 


00523 





02000 





00515 




TRA 


UP 20 


00524 


1 


00001 


1 


00525 


UP19 


TXI 


UP21.1.1 


00525 


3 


00525 


1 


00527 


UP21 


TXH 


UP33.1.* 


00526 





02000 





00514 




TRA 


UP22 


00527 





07400 


4 


00350 


UP33 


TSX 


UP03f4 


00530 





02000 





00510 




TRA 


UP32 


00531 





02000 





00535 




TRA 


UP01 


00532 





07400 


4 


00266 


UP30 


TSX 


UP02.4 


00533 





02000 





00510 




TRA 


UP32 


00534 





02000 





00535 




TRA 


UP01 

ASS I ON UPPER 


00535 


-0 


53400 


1 


00164 


UP01 


LXD 


ADDR.l 


00536 





50O00 





72605 




CLA 


UPPER-2 


00537 





10000 





00576 




TZE 


ME1 


00540 





40200 





00371 




SUB 


CI 


00541 





62200 





00572 




STD 


UP23 


00542 





50000 





00171 




CLA 


LCTR 


00543 





60100 





00174 




STO 


EA 


00544 





50000 


1 


72604 


UP24 


CLA 


UPPER-3.1 


00545 


-0 


63400 


1 


00601 




SXD 


LIB1.1 


00546 





07400 


4 


00142 




TSX 


SDEV»4 


00547 





07400 


4 


00210 




TSX 


EDEV.4 


00550 


c 


02000 





00553 




TRA 


UP05 


00551 


-0 


53400 


1 


00601 




LXD 


LlBltl 


00552 





02000 





00571 




TRA 


UP06 

TO DETERMINE 


00553 





53400 


2 


00366 


UP05 


LXA 


VSZ.2 


00554 


-0 


53400 


1 


00601 




LXD 


LIB1.1 


00555 


-3 


00000 


2 


00563 




TXL 


UP07.2 


00556 





50000 


1 


72604 




CLA 


UPPER-3.1 


00557 





34000 


2 


75055 


UP08 


CAS 


STS.2 


00560 





02000 





00562 




TRA 


UP09 


00561 





02000 





00565 




TRA 


UP10 


00562 


2 


00001 


2 


00557 


UP09 


TIX 


UP08.2.1 


00563 





50200 





00162 


UP07 


CLS 


ONE 


00564 





02000 





00566 




TRA 


UP11 


00565 





50200 


2 


76173 


UP10 


CLS 


L.2 


00566 





40000 





00171 


UP11 


ADD 


LCTR 


00567 





60100 





00171 




STO 


LCTR 


00570 





60100 





00174 




STO 


EA 


00571 


1 


00001 


1 


00572 


UP06 


TXI 


UP23.1.1 


00572 


3 


00572 


1 


00574 


UP23 


TXH 


UP25.1.* 



COMPARE VARIABLE NAME FROM EQUIV SENTENCE 

WITH WORD IN COMMON 

NOT EQUAL 

EQUAL* I.E. VARIABLE NAME IS IN COMMON. 

NOT EQUAL. INCREMENT INDEX REG 2 



F6C01990 
F6C020O0 
F6C02010 
F6C02020 
F6C02030 
F6C02040 



PROCEED TO UP 19 IF ALL WORDS IN COMMON COMPAREF6C02050 
OTHERWISE COMPARE AGAIN WITH NEXT COMMON WORD F6C02060 
END OF COMMON. INCREMENT VARIABLE NAME COUNTER F6C02070 
IF ALL VARIABLE NAMES IN SENTENCE COMPARED F6C02080 
IF MORE NAMES IN SENTENCE. COMPARE NEXT WORD F6C02090 
MODIFY DRUM ADDRESS AND TEST FOR END OF EQUIV. F6C02100 



TAB. 

RETURN HERE IF NOT END OF EQUIV TABLE TO READ 

NEXT SENTENCE 

IF END OF EQUIV TABLE. RETURN HERE 
TO ASSIGN EQUIV. SENT. WORD OF WHICH 
APPEARS TN COMMON. TO UPPER MEMORY 
RETURN IF NOT END. OF EOUlV. TABLE 
IF END OF EQUIV TABLE. RETURN HERE 
MEMORY FOR WORDS IN COMMON BUT NOT IN EQUIV. 
ASSIGN UPPER 



F6C02101 
F6C02110 
F6C02111 
F6C02120 
F6C02130 
F6C02I31 
F6C02140 
F6C02150 
F6C02151 
F6C02160 



XR1 WILL CONATIN COUNT OF COMMON WDS PROCESSED. F6C02170 



TRANSFER OUT TO ME1 IF. NO COMMON TABLE. 

IF THERE IS A COMMON TABLE. DECREASE WORD CT. 

BY 1 AND STORE IN DECR. OF i)P 23 



F6C02180 
F6C02190 
F6C02200 
F6C02210 
F6C02220 
F6C02230 
F6C02240 
F6C02250 
F6C02260 
F6C02270 



STORE LOCATION COUNTER IN EA. 
A COMMON ENTRY INTO AC. 
SAVE COUNT. 
SEE IF IN DEV TABLE 

TO ENTER COMMON SYMBOL IN DEV TABLE. 
RETURN FROM EDEV. GO TO UP05 TO RESET LCTR 
RETURN HERE IF LOCATED COMMON WORD IN DEV TABL.F6C02280 
RESTORE XR AND GO TO UP06 TO INCREMENT WD COUNTF6C02290 
WHETHER SYMBOL JUST ENTERED IN DEV IS AN ARRAY. F6C02291 
IS UPPER SYM F6C02300 

F6C02310 

TRANSFER IF NO SIZE TABLE. !l 6 S? 232 ? 

COMPARE COMMON SYMBOL JUST ENTERED IN DEV TABLEF6C02330 



WITH ARRAY NAME FROM SIZE TABLE 

COMMON SYMBOL LOCATED FN SIZE TABLE 

NOT LOCATED* REPEAT UNTIL COMPARED WITH ALL 

ARRAY NAMES 

IF NOT IN SIZE TABLE. REDUCE LCTR BY ONE. I. 

NOT AN ARRAY. 

REDUCE LCTR BY LENGTH OF ARRAY 
REDUCE LCTR 

STORE CURRENT LCTR IN EA. 

REPEAT FOR EACH COMMON ENTRY UNTIL 

ALL ENTRIES IN COMMON TABLE ARE IN DEV 



F6C02340 
F6C02350 
F6C02360 
F6C02370 
F6C02371 
F6C02380 
F6C02381 
F6C02390 
F6C02400 
F6C02410 
F6C02420 
F6C02430 
F6C02440 
F6C02450 



Or/ 



U 



u 



n 





00573 





02000 





00544 




TRA UP24 




00574 





76200 





00221 


UP25 


RTB 1 




00575 





02000 





00004 




TRA 4 


M 


00576 





62100 





00205 


ME1 


STA ME2 




00577 





02000 





00574 




TRA UP25 




00600 





00000 





00000 


IOENT 


HTR 




00601 





00000 





00000 


LIB1 


HTR 


A 
A 










00000 


ME2 


END 
00205*00205 



TABLE WITH THEIR ABSOLUTE LOCATIONS IN DEA TABLF6C02460 



GO TO LOADER 

STORE ZERO IN ADDRESS OF ME2 AND 60 TO 
LOADER. 



F6C02470 
F6C02480 
F6C02490 
F6C02500 
F6C02510 
F6C02520 
F6C02530 



£,< 



AST 



00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 

00424 
00425 
00426 
00427 
00430 
00431 
00432 
00433 
00434 
00435 
00436 

00437 
00440 
00441 



50000 

60100 

7620© 

75400 

46000 

70000 

70000 

53400 

00000 

53*00 

76200 

75400 

46000 

70000 

00001 

70000 

76000 

70000 

76000 

10000 



00001 
07400 
50000 
40200 
62200 
53400 
50000 
60100 
50000 
63400 
07400 



07400 4 
02000 
O7400 4 



00210 
00240 
00265 
00266 
00350 
00361 
00363 
00366 
00367 
00370 
004O0 
00171 
00175 
00303 
00000 
00403 
72605 
72605 
72605 
00*52 
00265 
00303 
00002 
00413 
72605 
00415 
00625 
00006 
00625 
00006 
00426 

00412 
00004 
72605 
00626 
00450 
00164 
00166 
0017* 
72604 
0O627 
00142 

00210 
00442 
00004 



EDEV 

NXT 

LOCI 5 

UP02 

UP03 

ETL 

N 

VS2 

J 

ETN 



A27 



A23 



XI 
A29 

A30 



A25 



A42 



A41 



SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
SYN 
ORG 
CLA 
STO 
RDR 
PXD 
LDA 
CPY 
CPY 
LXD 
TXL 
LXA 
RDR 
PXD 
LDA 
CAD 
TIX 
CPY 
COM 
CAD 
COM 
TZE 

TIX 
TSX 
CLA 
SU& 
STD 
LXD 
CLA 
STO 
CLA 
SXD 
TSX 

TSX 
TRA 
TSX 



************* FORTRAN II SECTION SIX *»«««»»»»***««»*»*«****F6D00010 
FORTRAN 2 RECORD 98 - EGUIV-DIMENSION. F6DO0O12 

F6D00013 
F6D00014 
F6D00020 
F6DOOO30 
F6D00040 
F 60000 50 
F6D0^pjW> 
F6D00%70 
F6D00O60 
F6D0009Ct 
F6D00100 
F6D00110 
F6D00120 
F6000130 
F6000140 
F6D00150 
F6000160 
F6D0O170 
F6D00180 
F6D00190 
F6D00200 
F6D0O210 
F6D00220 
F6000230 
F6D0O240 
F6D00250 
F6D00260 
F6D00270 
F6D00280 
F6D0029O 
F6D00300 
F6D00310 
F6D00320 
CHECK SUM OKAY. GO TO ENTER TRANS. VECTOR INTO F6D00330 



CONTROL ENTERS THIS RECORD AT LOCATION 400 (OCTAL >• 

ENTER TRANSFER VECTOR INTO DEV TABLE 

136 

160 

181 

182 

232 

241 

243 

246 

247 

248 

256 

LCTR 

L3 

3 



A27 

UPPER-2 

UPPER-2 

UPPER-2 »1 

A28tl 

LOC15t2 

3 

2 

A29 

UPPER-2 rl 

A30.W1 

SUM 



SUM 



A25 

XI. 2.1 
4»4 

UPPER-2 

C2 

A24 

ADDR.l 

LI 

EA 

UPPER-3.1 

LIB1.1 

SDEV»* 

EDEV.4 

A40 

4#4 



SAVE UPPER BREAK 

IN L3 

SELECT DRUM 3 

LOCATE TRANSFER VECTOR TABLE 1CLOSUB) 

LOAD INDEX REG 1 WITH WORD COUNT OF 

TRANSFER VECTOR TABLE. 

IF NO TRANS VECTOR. GO TO ASSIGN EQUIV AND 

DIMENSION STORAGE. 

IF THERE IS A TRANSFER VECTOR. 

READ IT INTO UPPER -3 ETC. 



TO TEST CHECK SUM 



DEV TABLE* 

IF CHECK SUM ERROR. TRY AGAIN 

REDUCE WD COUNT OF TRANSFER VECTOR BY ONE 
AND STORE RESULT IN DECR OF A24. 

SET COUNTER FOR WORDS PROCESSED xTO ZERO. 

STORE PROGRAM COUNTER IN EA. 
SELECT A TRANSFER VECTOR NAME. 

TO SEE IF NAME SELECTED IS IN DEV TABLE. YES. 

ERROR. 

ENTER NAME IN DEV TABLE. 

EXIT FROM EDEV. 

IF NAME LOCATED IN DEV TABLE. ERROR 



F6D00331 
F6D00340 
F6D00350 
F6D0O360 
F6D0O370 
F6D0O380 
F6D00390 
F6D00400 
F6D00410 
F6D0O*20 
F6D00430 
F6D00*40 
F6D00**1 
F6D00450 
F6D00460 
F6D00470 



t/6 



o 



u 



00442 





50000 





00166 


A40 


CLA 


LI 


00443 





60100 





00167 




STO 


L2 


00444 





40000 





00162 




ADD 


ONE 


00445 





60100 





00166 




STO 


LI 


00446 


-0 


53400 


1 


00627 




LXD 


L I B 1 $ I 


00447 


1 


00001 


1 


00450 




TXi 


A24»ltl 


00450 


3 


00450 


1 


00452 


A24 


TXH 


A28»l»# 


00451 





02000 





00433 




TRA 


A42 

ASSIGN EQUIV 


00452 





76400 





00202 


A28 


BST 


2 


00453 





76400 





00202 




BST 


2 


00454 





53400 


1 


00461 




LXA 


Al»l 


00455 





02000 





00462 




TRA 


A2 


00456 





76400 





00202 


A3 


BST 


2 


00457 


2 


00001 


1 


00462 




TIX 


A2»l»l 


00460 





07400 


4 


00004 




TSX 


4»4 


00461 





42000 





00005 


Al 


HPR 


5 


00462 





76200 





00222 


A2 


RTB 


2 


00463 


-0 


53400 


4 


00164 




LXD 


ADDR,4 


00464 





70000 


4 


72606 


A4 


CPY 


UPPER~1»4 


00465 


1 


00001 


4 


00464 




TXI 


A4»4»l 


00466 





02000 





00624 




TRA 


E0F1 


00467 





77100 





00377 




ARS 


255 


00470 





77100 





00377 




ARS 


255 


00471 


-0 


76000 





00012 




RTT 




00472 





02000- 





00456 




TRA 


A3 


00473 


o. 


77200 





00202 




REW 


2 


00474 





50000 





00370 




CLA 


ETN 


00475 





10000 





00556 




TZE 


DIM 


00476 





50000 





00163 




CLA 


TWO 


00477 





60100 





00361 




STO 


ETL 


00500 





07400 


4 


00240 


A5 


TSX 


NXT»4 


00501 





50000 





72605 


A6 


CLA 


UPPER-2 


00502 





40200 





00626 




SUB 


C2 


00503 





10000 





00530 




TZE 


ME30 


00504 


-0 


12000 





00530 




TMI 


ME30 


00505 


2 


00001 


1 


00506 




TIX 


CH4*1,1 


00506 


-0 


63400 


1 


00535 


CH4 


SXD 


A14»l 


00507 





40200 





00626 




SUB 


C2 


00510 





62200 





00520 




STD 


A12 


00511 


-0 


53400 


1 


00164 




LXD 


ADDR.l 


00512 


-0 


53400 


2 


00164 


A8 


LXD 


ADDR»2 


00513 





50000 


1 


71456 


A9 


CLA 


ECS-ltl 


00514 





34000 


2 


72603 




CAS 


UPPER-4,2 


00515 





02000 





00517 




TRA 


A10 


00516 





02000 





00542 




TRA 


All 


00517 


1 


00001 


2 


00520 


A10 


TXI 


A12,2»l 


00520 


3 


00000 


2 


00644 


A12 


TXH 


DPCH3»2»** 


00521 





02000 





00513 




TRA 


A9 


00522 





07400 


4 


00142 


A13 


TSX 


SDEV»4 


00523 


-0 


.53400 


1 


00646 




LXD 


SVIT*1 



STORE PROGRAM COUNTER IN PROG BREAK. 

INCREASE PROGRAM COUNTER BY 1. 



TRANSFER TO ASSIGN EQUIV* IF ALL TRANS VECTOR 
NAMES ENTERED 



F6D00480 
F6D00490 
F6D00500 
F6000510 
F6D00520 
F6D00530 
F6D00540 
F6D00541 
F6D00550 
F6D00560 
F6D00561 



READ ERROR PROCEDURE 



SELECT TAPE TWO 

TO READ SUB DEF» TABLE. 

SET COUNTERS* 

AND READ SUBDEF TABLE. 

INTO UPPER-1* ETC* 

END-OF-FILE IS ERROR HERE* 



IF RTT ERROR. r nr , 

WHEN RECORD HAS BEEN READ. REWIND TABLE-TAPE. 
ETN HAS WORD COUNT OF EQUIV. TABLE 
IF NO EQUIV. ENTRIES* GO TO ASSIGN DIMENSION 



AOTHERWISE* SELECT NEST TRANS. VEC. NAME AND 
ENTER IN DEV 

TO POSITION TAPE 2 AT BEGINNING OF SUBDEF TABL F6D00570 
1 rwo11 1W F6D00580 

SET READ ERROR COUNTER F6D ?° 5 ?? 

F6D00600 

F6D00610 
F6D00620 
F6D00630 
F6D00640 
F6D00650 
F6D00660 
F6000670 
F6D00680 
F6D00690 
F6D00700 
F6D00710 
F6D00720 
F6D00730 
F6D00740 
F6D00750 
F6D00760 
F6D00770 

STORE WD CT OF EQUIV TABLE+2 IN ETL F6D00780 

TO READ AN EQUIV SENTENCE INTO ECS-1*". I - 1 »-~^™I«n 
LEAVES WD CT. OF SENT. IN XR1. "?«???« 

TEST WORD COUNT OF SUBDEF TABLE. F6D00810 

IF NO ARGUMENTS, GO TO SEARCH DEV TABLE F6D00820 

F6D00830 
F6D00840 
F6D00850 
F6D00860 
F6D00870 
F6D00880 
F6D00890 
F6D00900 
F6D00910 
F6D00920 

IN SUB DEF TABLE, I.E. EQUIV. VARIABLE IS A SUBF6D00930 
ROUTINE ARGUMENT F6D00931 

INCREASE ARGUMENT COUNTER AND REPEAT COMPARISONF6D00940 

F6D00950 
F6D00960 
F6D00970 
F6D00980 



SAVE XR1 IN DECR. OF A14 



SET XRS 1+2=0 

COMPARE A WORD OF EQUIV SENTENCE 

WITH LIST OF ARGUMENTS IN SUBDEF TABLE. 



'"7 



00524 


1 


00001 


1 


00535 




TXI 


A14.1.1 


00525 





07400 


4 


00350 




TSX 


UP03.4 


00526 





02000 





00500 




TRA 


A5 


00527 





02000 





00556 




TRA 


DIM 


00530 





50000 





71456 


ME30 


CLA 


ECS-1 


00531 





07400 


4 


00142 




TSX 


SDEV#4 


00532 





02000 





00537 




TRA 


A7 


00533 





76100 





00000 




NOP 




00534 





02000 





00525 




TRA 


A13+3 


00535 


3 


00535 


1 


00537 


A14 


TXH 


A7*l»* 


00536 





02000 





00512 




TRA 


A8 


00537 





07400 


4 


00266 


A7 


TSX 


UP02.4 


00540 





02000 





00500 




TRA 


A5 


00541 





02000 





00556 




TRA 


DIM 


00542 





60000 





00174 


All 


STZ 


EA 


00543 


-0 


53400 


1 


00363 




LXD 


N.l 


00544 


-0 


63400 


1 


00367 


A21 


SXD 


J»l 


00545 





50000 


1 


71457 




CLA 


ECS.l 


00546 





07400 


4 


00142 




TSX 


SDEVt4 


00547 





07400 


4 


00210 




TSX 


EDEV.4 


00550 





02000 





00551 




TRA 


A22 


00551 


-0 


53400 


1 


00367 


A22 


LXD 


J*l 


00552 


2 


00001 


1 


00544 




TIX 


A21fl.l 


00553 





07400 


4 


00350 




TSX 


UP03.4 


00554 





02000 





00500 




TRA 


A5 


00555 





02000 





00556 




TRA 


DIM 

ADD SYMBOLS 


00556 





53400 


1 


00366 


DIM 


LXA 


VSZ.l 


00557 


-3 


00000 


1 


00622 




TXL 


ENDA.l 


00560 





02000 





00631 


SZYES 


TRA 


DPCH1 


00561 





62200 





00604 




STD 


A18 


00562 





50000 





00171 




CLA 


LCTR 


00563 





60100 





00174 


SEA 


STO 


EA 


00564 





50000 


1 


75055 


DDS 


CLA 


STS.l 


00565 


-0 


63400 


1 


00363 




SXD 


N»l 


00566 





07400 


4 


00142 




TSX 


SDEV.4 


00567 





02000 





00574 




TRA 


A15 


00570 





76100 





00000 




NOP 





00571 


-0 


53400 


1 


00363 




LXD 


N.l 


00572 


I 


00001 


1 


00564 




TIX 


DDS.1.1 


00573 





02000 





00622 




TRA 


ENDA 


00574 


-0 


63400 


2 


00630 


A15 


SXD 


IR2f2 


00575 


-0 


53400 


2 


00164 




LXD 


ADDR»2 


00576 





02000 





00637 




TRA 


DPCH2 


00577 





50000 


1 


75055 


A20 


CLA 


STS»1 


00600 





34000 


2 


72603 




CAS 


UPPER-4.2 


00601 





02000 





00603 




TRA 


A16 



F6D00990 
IF WORD FOUND IN DEV SEARCH* 60 TO MODIFY DRUM F6D01000 
AnnPF^s F6D01001 

OF EQUIV TABLE. READ IN NEXT EQUIV. SENTENCE ™>01010 
EXIT HERE FROM UP03 IF END OF EQUIV TABLE REACHF6D01020 

F6D01030 
F6D01040 
F6D01050 
F6D01060 

RETURNS HERE IF SEARCH SUCCESSFUL 



SEARCH DEV TABLE FOR AN EQUIV. NAME. 

NOT IN DEV TABLE. GO TO ASSIGN EQUIV STORAGE 



F6D01070 



(WD COUNT OF SENT. IN DECREMENT). TRANSF. TO A7F6D01080 



IF END OF EQUIV SENTENCE. 
NOT SUB DEF SO NORMAL EQUIV ASSIGNMENT. 
IF NOT END OF EQUIV TABLE, GO TO READ IN NEXT 
SENTENCE 

END OF EQUIV. GO TO ASSIGN DIMENSION STORAGE 
EQUIV. VARIABLE IS A SUBROUTINE ARGUMENT 
SET COUNTER FOR NO. OF WORT5S IN SENT. 
SAVE NO. OF WORDS IN EQUIV SENT. 
STORE EQUIV VARIABLE IN DEV AND 
STORE LOCATION AS ZERO. 
EQUIV ENTRIES 

RESTORE COUNTER FOR NO. OF WDS LEFT IN EQUIV 

SENTENCE* 

IF MORE WORDS IN SENT. GO TO STORE LOCATION AS F6D01210 



F6D01090 
F6D01100 
F6D01110 
F6D01111 
F6D01120 
F6D01130 
F60O114O 
F6D01150 
F6D01160 
F6D01170 
F6D01180 
F6D01190 
F6D01200 
F6D01201 



ZERO. ', 4rNrv 

SENTENCE FINISHED. GO COMPUTE NEW DRUM ADD* + 

TEST FOR END. 

IF NOT END OF EQUIV TABLE. REPEAT WITH NEXT 
SENTENCE. 

END OF EQUIV TABLE. 
FROM DIMENSION SENTENCES 

SET COUNTER WITH WD CT OF ARRAY NAME TABLE 
IF NO SIZE TABLE. GO TO READ LOADER 



STORE LCTR IN EA. 

SAVE COUNTER FOR ARRAY NAME TABLE 

GO TO SEARCH DEV TABLE FOR ARRAY NAME 



F6D01211 
F6D01220 
F6D01221 
F6D01230 
F6D01231 
F6D01240 
F6D01250 
F6D01260 
F6D01270 
F6D01280 
F6D01290 
F6D01300 
F6DO1310 
F6DO1320 
F6D01330 
F6D01340 



IF NOT IN TABLE. GO SEE 
SUBROUTINE ARGUMENT 



IF IN TABLE. GO TO NEXT ARRAY NAME SEARCH. 



SAVE XR2 

SET COUNTER=0 



TO SEE IF ARRAY NAME IS A SUBROUTINE ARG. 
NOT A SUBROUTINE ARGUMENT 



IF THAT ARRAY NAME IS AF6D01350 

F6D01351 
F6D01360 
F6D01370 
F6D01380 
F6D01390 
F6D01400 
F6D01410 
F6D01420 
F6D01430 
F6D01440 
F6D01450 



t// 



u 



u 



00602 





02000 





00616 




TRA 


A17 


00603 


1 


00001 


2 


00604 


A16 


TXI 


A18»2»l 


00604 


3 


00604 


2 


00606 


A18 


TXH 


A19»2»* 


00605 





02000 





00577 




TRA 


A20 


00606 


-0 


53400 


2 


00630 


A19 


LXD 


IR2»2 


00607 





07400 


4 


00210 




TSX 


EDEV.4 


00610 


-0 


53400 


1 


00363 


SLC 


LXD 


N*l 


00611 


o 


50000 





00171 




CLA 


LCTR 


00612 





40200 


1 


76173 




SUB 


Lfl 


00613 





60100 





00171 




STO 


LCTR 


00614 


2 


00001 


1 


00563 




TIX 


SEA»1»1 


00615 





02000 





00622 




TRA 


ENDA 


00616 


-0 


53400 


1 


00363 


A17 


LXD 


N»l 


00617 





50000 





00171 




CLA 


LCTR 


00620 


2 


00001 


1 


00563 




TIX 


SEAtl»l 


00621 





02000 





00622 
00622 


ENDA 


TRA 
BSS 


ENDA 


00622 





76200 





00221 




RTB 


1 


00623 





02000 





00004 




TRA 


4 


00624 





07400 


4 


00004 


EOF1 


TSX 


4»4 


00625 





00000 





00000 


SUM 


HTR 





00626 


+000001000000 


C2 


OCT 


000001000000 


00627 





00000 





00000 


LIB1 


HTR 





00630 





00000 





00000 


IR2 


HTR 





00631 





50000 





72605 


DPCH1 


CLA 


UPPER-2 


00632 





40200 





00626 




SUB 


C2 


00633 





60100 





00636 




STO 


HERE 


00634 





40200 





00626 




SUB 


C2 


00635 





02000 





00561 




TRA 


SZYES+1 


00636 





00000 





00000 


HERE 


HTR 





00637 


-0 


53400 


1 


00363 


DPCH2 


LXD 


N»l 


00640 





50000 





00636 




CLA 


HERE 


00641 





12000 





00577 




TPL 


A20 


00642 





50000 


1 


75055 




CLA 


STS*1 


00643 





02000 





00606 




TRA 


A19 


00644 


-0 


63400 


1 


00646 


DPCH3 


SXD 


SVITtl 


00645 





02000 





00522 


•■-.-.. 


TRA 


A13 


00646 





00000 





00000 
00000 


SVIT 


HTR 
END 






IF IT IS A SUB ARG. GO TO A17 

IF NO MORE ARGUMENT NAMES TO COMPARE GO TO A19 

ARRAY NAME NOT A SUBROUTINE ARGUMENT 

ENTER ARRAY NAME IN DEV TABLE. STORE LOCATION 

IN DEA 

RESTORE ARRAY NAME COUNTER. 

SUBTRACT LENGTH OF ARRAY FROM LCTR AND STORE I 

LCTR. 

UPDATE ARRAY NAME TABLE COUNTER AND GO SEE IF 
IN DEV. 

RESTORE ARRAY NAME COUNTER 

DECREMENT ARRAY NAME COUNTER 

WHEN ALL ARRAY NAMES TREATED* GO TO LOADER. 



F6D01460 
F6D01470 

•F6D01480 
F6D01490 
F6D01500 
F6D01510 
F6D01511 
F6D01520 

NF6D01530 
F6D01531 
F6D01540 
F6D01550 
F6D01560 
F6D01561 
F6D01570 
F6D01580 
F6D01590 
F6D01600 
F6D01610 
F6D01620 
F6D01630 
F6D01640 
F6D01650 
F6D01660 
F6D01670 
F6D01680 
F6D01690 
F6D01691 
F6D01692 
F6D01693 
F6D01694 
F6D01695 
F6D01696 
F6D01700 
F6D01701 
F6D01702 
F6D01703 
F6D017O4 
F6D01705 
F6D01706 
F6D01707 
F6D01708 



kfi 



V - 



REM ************* FORTRAN II 



SECTION SIX ************************F6E00010 
************* FORTRAN II SECTION SIX ************************ 
FORTRAN 2 RECORD 100 - COMMON MAPPING. 

CONTROL ENTERS THIS RECORD AT LOCATION 210 (OCTAL). 



00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 

00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 

00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 



77200 
76200 
70000 
02000 
53400 
00000 
53400 
00000 
07400 
00024 
07400 
00024 
53400 
50000 
40200 



10000 
12000 
50000 
60200 
60200 
56000 
53400 
76300 
60200 
32000 
40200 
10000 



-0 50000 
60200 
00001 
50000 
62100 
53400 
56000 
5 0000 
04000 



-0 75400 



00205 
00210 
00202 
00202 
00504 
00211 
00205 
00331 
00155 
00331 
00305 
00435 
00305 
00461 
00301 
74413 
00175 

003C3 
00303 
00404 
00505 
00506 
77777 
00236 
00006 
00513 
00406 
00405 
00246 

00513 
00506 
00236 
74413 
00410 
00162 
00410 
00407 
00260 
00000 



ME2 SYN 
ORG 
REW 

FIL RTD 
CPY 
TRA 
LXA 
TXL 
LXD 
TXL 
TSX 

TSX 

CNL LXD 

CNW CLA 

SUB 

TZE 
TMI 
CAL 
SLW 
SLW 
LDQ 
LXA 
SIX LGL 
SLW 
ANA 
SUB 
TZE 



CNA 



CNV 



00255 22100 00407 

00256 60200 4 00513 



CAL 
SLW 
TIX 
CLA 
STA 
LXA 
LDQ 
CLA 
TLQ 
PXD 

DVP 

SLW 



LIST STORAGE 

APPEARING IN 

LOCATIONS IN 

133 

136 

2 

2 

LIN 

FIL 

ME2*1 

ENDS»1 

DEVLtl 

ENDSfl 

SPACE»4 

TITLE»»20 

SPACE»4 

CH£AD»*20 

LNC»2 

DEA»1 

L3 

B4 

B4 

BLANKS 

LIN+1»2 

LIN+2»2 

DEV»1 

SIX»4 

6 

SYM 

68 ITS 

BLANK 

CNA 

SYM 

LlN+2»2 

SIX»4»1 

DEA»1 

LOC 

ONE* 4 

LOC 

TEN 

FIN 



TEN 
DIG*4 



FOR VARIABLES 
COMMON SENTENCES* 
BOTH DECIMAL AND OCTAL 



REWIND TAPE 2 

SPACE OVER SOURCE PROGRAM. 



=1 IF COMMON TABLE* =0 IF NO COMMON TABLE. 

IF NO COMMON TABLE* GO TO ENDS. 

TABLE LENGTH OF DEV. 

IF NO DEV TABLE* GO TO ENDS 

GO TO WRITE TITLE AND HEADINGS. 



SET TAPE 2 BLOCK LENGTH TO 20 

TEST FOR COMMON* 

I.E. SEE IF LOCATION OF SYMBOL IS IN RANGE OF 

COMMON 

NOT IN COMMON, 

NOT IN COMMON. 

YES* IN COMMON. 

STORE BLANKS IN TWO WORDS OF TAPE 2 ENTRY. 

SELECT SYMBOL AND 

CONVERT. 

BRING ONE CHARACTER OF SYMBOL INTO AC. 

TEST IF CHARACTER IN AC IS A BLANK. 

YES* THEN FINISHED. I.E. SYMBOLIC NAME IN 2ND 
WORD OF ENTRY. 



TO GET BCD IMAGE OF DECIMAL LOCATION. 



REMAINDERS STORED IN DIG-1*... THAT IS* IF 205 

(OCTAL) 

WERE THE NUMBER IN LOC* WE GET A BINARY 3 IN 

DIG-1* ••• 

3 IN DIG-2* IN DIG-3 



F6E00010 
F6E00011 
F6E00012 
F6E00013 
F6E00014 
F6E00020 
F6E00030 
F6E00040 
F6E00050 
F6E00060 
F6E00070 
F6E00080 
F6E00090 
F6E00100 
F6E00110 
F6E00120 
F6E00130 
F6E00140 
F6E00150 
F6E00160 
F6E00170 
F6E00180 
F6E00190 
F6E00200 
F6E00210 
F6E00211 
F6E00220 
F6E00230 
F6E00240 
F6EO0250 
F6E00260 
F6E00270 
F6EO0280 
F6E00290 
F6E00300 
F6E00310 
F6E00320 
F6E00330 
F6E00331 
F6E00340 
F6E00350 
F6E00360 
F6E00370 
F6E00380 
F6E00390 
F6E00400 
F6E00410 
F6E00420 
F6E00430 
F6E00431 
F6E00440 
F6E00441 
F6E00450 



/ 40 



u 



u 



00257 


1 


00001 


4 


00252 




TXI 


CNV»4*1 


00260 


-0 


60000 


4 


00513 


FIN 


STQ 


DIG*4 


00261 


-0 


50000 





00404 




CAL 


BLANKS 


00262 


.0 


76700 





00006 


DEC 


ALS 


6 


00263 


-0 


50100 


4 


00513 




ORA 


DIG»4 


00264 


2 


00001 


4 


00262 




TIX 


DEC»4»1 


00265 





60200 


2 


00507 




SLW 


LlN+3i2 


00266 





50000 





00410 




CLA 


LOC 


00267 





76500 





00017 




LRS 


15 


00270 


-0 


50000 





00405 




CAL 


BLANK 


00271 


-0 


14000 





00272 




TNO 


OCT 


00272 





76700 





00003 


OCT 


ALS 


3 


00273 





76300 





00003 




LLS 


3 


00274 


-0 


14000 





00272 




TNO 


OCT 


00275 





60200 


2 


00510 




SLW 


LlN+4*2 


00276 


-2 


00001 


1 


00320 




TNX 


NT2»1*1 


00277 


2 


00004 


2 


00225 




TIX 


CNW»2*4 


00300 





07400 


4 


00307 




TSX 


WRITE*4 


00301 





00024 





00505 


LNC 




LIN+1»*20 


00302 





02000 





00224 




TRA 


CNL 


00303 


-2 


00001 


1 


00317 


B4 


TNX 


WLL*1*1 


00304 





02000 





00225 




TRA 


CNW 


00305 





76600 





00202 


SPACE 


WTD 


2 


00306 





70000 





00404 




CPY 


BLANKS 


00307 





76600 





00202 


WRITE 


WTD 


2 


00310 





50000 


4 


00001 




CLA 


1*4 


00311 





62100 





00313 




STA 


POOP 


00312 


-0 


73400 


2 


00000 




PDX 


0*2 


00313 





70000 


2 


00313 


POOP 


CPY 


*»2 


Q0314 


2 


00001 


2 


00313 




TIX 


P00P»2*1 


00315 





76600 





00333 




IOD 




00316 





02000 


4 


00002 




TRA 


2*4 


00317 


1 


00004 


2 


00320 


WLL 


TXI 


NT2»2»4 


00320 


-0 


75400 


2 


00000 


NT2 


PXD 


0*2 


00321 





60100 





00330 




STO 


LND 


00322 





77100 





00022 




ARS 


18 


00323 





62100 





00330 




STA 


LND 


00324 





50000 





00333 




CLA 


LNE 


00325 





40200 





00330 




SUB 


LND 


00326 





60100 





00330 




STO 


LND 


00327 





07400 


4 


00307 




TSX 


WRITE»4 


00330 





00000 





00000 
00331 


LND 
ENDS 


BSS 




00331 





60000 





00174 




ST 2 


EA 


00332 





02000 





00004 




TRA 


4 


00333 





00030 





00511 
00334 


LNE 


BSS 


LlN+5»*24 
40 


00404 


606060606060 


BLANKS 


BCD 


1 


00405 


000000000060 


BLANK 


BCD 


100000 


00406 


+000000000077 


6BITS 


OCT 


77 



SET UP BCD IMAGE OF DEC. NO. 



F6E00460 
F6E00470 
F6E00480 
F6E00490 
AS 3 BLANKS*l»3»3.F6E005O0 
F6E00510 

STORE DECIMAL LOCATION IN 3RD WORD OF ENTRY. F6E00520 

F6E00530 
F6E00540 
F6E0O550 
F6E00560 
F6E00570 
F6E00580 



F6E00600 
F6E00610 



IF NO MORE WORDS IN DEV TABLE* GO TO WLL. 



WRITE A BLANK RECORD TO PROVIDE A SPACE. 



TO SET UP BCD IMAGE OF OCTAL LOCATION 
THE TRANSFER IS ON NO OVERFLOW SINCE WHEN ALL 
15 BITS OF LOC HAVE BEEN CONVERTED* A BIT FROM F6E00590 
REMAINING BLANK WILL ENTER P POSITION OF ACC. F6E00591 
STORE OCTAL LOCATION IN 4TH WORD OF ENTRY 
GO TO NT2 IF NO MORE ENTRIES IN DEV TABLE 
IF ROOM FOR MORE 4-WORD ENTRIES IN 20-WD RECORDF6E00620 
RcpcAT F6E00621 

REPEAT F6E00630 

F6E00640 
F6E00650 
F6E00660 
F6E00670 
F6E00680 
F6E00690 
F6E00700 
TO SET INITIAL LOCATION AND NO. OF WORDS TO BE F6E00710 

WRITTEN. "EXIii 

F6E00720 

F6E0073O 

F6E00740 

F6E00750 

F6E00760 

ALL WORDS IN RECORD WRITTEN. RETURN TO PROGRAM F6E00770 

F6E00780 

STORE IN LND ADDRESS 

AND DECREMENT 20-NO. OF WORDS IN FINAL RECORD 

OF TAPE 2. 

SUBTRACT THIS FROM LNE 

TO GET ADDRESS AND 

DECREMENT FOR WRITING 

FINAL RECORD 



SET EA=0 

AND GO TO LOADER 



F6E00790 
F6E00800 
F6E00801 
F6E00810 
F6E00820 
F6E00830 
F6E00840 
F6E00850 
F6E00860 
F6E00870 
F6E00880 
F6E00890 
F6E00900 
F6E00910 
F6E00920 
F6E00930 
F6E00940 
F6E00950 



01/ 



00407 


+000000000012 


TEN 


DEC 10 


00410 


+000000000000 


LOC 


DEC 


00411 


606060606060 




BCD 4 


00412 


606060606060 






00413 


606060606060 






00414 


606060606060 






00415 


606263465121 




BCD 6 ST 


00416 


272560264651 






00417 


606521513121 






00420 


224325626021 






00421 


474725215131 






00422 


452760314560 






00423 


234644444645 




BCD COMJ 


00424 


606225456325 






00425 


452325626060 






00426 


606060606060 






00427 


606060606060 






00430 


606060606060 






00431 


606060606060 






00432 


606060606060 






00433 


606060606060 






00434 


606060606060 








00435 


TITLE 


BSS 


00435 


606060606060 




BCD 


00436 


606060606060 






00437 


606024252360 






00440 


606046236360 






00441 


606060606060 






00442 


606060606060 






00443 


606024252360 






00444 


606046236360 






00445 


606060606060 






00446 


606060606060 






00447 


606024252360 




BCD DE 


00450 


606046236360 






00451 


606060606060 






00452 


606060606060 






00453 


606024252360 






00454 


606046236360 






00455 


606060606060 






00456 


606060606060 






00457 


606024252360 






00460 


606046236360 








00461 


CHEAD 


BSS 




00461 




BSS 19 




00504 


LIN 


BSS 1 




00513 


DIG 


BES 6 




00513 


SYM 


BSS 1 




00210 




END START 



STORAGE FOR VARIABLES APPEARING IN 



SENTENCES 



F6E00960 
F6E00970 
F6E00980 



F6E00990 



F6E01000 



DEC OCT 



DEC OCT 



F6E01010 
F6E01020 



OCT 



DEC OCT 



DEC OCT F6E01030 



F6E01040 
F6E01050 
F6E01060 
F6E01070 
F6E01080 
F6E01090 



ME2 002O5»00205 



Ci^ 



u 



u 



AST 













00210 




ORG 


136 




00210 


-0 


53400 


1 


00154 




LXD 


DEVS.l 


D 


00211 


-3 


00000 


1 


00215 


GO 


TXL 


IFMTtl 




00212 





50000 





00156 




CLA 


DEVA 




00213 





40000 





00156 




ADO 


DEVA 




00214 





62200 





00277 




STO 


EDEV3 


A 










00215 


IFMT 


BSS 






00215 





02000 





00325 




TRA 


FPCH1 




00216 





76200 





00303 


LIB24 


RDR 


3 


T 


00217 


-0 


75400 





02000 


NFA 


PXD 


1024 




00220 





60100 





00373 




STO 


LIBD 




00221 





46000 





00217 




LDA 


NFA 




00222 


-0 


70000 





00704 




CAD 


FORT 




00223 





76000 





00006 




COM 






00224 


-0 


70000 





00372 




CAD 


SUM 




00225 





76000 





00006 




COM 






00226 





10000 





00231 




TZE 


RFS 




00227 


2 


00001 


4 


00216 




TIX 


LIB24»4»1 




00230 





07400 


4 


00004 




TSX 


4*4 




00231 


-0 


53400 


3 


00704 


RFS 


« vri 


FORT* 3 


D 


00232 


-3 


00000 


2 


00267 




TXL 


RD.<M»2 




00233 





53400 


4 


00321 




LXA 


L0C15»4 




00234 





76200 





00303 


LIB25 


RDR 


3 


T 


00235 


-0 


75400 





02002 


TFA 


PXD 


1026 




00236 





46000 





00235 




LDA 


TFA 




00237 


-0 


70000 


2 


00704 


CFS 


CAD 


FORT»2 




00240 


2 


00001 


2 


00237 




TIX 


CFS»2»1 




00241 





70000 





00372 




CPY 


SUM 




00242 





76000 





00006 




COM 






00243 


-0 


70000 





00372 




CAD 


SUM 




00244 





76000 





00006 




COM 






00245 





10000 





00250 




TZE 


FORS 




00246 


2 


00001 


4 


00234 




TIX 


LIB25*4»1 




00247 





07400 


4 


00004 




TSX 


4»4 




00250 


-0 


63400 


1 


00264 


FORS 


SXD 


FORM»l 




00251 





50000 


1 


00704 




CLA 


FORT»l 




00252 





07400 


4 


00142 




TSX 


SDEV»4 




00253 





07400 


4 


00271 




TSX 


EDEV*4 


TD 


00254 


1 


00000 





00265 




TXI 


FORE 




00255 


-0 


53400 


1 


00264 




LXD 


FORM»l 




00256 





50000 


1 


00704 




CLA 


FORTfl 




00257 


-0 


53400 


2 


00373 




LXD 


LIBD»2 




00260 


1 


00001 


2 


00261 




TXI 


FORD»2tl 




00261 





60100 


2 


00540 


FORD 


STO 


L1BP»2 




00262 


-0 


63400 


2 


00373 




SXD 


LIBD*2 




00263 


2 


00002 


1 


00250 




TIX 


FORS*l»2 



************* FORTRAN II SECTION SIX *********************** 
FORTRAN 2 RECORD 101 - FORTRAN FUNCTION ASSN 

CONTROL ENTERS THIS RECORD AT LOCATION 210. 

ENTER FORTRAN FUNCTION NAMES IN TDEV 



IF PREVIOUS ENTRIES* UPDATE DECREMENT OF EDEV3 
WHICH WILL CONTAIN THE MAX* POWER OF 2 EX- 
PRESSIBLE IN THE NO. OF DEV TABLE ENTRIES 



SELECT DRUM 3. 

TABLE FROM 
SET LIBD EQUAL TO ZERO. 

LOCATE FORSUB (FORTRAN FUNCTION) TABLE. 
TO READ WORD COUNT OF FORSUB TABLE* SAVE IT IN 
FORT AND 
CHECK. 



IF DRUM READ ERROR t 

TEST IF ANY FORTRAN FUNCTIONS. 

IF NOT* GO TO RETURN TO LOADER. 

IF YES. SET DRUM READ ERROR COUNTER 

AND READ FORSUB TABLE 

INTO FORT-WDCT THRU FORT-1. 



CHECK SUM OKAY. 

IF CHECK SUM ERROR* REPEAT 

SAVE WD COUNTER IN DECREMENT OF FORM. 
SELECT FUNCTION SYMBOL* AND GO TO 

DEV TABLE 
IF NOT IN TABLE* GO TO ENTER IT WITH LOCATION 
ZERO* AND TRANSFER TO FORE. 
RETURN HERE IF SYMBOL WAS FOUND IN DEV. 
ENTER SYMBOL 
IN LIBP TABLE. 



END OF FORSUB TABLE. NO* GO TO SELECT NEXT 
FUNCTION SYMBOL 



*F6F00010 
F6F00011 
F6F00012 
F6F00013 
F6F00014 
F6F00020 
F6F00030 
F6F00040 
F6F00050 
F6F00060 
F6FOOO70 
F6F00080 
F6F00090 
F6F00100 
F6F00110 
F6FO0120 
F6F00130 
F6F00140 
F6F00150 
F6F00160 
F6F00170 
F6F00180 
F6F00190 
F6F00200 
F6F00210 
F6F00220 
F6F00230 
F6F00240 
F6F00250 
F6F00260 
F6F00270 
F6F00280 
F6F00290 
F6F0O3O0 
F6F00310 
F6F00320 
F6F00330 
F6F00340 
F6F00350 
F6F00360 
F6F00370 
F6F00380 
F6F00390 
F6F00400 
F6F00410 
F6F00420 
F6F00430 
F6F00440 
F6F00450 
F6F00460 
F6F00470 
F6F00480 
F6F00481 



U^> 



TD 00264 1 00000 00267 

00265 -0 53400 1 00264 

00266 2 00002 1 00250 



FORM TXI RDRM 
FORE LXD FORM i 1 

TIX F0RS.1»2 



00267 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00350 



76200 

02000 

1 00001 
-0 63400 

60100 
-0 53400 

1 00001 
-0 63400 
-3 00000 
-0 50000 

40000 

60200 

62200 

40000 

62200 

00000 

-0 50000 

60200 

50000 

60200 

02000 

-0 50000 

60200 

-0 50000 

60200 

1 77777 
42000 
00000 

+0000010000 

00000 

50000 

40200 

10000 

-0 12000 

62200 

-0 53400 1 

50000 

60100 

-0 63400 

50000 

7400 

07400 

02000 

50000 

60100 2 



-0 53400 1 



00001 1 

00000 1 







1 

3 

02000 

60000 



00221 

00004 

00272 

00306 

00160 

00155 

00276 

00155 

00306 

00154 

00156 

00154 

00156 

00156 

00277 

00314 

00160 

77777 

00174 

74413 

00001 

00000 

77777 

74414 

74413 

00306 

00017 

77777 

00 

00000 

72605 

00323 

00351 

00351 

00346 

00323 

00322 

00174 

00324 

72604 

00142 

00271 

00344 

00174 

74413 

00324 

00346 

00350 

00335 

00174 



RDRM 

EDEV 
EDEVO 



EDEV2 
EDEV3 



EDEV1 



EDEV4 



L0C15 

Mil 

DCR1 

SAV 

FPCH1 



60FIX 



ETST 
GOHD 



RTB 
TRA 
TXI 
SXD 
STO 
LXD 
TXI 
SXD 
TXL 
CAL 
ADD 
SLW 
STD 
ADD 
STD 
TXH 
CAL 
SLW 
CLA 
SLW 
TRA 
CAL 
SLW 
CAL 
SLW 
TXI 
HPR 
PZE 
OCT 
HTR 
CLA 
SUB 
TZE 
TMI 
STD 
LXD 
CLA 
STO 
SXD 
CLA 
TSX 
TSX 
TRA 
CLA 
STO 
LXD 
TXI 
TXH 
TRA 
ST2 



1 

4 

EDEVO.2.1 

EDEV1»2 

ENTRY 

DEVL»2 

EDEV2»2»1 

DEVL»2 

EDEVl»2»**+0 

DEVS 

DEVA 

DEVS 

DEVA 

DEVA 

EDEV3 

EDEV4.2.** 

ENTRY 

DEV.2 

EA 

DEAf2 

1»4 

DEV+1»2 

DEV»2 

DEA+lt2 

DEA»2 

EDEVlt2»-l 

15 

-1 

1000000 



UPPER-2 

DCR1 

GOHD+l 

GOHD+l 

ETST 

DCR1.1 

Mil 

EA 

SAVtl 

UPPER-3.1 

SDEV»4 

EDEVf4 

* + 3 

EA 

DEA.2 

SAV»1 

*+ltl»l 

GOHD.l.** 

GOFIX 

EA 



RESTORE TABLE WORD-COUNTER. END OF FORSUB 
NO. DECREMENT COUNTER AND GO TO READ NEXT 
FUNCTION SYMBOL 
YESt GO TO LOADER 

FOR COMMENTS* SEE RECORD 96. 



MOVE TABLE 
ENTRIES. 



WORD COUNT OF SUBDEF TABLE. 

NO ARGUMENTS. 
NO ARGUMENTS. 
ARGUMENTS TO ENTER IN DEV. 



SET EA TO ALL 7 S. 

SELECT ARGUMENT. 
GO SEARCH DEV FOR IT. 
NOT IN SO ENTER IN DEV 
AND TRANSFER. 
ALREADY IN DEV. ENTER 
LOCATION AS ALL 7S. 



TEST FOR ANY MORE ARGS. 
RESET EA TO ZERO. 



F6F00490 
TABLEF6F00500 
F6F00510 
F6F00511 
F6F00520 
F6F00530 
F6F00540 
F6F00550 
F6F00560 
F6F00570 
F6F00580 
F6F00590 
F6F00600 
F6F00610 
F6F00620 
F6F00630 
F6F00640 
F6F00650 
F6F00660 
F6F00670 
F6F00680 
F6F00690 
F6F00700 
F6F00710 
F6F00720 
F6F00730 
F6F00740 
F6F00750 
F6F00760 
F6F00770 
F6F00780 
F6F00781 
F6F00782 
F6F00783 
F6F00784 
F6F00785 
F6F00786 
F6F00787 
F6F00788 
F6F00789 
F6F00790 
F6F00791 
F6F00792 
F6F00793 
F6F00 794 
F6F00795 
F6F00796 
F6F00797 
F6F00798 
F6F00799 
F6F00800 
F6F00801 
F6F00802 
F6F00803 



«*y 



u 



u 



n 



003.51 53400 4 00321 RNF LXA LOC15»4 



SET DRUM READ ERROR COUNTER 



00352 


02000 


00216 




TRA 


LIB24 






00353 




BSS 


15 


00372 


00000 


00000 


SUM 






00373 


00000 


00000 


LI6D 










00540 


LIBP 


BES 


100 






00704 


FORT 


BES 


100 






00210 




END 


START 



F6F00804 
F6F00805 
F6F00806 
F6F00807 
F6F00810 
F6F00820 
F6F0O830 
F6F00840 



(?*> 



X 



AST 

















INITIALIZE 










00210 




ORG 


136 


00210 


-0 


53400 


1 


00155 


MDEA 


LXD 


DEVL*1 


00211 


-0 


75400 


1 


74413 


LDEA 


PXD 


DEAil 


00212 





77100 





00022 




ARS 


18 


00213 





60100 





00173 




STO 


D 


00214 


-0 


40000 





00146 




SBM 


TDEV 


00215 





62100 





00152 




STA 


ADEV 


00216 





62100 





00170 




STA 


LIFN 


00217 





02000 





00672 




TRA 


GPCH1 


00220 


-3 


00000 


1 


00225 


RETN 


TXL 


PREP.l 


00221 





62100 





00223 




STA 


MOAS 


00222 





50000 


1 


74413 


MDAL 


CLA 


DEA»1 


00223 





60100 


1 


00223 


MDAS 


STO 


*tl 


00224 


2 


00001 


1 


00222 




TIX 


MDAL»1»1 


00225 





50000 





00165 


PREP 


CLA 


EIFN 


00226 





77100 





00022 




ARS 


18 


00227 





56000 





00173 




LDQ 





00230 





04000 





00233 




TLO 


MVIF 


00231 





50000 





00173 




CLA 


D 


00232 





40000 





00162 




ADD 


ONE 


00233 


-0 


40000 





00152 


MVIF 


SBM 


ADEV 


00234 





62100 





00624 




STA 


ETEV5 


00235 





62100 





00627 




STA 


ETEV6 


00236 





62100 





00246 




STA 


ETEV7 


00237 





62100 





00107 




STA 


TTEV 


00240 


-0 


40000 





00162 




SBM 


ONE 


00241 





62100 





00626 




STA 


ETEV4 


00242 


-0 


75400 





00000 




PXD 




00243 





60000 





00166 




STZ 


LI 


00244 





60000 





00167 




STZ 


L2 


00243 





76000 





00006 




COM 




00246 





60200 







ETEV7 


SLW 


TEV 


00247 





60100 





02114 




STO 


TIV 


00250 





60200 





02115 




SLW 


TIV+1 


00251 





53400 


2 


00256 




LXA 


RDC»2 


00252 





02000 





00257 




TRA 


RD 


00253 





76400 





00204 


ERR 


BST 


4 


00254 


2 


00001 


2 


00257 




TIX 


RDt2»l 


00255 





07400 


4 


00004 




TSX 


4*4 


00256 





42000 





00005 


RDC 


HPR 


5 


00257 





76200 





00224 


RD 


RTB 


4 


00260 





53400 


4 


00164 




LXA 


ADDR»4 


00261 





70000 


4 


01104 


RD1 


CPY 


REC-2.4 


00262 


1 


00001 


4 


00261 




TXI 


RDl»4 f l 


00263 





02000 





00525 




TRA 


EOF 


00264 





77100 





00377 




ARS 


255 


00265 





77100 





00377 




ARS 


255 



*******##**** FORTRAN II SECTION SIX *****«****.********* 
FORTRAN 2 RECORD 103 - FIRST PASS OF CIT TAPE. 

CONTROL ENTERS THIS RECORD AT LOCATION 210. 



FIRST TAPE PASS 

COMPUTE NUMBER OF 

ENTRIES IN DEV 

TABLE. 

COMPUTE ADDRESS OF 

DEA TABLE TO MOVE 

IT TO END OF 

DEV TABLE. 

TEST FOR NO ENTRIES IN DEV. 
YES. 

MOVE LOCATIONS TO 
END OF DEV TABLE. 

COMPUTE ADDRESS FOR 
TEV TABLE 

WILL FOLLOW THE MOVED 
DEA TABLE 
ALLOWS FOR I FN 
TABLE TO BE STORED 
IN DECREMENT OF DEA 
TABLE HENCE IF IFN IS 
LONGER THAN DEA IFN 
LENGTH IS USED IN 
COMPUTING ADDRESS OF 
TEV TABLE 

STORE ONES IN 
SET PROGRAM BREAK=0 
SET PROGRAM COUNTERS 
SOTRE ONES IN TEV AND TIV 
TABLES INITIAL 
ENTRIES. 

SET READ ERROR COUNTER AND 
GO TO READ CITS FROM TAPE 4 



READ CIT RECORD FROM TAPE 4. 

COUNTER SET=-1 

COPY CIT RECORD INTO REC-l>-2» 

IF END-QF-FILE REACHED ON TAPE 4. 



#«*#*F6G00010 
F6G00011 
F6G00012 
F6G00013 
F6G00014 
F6G00020 
F6G00030 
F6G00040 
F6G00050 
F6G00060 
F6G00070 
F6G00080 
F6G00090 
F6G00100 
F6G00110 
F6G00120 
F6G00130 
F6G00140 
F6G00150 
F6600160 
F6G00170 
F6G00180 
F6G00190 
F6G00200 
F6G00210 
F6G00220 
F6G0023O 
F6G00240 
F6G00250 
F6G00260 
F6G00270 
F6G00280 
F6G00290 
F6G00 300 
F6G00310 
F6G00320 
F6G00330 
F6G00 340 
F6G00350 
F6G00360 
F6G00370 
F6G00380 
F6G00390 
F6G00400 
F6G00410 
F6G00420 
F6G00430 
F6G00440 
F6G00450 
F6G00460 
F6G00470 
F6G00480 
F6G00490 



fete 



o 



u 



00266 


-0 


76000 





00012 


RTT 




00267 





02000 





00253 


TRA 


ERR 


00270 


-0 


63400 


4 


00522 


SXD 


RD2»4 


00271 


-0 


53400 


4 


00164 


LXD 


ADDRt4 


00272 


-0 


63400 


4 


00524 RD4 SXD 


RD3»4 


00273 





50000 


4 


01105 


CLA 


REC-lf4 


00274 





60100 





00664 


STO 


SL 


00275 





50000 


4 


01104 


CLA 


REC-2»4 


00276 





60100 





00665 


STO 


OP 


00277 





50000 


4 


01103 


CLA 


REC-3»4 


00300 





60100 





00666 


STO 


SA 


00301 





50000 


4 


01.102 


CLA 


REC-4»4 


00302 





60100 





00667 


STO 


RA 


00303 


-0 


75400 





00000 


PXD 




00304 





60100 





00174 


STO 


EA 


00305 


-0 


50000 





00665 


CAL 


OP 


00306 





76500 





00022 


LRS 


18 


00307 





34000 





00660 


CAS 


OCT 


00310 





02000 





00315 


TRA 


SA1 


00311 





02000 





00424 


TRA 


ORDOP 


00312 





34000 





00662 


CAS 


BCD 


00313 





02000 





00315 


TRA 


SA1 


00314 





02000 





00424 


TRA 


ORDOP 


00315 


•0 


50000 





00666 SA1 CAL 


SA 


00316 





10000 





00413 


TZE 


SA2 


00317 





76500 





00036 


LRS 


30 


00320 





73400 


4. 


0Q0Q0 


PAX 


0*4 


00321 


3 


00017 


4 


00364 


TXH 


SA4.4U5 


00322 





02000 


4 


00342 


TRA 


SATt4 


00323 





02000 





00412 


TRA 


SA8 


00324 





02000 





00357 


TRA 


SA6 


00325 





02000 





00357 


TRA 


SA6 


00326 





02000 





00343 


TRA 


SA9 


00327 





02000 





00414 


TRA 


SA5 


00330 





02000 





00357 


TRA 


SA6 


00331 





02000 





00414 


TRA 


SA5 


00332 





02000 





00357 


TRA 


SA6 


00333 





02000 





00343 


TRA 


SA9 


00334 





02000 





00414 


TRA 


SA5 


00335 





02000 





00343 


TRA 


SA9 


00336 





02O00 





00343 


TRA 


SA9 


00337 





02000 





00414 


TRA 


SA5 


00340 





02000 





00414 


TRA 


SA5 


00341 





02000 





00343 


TRA 


SA9 


00342 





02000 





00404 SAT TRA 


SA3 


00343 


-0 


77300 





00016 SA9 RQL 


14 


00344 


-0 


76300 





00021 


L6L 


17 


00345 





07400 


4 


00121 


TSX 


STIVt4 


00346 





07400 


4 


00632 


TSX 


ETIVf4 


00347 





62100 





00663 


STA 


TRV 


00350 





56000 





00663 


LDQ 


TRV 


00351 





50000 





00667 


CLA 


RA 


00352 


-0 


76000 





00003 


SSM 




00353 





77100 





00022 


ARS 


18 



STORE COUNT OF CIT IN RD2 DECR. 

SET WORD COUNTER=0 

SAVE IT IN DECREMENT OF RD3 

SELECT FROM REC 

SYMBOLIC LOCATION 

SYMBOLIC 0P# BINARY DEC 

SYMBOLIC ADDRESS 
RELATIVE ADDRESS. TAG 
SET EA TO ZERO. 

SET EA TO ZERO 

SELECT SYMBOLIC OP. 
IS 0P=0CT. 

60 TO SA1 SINCE OP IS NEITHER OCT NOR BCD. 

YES# OP IS OCTAL. GO TO ORDOP 

IS OP BCD. 

OP IS NEITHER OCT NOR BCD. 

YES* OP IS BCD* GO TO ORDOP 

IF OP NOT BCD OR OCT SELECT SYMBOLIC ADDRESS 

SA EQUAL ZERO. GO TO SA2 TO SET EA=0 

TEST SA(1)# I.E.. FIRST 6-BIT CHARACTER OF SA 

TO DETERMINE THE TYPE OF SYMBOL IT IS. 

TRANSFER IF FIRST CHAR. IS GREATER THAN 15. 



FIFTEEN 

FOURTEEN 

THIRTEEN 

TWELVE 

ELEVEN 

TEN 

NINE 

EIGHT 

SEVEN 

SIX 

FIVE 

FOUR 

THREE 

TWO 

ONE 

ZERO 
TAG CELL(12)» ARITH ERASE(1)» 
FUNCT ERASE(7) ♦ LIB(4) ♦ 

ASSIGN CONSTANTSA). ASSEMBLE SYMBOL AND 
PUT IN TIV TABLE WHERE A TIV TABLE ENTRY 
HAS SYMBOL IN S-^21 AND HAS LOCATION IN 22-35. 



SELECT RA AS LENGTH 
TO STORE AS ADDRESS 



SAU) 
SAID 
SAU) 
SA(1> 
SAU) 
SA(1) 
SA(1) 
SA<1> 
SA(1) 
SAC1) 
SA(1J 
SA(1) 
SA(1) 
SAU) 
SAU) 
SAU) 



EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 
EQUAL 



F6G00500 
F6G00510 
F6G00520 
F6GO0530 
F6G00540 
F6G00550 
F6G00560 
F6G00570 
F6G00580 
F6G00590 
F6G00600 
F6G00610 
F6G00620 
F6G00630 
F6G00640 
F6G00650 
F6G00660 
F6G00670 
F6G00680 
F6G00690 
F6G00700 
F6G00710 
F6G00720 
F6G00730 
F6G00740 
F6G00750 
F6G00760 
F6G00770 
F6G00780 
F6G00790 
F6G00800 
F6G00810 
F6G00820 
F6G00830 
F6G00840 
F6G0085O 
F6G00860 
F6G00870 
F6G00880 
F6G00890 
F6G00900 
F6G00910 
F6G00920 
F6G00930 
F6G00940 
F6G00950 
F6G00960 
F6G00970 
F6G00980 
F6G00990 
F6G01000 
F6G01010 
F6G01020 
F6G01030 



c*7 



IV 



00354 





04000 





00414 




TLQ 


SA5 


00355 





62100 


2 


02114 




ST A 


TIVt2 


00356 





02000 





00414 




TRA 


SA5 


00357 


-0 


77300 





00016 


SA6 


RQL 


14 


00360 


-0 


76300 





00021 




LGL 


17 


00361 





07400 


4 


00121 


SA7 


TSX 


ST IV f 4 


00362 





07400 


4 


00632 




TSX 


ETIV»4 


00363 





02000 





00413 




TRA 


SA2 


00364 





50000 





00666 


SA4 


CLA 


SA 


00365 





40200 





00670 




SUB 


DOL1 


00366 





10000 





00377 




TZE 


LIB3 


00367 





40000 





00670 




ADD 


DOL1 


00370 





40200 





00671 




SUB 


DOL2 


00371 





10000 





00401 




TZE 


LI84 


00372 





50000 





00666 




CLA 


SA 


00373 





07400 


4 


00142 




TSX 


SDEV»4 


00374 





07400 


4 


00103 




TSX 


STEVt4 


00375 





07400 


4 


00605 




TSX 


ETEVt4 


00376 





02000 





00413 




TRA 


SA2 


00377 





50000 





00204 


L1B3 


CLA 


DOLSI 


00400 





02000 





00413 




TRA 


SA2 


00401 





50000 





00204 


LIB4 


CLA 


DOLSI 


00402 





77100 





00022 




ARS 


18 


00403 





02000 





00413 




TRA 


SA2 


00404 





53400 


4 


00666 


SA3 


LXA 


SA»4 


00405 


-3 


00000 


4 


00414 




TXL 


SA5t4»0 


00406 


-0 


76300 





00015 




LGL 


13 


00407 


-0 


77300 





00012 




RQL 


10 


00410 


-0 


76300 





00006 




LGL 


6 


00411 


Q 


02000 


Q 


00361 




TRA 


SA7 


00412 





50000 





00166 


SA8 


CLA 


LI 


00413 





62100 





00174 
00414 


SA2 
SA5 


STA 
BSS 


EA 


00414 


-0 


50000 





00665 


OPCAS 


CAL 


OP 


00415 





76500 





00022 




LRS 


18 


00416 





34000 





00657 




CAS 


SYN 


00417 





02000 





00424 




TRA 


ORDOP 


00420 





02000 





00440 




TRA 


SYNOP 


00421 


c 


34000 





00661 




CAS 


BSS 


00422 





02000 





00424 




TRA 


ORDOP 


00423 





02000 





00431 




TRA 


BSSOP 


00424 





50000 





00166 


ORDOP 


CLA 


LI 


00425 





60100 





00167 




STO 


L2 


00426 





40000 





00162 




ADD 


ONE 


00427 





60100 





00166 




STO 


LI 


00430 





02000 


0. 


00444 




TRA 


SLS 


00431 





50000 





00166 


BSSOP 


CLA 


LI 


00432 





60100 





00167 




STO 


L2 


00433 





50000 





00667 




CLA 


RA 


00434 





77100 





00022 




ARS 


18 


00435 





40000 





00166 




ADD 


LI 


00436 





60100 





00166 




STO 


Ll 



OF TIV ENTRY IF RA 
IS LONGER 

F0RMAT(8) 

PUT IN TIV TABLE 

IF NOT IN ALREADY. _^ nc cA 

TRANSFER WITH SA IN AC TO STORE ADDRESS OF SA 

IN EA. 

SAC1) GREATER THAN 15, 

TRANSFER IF ONE DOLLAR SIGN 



TRANSFER IF TWO DOLLAR SIGNS 

ORDINARY SYMBOL. 

SEARCH DEV TABLE. 

NOT IN. GO TO SEARCH TEV TABLE. 

NOT IN. ENTER IN TEV. 

IF FOUND IN DEV OR TEV» LOCATION LEFT IN AC + 

60 TO STA 

SET LOCATION EQUAL TO ADDR. PART OF DOLSI 



NORMAL INST(O) 

TRANSFER IF IFN TYPE. radt 

ADDRESS PART NOT EQUAL ZERO. PUT ADDRESS PART 
OF SA IN SYMBOL AND STORE IN TIV. 



PROG COUNTER (15) 

STORE IN EA ADDRESS LEFT IN AC 

C0NSTANTS2»3»6»9#11 

IS OP BSS OR SYN. 

SYN OP 
NEITHER 
OP IS SYN. GO TO SYNOP 

OP IS NEITHER BSS OR SYN 
OP IS BSS. GO TO BSSOP. 
OP NOT SYN OR BSS. 



UPDATE Ll BY 1. 



FOR BSS 0P» 

UPDATE Ll BY 
RELATIVE ADDRESS. 



F6G01040 
F6G01050 
F6G01060 
F6G01070 
F6G01080 
F6G01090 
F6G01100 
F6G01110 
F6G01111 
F6G01120 
F6G01130 
F6G01140 
F6G01150 
F6G01160 
F6G01170 
F6G01180 
F6G01190 
F6G01200 
F6G01210 
F6G01220 
F6G01221 
F6G01230 
F6G01240 
F6G01250 
F6G01260 
F6G01270 
F6G01280 
F6G01290 
F6G01300 
F6G01310 
F6G01320 
F6G01330 
F6G01340 
FROM 1 OF ABOVE*F6G01350 
F6G01360 
F6G01370 
F6G01380 
F6G01390 
F6G01400 
F6G01410 
F6G01420 
F6G01430 
F6G01440 
F6G01450 
F6G01460 
F6G01470 
F6G01480 
F6G01490 
F6G01500 
F6G01510 
F6G01520 
F6G01530 
F6G01540 
F6G01550 



r,rt 



o 



u 



00437 

00440 

00441 

00442 

00443 

00444 

00445 

00446 

00447 

00450 

00451 

00452 

00453 

00454 

00455 

00456 

00457 

00460 

00461 

00462 

00463 

00464 

00465 

00466 

00467 

00470 

00471 

00472 

00473 

00474 

00475 

00476 

00477 

00500 

00501 

00502 

00503 

00504 

00505 

00506 

00507 

00510 

00511 

00512 

00513 

00514 

00515 

00516 

00517 



00520 
00521 
00522 



02000 
50000 
60100 
-0 10000 
07400 
-0 50000 
10000 
76500 
10000 
73400 
00017 
00016 
-0 77300 
-0 76300 
07400 
02000 
50000 
62100 
02000 
50000 
62100 
07400 
02000 
53400 
-3 00000 
-0 76300 
-0 77300 
-0 76300 
07400 
02000 
02000 
50000 
40200 
10000 
40000 
40200 
10000 
02000 
50000 
62100 
02000 
50000 
76700 
62200 
02000 
53400 
50000 
76700 
62200 













-0 






■0 53400 

1 00004 

■3 00000 



00444 

00174 

00167 

00444 

00004 

00664 

00520 

00036 

00466 

00000 

00476 

00520 

00016 

00021 

00121 

00462 

00167 

02114 

00520 

00167 

00160 

00632 

00520 

00664 

00514 

00015 

00012 

00006 

00121 

00520 

00457 

00664 

00670 

00505 

00670 

00671 

00510 

00520 

00167 

00204 

00520 

00167 

00022 

00204 

00520 

00664 

00167 

00022 

00520 
00520 

00524 
00522 
00272 



SLS 



SL8 



SL5 



SL1 



TRA 
SYNOP CLA 
STO 
TNZ 
TSX 
CAL 
TZE 
LRS 
TZE 
PAX 
TXH 
TXH 
RQL 
LGL 
TSX 
TRA 
CLA 
STA 
TRA 
CLA 
STA 
TSX 
TRA 
LXA 
TXL 
LGL 
RQL 
LGL 
TSX 
TRA 
TRA 
CLA 
SUB 
TZE 
ADD 
SUB 
TZE 
TRA 
CLA 
STA 
TRA 
CLA 
ALS 
STD 
TRA 
LXD 
CLA 
ALS 
STD 
BSS 
BSS 
LXD 
TXI 
TXL 



SL2 



LIB1 



LIB2 



SL7 



SL9 
SL3 
SL6 



SLS 

EA 

L2 

SLS 

4*4 

SL 

SL6 

30 

SL1 

0»4 

SL2»4tl5 

SL3»4.14 

14 

17 

STIV.4 

SL5 

L2 

TIV.2 

SL6 

L2 

ENTRY 

ETIV.4 

SL6 

SL*4 

SL7»4 

13 

1 rt 

6 

STIV»4 

SL6 

SLS 

SL 

D0L1 

LIB1 

D0L1 

D0L2 

LIB2 

SL6 

L2 

DOLSI 

SL6 

L2 

18 

DOLSI 

5L6 

SLt4 

L2 

18 

IFN.4 



FOR SYN 0P» 
SET L2 EQUAL 
TO SYN ADDRESS. 

FOR ALL OPS TEST SYMBOLIC LOCATION. 
SL ZERO. 

SLID ZERO. TRANFER. 

SL(1) OVER 15 
SL(1) EQUAL 15 
SL(1) LESS 15 

IS SYMBOL IN TIV. 

NO. 

YES» PUT L2 AS LOCATION 

IN TIV TABLE. 

PUT L2 IN AS 

LOCATION AND STORE 

SYMBOL AND LOCATION 

IN TIV TABLE. 

SLC1) EQUAL ZERO. 

TRANSFER IF IFN TYPE. 

OTHERWISE* ASSEMBLE SYMBOL. 

IS SYM IN TIV VABLE. 
NO 

YES 
YES. GO TO STORE L2 AS LOCATION IN TIV TABLE 



EXIT TO LIB1 IF SL EQUAL D0L1 (S 0000) 

EXIT TO LIB2 IF SL EQUAL D0L2 ($$ 000) 
STORE L2 IN ADDRESS OF DOLSI. 

STORE L2 IN DECREMENT OF DOLSI 



STORE LOCATION 

OF INTERNAL FORMULA 

NUMBER AS L2» 

SL(1) EQUAL 15 



RD2 



RD3t4 

RD2.4.4 

RD4*4»*« 



F6G01560 

F6G01570 

F6G01580 

F6G01590 

F6G01600 

F6G01610 

F6G01620 

F6G01630 

F6G01640 

F6G01650 

F6G01660 

F6G01670 

F6G01680 

F6G01690 

F6G01700 

F6G01710 

F6G01720 

F6G01730 

F6G01740 

F6G01750 

F6G01760 

F6G01770 

F6G01780 

F6GO1790 

F6G01800 

F6G01810 

F6G01820 

F6G01830 

F6G01840 

F6G01850 

F6G01860 

F6G01870 

F6G01880 

F6G01890 

F6G01900 

F6G01910 

F6G01920 

F6G01930 

F6G01940 

F6G01950 

F6G01960 

F6G01970 

F6G01980 

F6G01990 

F6GO20O0 

F6G02010 

F6G02020 

F6G02030 

F6G02040 

F6G02050 

F6G02060 

F6G02070 

F6G02080 

F6G02090 



dl 



TD 



00523 





53400 


2 


00256 




LXA 


RDC»2 


00524 


1 


00000 





00257 


RD3 


TXI 


RD»0»** 


00525 


-0 


53400 


1 


00120 


EOF 


LXD 


TEVL»1 


00526 


-3 


00000 


1 


00534 




TXL 


DIVL»1 


00527 


-0 


75400 


1 


00000 




PXD 


0*1 


00530 





77100 





00022 




ARS 


18 


00531 





40200 





00171 




SUB 


LCTR 


00532 





60200 





00171 




SLW 


LCTR 


00533 





60200 





00172 




SLW 


LTEV 


0O53A 


-0 


53400 


2 


00141 


DIVL 


LXD 


TIVLt2 


00535 


1 


00001 


2 


00536 




TXI 


SIVL»2»1 


00536 


-3 


00000 


2 


00577 


SIVL 


TXL 


D0NE»2 


00537 


-0 


50000 


2 


02114 




CAL 


TIV»2 


00540 





62100 





00173 




STA 


D 


00541 





77100 





00016 




ARS 


14 


00542 


-0 


73400 


1 


00000 




PDX 


0*1 


00543 





02000 


1 


00563 




TRA 


TYPE.l 


00544 





02000 





00574 




TRA 


SIVT 


00545 





02000 





00574 




TRA 


SIVT 


00546 





02000 





00574 




TRA 


SIVT 


00547 





02000 





00567 




TRA 


CIVL 


00550 





02000 





00574 




TRA 


SIVT 


00551 





02000 





00574 




TRA 


SIVT 


00552 





02000 





00574 




TRA 


SIVT 


00553 





02000 





00574 




TRA 


SIVT 


00554 





02000 





00567 




TRA 


CIVL 


00555 





02000 





00574 




TRA 


SIVT 


00556 





02000 





00574 




TRA 


SIVT 


00557 


1 


00000 





00564 


GIVL 


TXI 


EIVL 


00560 





02000 





00574 




TRA 


SIVT 


00561 





02000 





00574 




TRA 


SIVT 


00562 


o 


02000 


o 


00567 




TRA 


CIVL 


00563 





02000 





00574 


TYPE 


TRA 


SIVT 


00564 





77100 





00001 


EIVL 


ARS 


1 


00565 





76700 





00025 




ALS 


21 


00566 





10000 





00575 




TZE 


FIVL 


00567 





50000 





00171 


CIVL 


CLA 


LCTR 


00570 





40200 





00173 




SUB 


D 


00571 





62100 


2 


02114 




STA 


TIV»2 


00572 





40200 





00162 




SUB 


ONE 


00573 





60100 





00171 




STO 


LCTR 


00574 


1 


00001 


2 


00536 


SIVT 


TXI 


SIVL»2tl 


00575 


-0 


63400 


2 


00557 


FIVL 


SXD 


GIVL»2 


00576 


1 


00001 


2 


00536 




TXI 


SIVL.2#1 


00577 


-0 


53400 


2 


00557 


DONE 


LXD 


GIVL»2 


00600 





76000 





00000 




CLM 




00601 





76000 





00006 




COM 




00602 





62100 


2 


02114 




STA 


TIV.2 


00603 





76200 





00221 




RTB 


1 


00604 





02000 





00004 




TRA 


4 


00605 


1 


00001 


2 


00606 


ETEV 


TXI 


ETEV0*2»1 


00606 


-0 


63400 


2 


00622 


ETEVO 


SXD 


ETEV1»2 


00607 





60100 





00160 




STO 


ENTRY 


00610 


-0 


53400 


2 


00120 




LXD 


TEVLt2 



AT END OF CIT TAPE. 

ANY ENTRIES IN TEV TABLE. IF NOT GO TO DIVL. 

YES. 

REDUCE LCTR BY NUMBER 

OF ENTRIES IN TEV AND 

STORE IN LTEV. 

ANY ENTRIES IN TIV TABLE. 

NO ENTRIES IN TIV* GO TO DONE. 
YESt OBTAIN LENGTH 
FROM TIV TABLE. 



15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 



TYPE4 
IF DECR. EQUAL ZERO* GO TO SAVE INDEX. 
TYPE1»7»12 

TYPEl»7tl2 
REDUCE LCTR BY LENGTH 
STORE AS LOCATION IN TIV. 
MODIFY LOCATION COUNTER. 

MODIFY TO SELECT NEXT SYMBOL 



LOCATION OF 4)0 

STORE ALL 7 S IN ADDRESS PART 

OF 4) TIV ENTRY AND 

RETURN 

TO 

LOADER. 



F6G02100 

F6G02110 

F6G02120 

F6G02130 

F6G02140 

F6G02150 

F6G02160 

F6G02170 

F6602180 

F6G02190 

F6G02200 

F6G02210 

F6G02220 

F6G02230 

F6G02240 

F6G02250 

F6G02260 

F6G02270 

F6G02280 

F6G02290 

F6G02300 

F6G02310 

F6G02320 

F6G02330 

F6G02340 

F6G02350 

F6G02360 

F6G02370 

F6G02380 

F6G02390 

F6G02400 

F6G02410 

F6G02420 

F6G02430 

F6G02440 

F6G02450 

F6G02460 

F6G02470 

F6G02480 

F6G02490 

F6G02500 

F6G02510 

F6G02520 

F6G02530 

F6G02540 

F6G02550 

F6G02560 

F6G02570 

F6G02580 

F6G02590 

F6G0260O 

F6G02610 

F6G02620 

F6G02630 



o 



u 





00611 


1 


00001 


2 


00612 




TXI 


ETEV2»2f 1 




00612 


-0 


63400 


2 


00120 


ETEV2 


SXD 


TEVL»2 




00613 


-3 


00000 


2 


00622 


ETEV3 


TXL 


ETEVl»2***+0 




00614 


-0 


50000 





00117 




CAL 


TEVS 




00615 





40000 





00631 




ADO 


TEVA 




00616 





60200 





00117 




SLW 


TEVS 




00617 





62200 





00631 




STD 


TEVA 




00620 





40000 





00631 




ADD 


TEVA 




00621 





62200 





00613 




STD 


ETEV3 




00622 


3 


00622 


2 


00626 


ETEV1 


TXH 


ETEV4»2t* 




00623 


-0 


50000 





00160 




CAL 


ENTRY 


u 


00624 





60200 


2 




ETEV5 


SLW 


TEV»2 




00625 





02000 


4 


00001 




TRA 


1»4 


u 


00626 


-0 


50000 


2 




ETEV4 


CAL 


TEV+1»2 


u 


00627 





60200 


2 




ETEV6 


SLW 


TEV»2 




00630 


1 


77777 


2 


00622 




TXI 


ETEVlt2»-l 




00631 





00001 





00002 


TEVA 




2»0»#*+l 




00632 


1 


77777 


2 


00633 


ETIV 


TXI 


ETIV5»2>-1 




O0633 


-0 


63400 


2 


00647 


ETIV5 


SXD 


ETIV1»2 




00634 


-0 


53400 


2 


00141 




LXD 


TIVL*2 




00635 


1 


77777 


2 


00636 




TXI 


ETIV2»2t-l 




00636 


-0 


63400 


2 


00141 


ETIV2 


SXD 


TIVL*2 




00637 


1 


00001 


2 


00640 




TXI 


ETIV3.2»1 




00640 


3 


77776 


2 


00647 


ETIV3 


TXH 


ETIVlt2f**-2 




00641 


-0 


50000 





00140 




CAL 


TIVS 




00642 





40000 





00656 




ADD 


TIVA 




00643 





60200 





00140 




SLW 


TIVS 




00644 





62200 





00656 




STD 


TIVA 




00645 





40000 





00656 




ADD 


TIVA 




00646 





62200 





00640 




STD 


ETIV3 




00647 


-3 


00647 


2 


00653 


ETIV1 


TXL 


ETIV4.2.* 




00650 


-0 


50000 





00160 




CAL 


ENTRY 




00651 





60200 


2 


02114 




SLW 


TIV»2 




00652 





02000 


4 


00001 




TRA 


1»4 




00653 


-0 


50000 


2 


02113 


ETIV4 


CAL 


TIV-lt2 




00654 





60200 


2 


02114 




SLW 


TIV»2 




00655 


1 


00001 


2 


00647 




TXI 


ETIVl»2tl 




00656 





77777 





00002 


TIVA 




2»Q»**-1 




00657 


000000627045 


SYN 


BCD 


1000SYN 




00660 


000000462363 


OCT 


BCD 


10000CT 




00661 


000000226262 


BSS 


BCD 


1000BSS 




00662 


000000222324 


BCD 


BCD 


1000BCD 




00663 


-0 


00000 





00000 


TRV 


MZE 






00664 





00000 





00000 


SL 


HTR 







00665 





00000 





00000 


OP 


HTR 







00666 





00000 





00000 


SA 


HTR 







00667 





00000 





00000 


RA 


HTR 







00670 


536000000000 


D0L1 


BCD 


1$ 0000 




00671 


535360000000 


D0L2 


BCD 


1$S 000 




00672 





62100 





00517 


GPCH1 


STA 


SL9 




00673 


o 


62100 


o 


00675 




STA 


*+2 




00674 


-0 


53400 


2 


00165 




LXD 


EIFN»2 


u 


00675 





60000 


2 






STZ 


IFN»2 




00676 


2 


00001 


2 


00675 




TIX 


*-lf2f 1 



F6602640 

F6G02650 

F6G02660 

F6G02670 

F6G02680 

F6G02690 

F6G02700 

F6G02710 

F6G02720 

F6G02730 

F6G02740 

F6G02750 

F6G02760 

F6G02770 

F6G02780 

F6G02790 

F6G02800 

F6G02810 

F6G02820 

F6G02830 

F6G02840 

F6G02850 

F6G02860 

F6G02870 

F6G02880 

F6G02890 

F6G02900 

F6G02910 

F6G02920 

F6G02930 

F6G02940 

F6G02950 

F6G02960 

F6G02970 

F6G02980 

F6G02990 

F6G03000 

F6G03010 

F6G03020 

F6G03030 

F6G03040 

F6G03050 

F6G03060 

F6G03070 

F6G03080 

F6G03090 

F6G03100 

F6G03110 

F6G03120 

F6G03121 

F6G03122 

F6G03123 

F6G03124 

F6G03125 



/,// 



00677 02000 



00220 




TRA 


RETN 


00700 




BSS 


34 


01106 


REC 


BES 


100 


00210 




END 


START 


00001 


TEV 






00002 


IFN 







o 



F6G03126 
F6G03130 
F6G03140 
F6G03150 



Uir 



o 



AST 



















IN TDEV 












00206 


ME8 


SYN 


134 












00210 




ORG 


136 




00210 





53400 


4 


00402 


RNF 


LXA 


L0C15»4 




00211 





76200 





00303 


LIB27 


RDR 


3 


T 


00212 


-0 


75400 





02000 


NFA 


PXD 


1024 




00213 





46000 





00212 




LDA 


NFA 




00214 


-0 


70000 





00730 




CAD 


FORT 




00215 





76000 





00006 




COM 






00216 


-0 


70000 





00563 




CAD 


SUM 




00217 





76000 





00006 




COM 






00220 





10000 





00223 




TZE 


RFS 




00221 


2 


00001 


4 


00211 




TIX 


LIB27»4tl 




00222 





07400 


4 


00004 




TSX 


4§4 




00223 


-0 


53400 


3 


00730 


RFS 


LXO 


FORT. 3 





00224 


-3 


00000 


1 


00375 




TXL 


LIB36.1 




00225 





50000 





00152 




CLA 


ADEV 




00226 





62100 





00260 




STA 


AFOR 




00227 





50000 





00170 




CLA 


LIFN 




00230 





62100 





00256 




STA 


GIFN 




00231 





53^00 


4 


00402 




LXA 


L0C15»4 




00232 





76200 





00303 


LI628 


RDR 


3 


T 


00233 


^0 


75400 





02002 


TFA 


PXD 


1026 




00234 





46000 





00233 




LDA 


TFA 




00235 


-0 


70000 


2 


00730 


GFS 


CAD 


F0RT»2 




00236 


2 


00001 


2 


00235 




TIX 


CFS.2.1 




00237 





70000 





00563 




CPY 


SUM 




00240 





76000 





00006 




COM 






00241 


-0 


70000 





00563 




CAD 


SUM 




00242 





76000 





00006 




COM 






00243 





10000 





00246 




TZE 


FORS 




00244 


2 


00001 


4 


00232 




TIX 


LIB28»4»1 




00245 





07400 


4 


00004 




TSX 


4»4 




00246 


-0 


63400 


1 


00400 


FORS 


SXD 


F0RM»1 




00247 





50000 


1 


00730 




CLA 


FORT.l 




00250 





07400 


4 


00142 




TSX 


SDEV»4 




00251 


-0 


53400 


1 


00400 




LXD 


FORM.l 




00252 





07400 


4 


00004 




TSX 


4«4 




00253 


-0 


53400 


1 


00400 




LXD 


FORM.l 




00254 





50000 


1 


00731 




CLA 


F0RT+1»1 




00255 


-0 


73400 


4 


00000 




PDX 


0.4 


U 


00256 





50000 


4 




GIFN 


CLA 


IFN«4 




00257 





77100 





00022 




ARS 


18 


u 


00260 





62100 


2 




AFOR 


STA 


F0RF»2 




00261 





62100 


1 


00731 




STA 


F0RT+1»1 




00262 


2 


00002 


1 


00246 




TIX 


F0RS»1»2 



************* FORTRAN II SECTION SIX ************************ 
FORTRAN 2 RECORD 105 - MAP FORTRAN FUNCTIONS. 



SET DRUM READ ERROR COUNTER. 

SELECT DRUM 3 AND 

LOCATE FORSUB (FORTRAN FUNCTION) TABLE 



READ WORD COUNT OF TABLE. 



TRANSFER IF NO READ ERROR. 
READ-ERROR PROCEDURE 

SET INDEX REGISTERS 1 AND 2 EQUAL 
FORSUB WORD COUNT 

TRANSFER IF NO FORTRAN FUNCTIONS. 
INITIALIZE ADDRESSES WITH INITIAL 
LOCATION OF DEA TABLE (ALSO IFN TABLE) 



DRUM READ ERROR COUNTER. 

READ FORTRAN FUNCTION (FORSUB) 

TABLE FROM DRUM (2-WORD ENTRIES) INTO 

FORT-WD. CT»...» FORT-1. 



TRANSFER IF CHECK SUM OKAY. 



SAVE COUNT OF FUNCT. 
IS FUNCTION IN 
DEV TABLE. 
N0» ERROR. 

YES. EXIT HERE FROM SDEV WITH APPROPRIATE 

COUNTER IN XR2. 

OBTAIN FORMULA 

NUMBER. 

GET LOCATION FROM 

IFN TABLE. 

STORE LOCATION IN DEA TABLE. 

STORE LOCATION IN FORT (INTERNAL TABLE). 



LIST NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING 
INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS 



F6H00010 
F6H00011 
F6H00012 
F6H00O2O 
F6H00030 
F6H00040 
F6H00050 
F6H00060 
F6H00070 
F6H00080 
F6H00090 
F6H00100 
F6H00110 
F6H00120 
F6H00130 
F6H00140 
F6H00150 
F6H00160 
F6H00161 
F6H00170 
F6H00180 
F6H00190 
F6H00200 
F6H00210 
F6H00220 
F6H00230 
F6H00240 
F6H00250 
F6H00260 
F6H00270 
F6H00280 
F6H00290 
F6H00300 
F6H00310 
F6H00320 
F6H00330 
F6H00340 
F6H00350 
F6H00360 
F6H00370 
F6H00380 
F6H00390 
F6H00400 
F6H00401 
F6H00410 
F6H00420 
F6H00430 
F6H00440 
F6H00450 
F6H00460 
F6H00470 
F6H00480 
F6H00490 



CH 



00263 


-0 


53400 


1 


00730 




LXO 


FORTtl 


00264 





07400 


4 


00345 




TSX 


SPACE »4 


00265 





00024 





00434 






TITLE»«20 


00266 





07400 


4 


00345 




TSX 


5PACE.4 


00267 





00024 





00460 






CHEAD»»20 


00270 


-0 


53400 


2 


00343 


CNL 


LXD 


LNCf2 


00271 


-0 


50000 





00403 


CNW 


CAL 


BLANKS 


00272 





60200 


2 


00554 




SLW 


LIN+If2 


00273 





56000 


1 


00730 




LDQ 


F0RT#1 


00274 





53400 


4 


00275 




LXA 


SIX»4 


00275 


-0 


76300 





00006 


SIX 


LGL 


6 


00276 





60200 





00562 




SLW 


SYM 


00277 


-0 


32000 





00405 




ANA 


6BITS 


00300 





40200 





00404 




SUB 


BLANK 


00301 





10000 





00305 




T2E 


CNA 


00302 


-0 


50000 





00562 




CAL 


SYM 


00303 





60200 


2 


00555 




SLW 


LIN+2.2 


00304 


2 


00001 


4 


00275 




TIX 


SIX»4.1 


00305 





50000 


1 


00731 


CNA 


CLA 


F0RT+1»1 


00306 





77100 





00022 




ARS 


18 


00307 





62100 





00407 




STA 


LOC 


00310 





53400 


4 


00162 




LXA 


0NE»4 


00311 





56000 





00407 




LDQ 


LOC 


00312 





50000 





00406 


CNV 


CLA 


TEN 


00313 





04000 





00320 




TLQ 


FIN 


00314 


-0 


75400 





00000 




PXD 




00315 





22100 





00406 




DVP 


TEN 


00316 





60200 


4 


00562 




SLW 


DIG»4 


00317 


1 


00001 


4 


00312 




TXI 


CNV»4»1 


00320 


-0 


60000 


4 


00562 


FIN 


STQ 


DIG.4 


00321 


-0 


50000 





00403 




CAL 


BLANKS 


00322 





76700 





00006 


DEC 


ALS 


6 


00323 


-0 


50100 


4 


00562 




ORA 


DIGt4 


00324 


2 


00001 


4 


00322 




TIX 


DECt4»l 


00325 





60200 


2 


00556 




SLW 


LIN+3.2 


00326 





50000 


1 


00731 




CLA 


F0RT+1»1 


00327 





62100 





00407 




STA 


LOC 


00330 





50000 





00407 




CLA 


LOC 


00331 





76500 





00017 




LRS 


15 


00332 


-0 


50000 





00404 




CAL 


BLANK 


00333 


-0 


14000 





00334 




TNO 


OCT 


00334 





76700 





00003 


OCT 


ALS 


3 


00335 





76300 





00003 




LLS 


3 


00336 


-0 


14000 





0C3 34 




TNO 


OCT 


00337 





60200 


2 


0055? 




SLW 


LIN+4»2 


00340 


-2 


00002 


1 


00357 




TNX 


WLL*lt2 


00341 


2 


00004 


2 


00271 




TIX 


CNW»2t4 


00342 





07400 


4 


00347 




TSX 


WRITE.4 


00343 





00024 





00554 


LNC 




LIN+1>»20 


00 344 





02000 





00270 




TRA 


CNL 


00345 





76600 





00202 


SPACE 


WTD 


2 



F6H00500 
F6H00510 
F6H00520 
F6H00530 
F6H00540 
F6H00550 
F6H00560 
F6H00570 
F6H00580 
F6H00590 
F6H00600 
F6H00610 
F6H00620 
F6H00630 
BLANK* THEN FINISHED, SECOND WORD OF ENTRY HAS F6H00640 



SET TAPE TWO BLOCK LENGTH TO 20. 

STORE BLANKS IN FIRST WORD OF ENTRY. 

SELECT SYMBOL 

AND CONVERT. 

BRING ONE CHARACTER OF SYMBOL INTO ACC. 

TEST IF CHARACTER IN ACC. IS A BLANK. 



COMPLETE SYMBOL. 

NOT BLANK. STORE IN SECOND WORD AND 

GO TO TEST NEXT CHARACTER 

UNLESS SIX HAVE BEEN TREATED. 

TO GET BCD IMAGE OF DECIMAL INTERNAL FORMULA NOF6H00680 

{DECREMENT OF SECOND WORD OF TWO WORD ENTRIES F6H00690 

FORT TABLE CONTAINS INTERNAL FORMULA NUMBER.) 



F6H00641 
F6H00650 
F6HOO660 
F6H00670 



F6H00700 
F6H00710 
F6H00720 
F6H00730 
F6H00740 
F6H00750 
F6H0O760 
F6H00770 
F6H00780 
F6H00790 
F6H00800 
F6HO0810 
F6H00820 
F6H00830 
STORE BCD IMAGE OF DECIMAL INTERNAL FORMULA NO.F6H00840 



(SAVING REMAINDERS). 



IN THIRD WORD OF ENTRY. 

TO GET BCD IMAGE OF OCTAL LOCATION. 



OVERFLOW OCCURS WHEN ALL 15 BITS OF LOCATION 

HAVE BEEN TREATED. STORE BCD IMAGE OF OCTAL 

LOCATION IN 4TH WORD OF ENTRY. 

TRANSFER IF ALL FUNCTIONS IN FORSUB TREATED. 

TRANSFER IF TAPE BLOCK NOT FULL. 

WRITE A RECORD ON TAPE TWO 

AND GO TO CNL TO CONTINUE. 



F6H00841 
F6H00850 
F6H00860 
F6H00870 
F6H00880 
F6H0Q890 
F6H00900 
F6H00910 
F6H00920 
F6H00930 
F6H00940 
F6H00941 
F6H00950 
F6H00960 
F6H00970 
F6H00980 
F6H00990 
F6H01000 



f- ;•■/ 



U 



U 



T 
TD 



00346 

00347 

00350 

00351 

00352 

00353 

00354 

00355 

00356 

00357 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00370 

00371 

00372 

00373 

00374 

00375 

00376 

00377 

00400 

00401 

00402 

00403 

00404 

00405 

00406 

00407 

00410 

00411 

00412 

00413 

00414 

00415 

00416 

00417 

00420 

00421 

00422 

00423 

00424 

00425 

00426 

00427 

00430 

00431 

00432 

00433 



70000 00403 
76600 00202 
50000 4 00001 
62100 00353 
-0 73400 2 00000 
70000 2 00000 
00001 2 00353 
76600 00333 
02000 4 00002 
75400 2 00000 
60100 00367 
77100 00022 
62100 00367 
50000 00401 
40200 00367 
60100 00367 
07400 4 00347 
00000 00000 
50000 00407 
40000 00162 
60100 00206 
76200 00221 
02000 00004 
60000 00206 
02000 00373 
75400 00000 
00000 00261 
00030 00560 
00000 00017 
606060606060 
000000000060 
+000000000077 
+000000000012 
+000000000000 
606060606060 
606060606060 
606045214425 
626046266026 
465163512145 
602664452363 
314645626066 
316330602346 
515125624746 
452431452760 
314563255145 
214360264651 
446443216045 
644422255162 
602145246046 
236321436043 
462321633146 
456260606060 
606060606060 
606060606060 



2 



-0 















WRITE 



POOP 



WLL 



CPY 
WtD 
CLA 
STA 
PDX 
CPY 
TIX 
100 
TRA 
PXD 
STO 
ARS 
STA 
CLA 
SUB 
STO 
TSX 



BLANKS 

2 

1*4 

POOP 

0.2 

**t2 

P00Pt2»l 

2»4 

0*2 

LND 

18 

LND 

LNE 

LND 

LND 

WRITEt4 



LND 

CLA LOC 

ADD ONE 

STO ME8 
LIB26 RTB 1 

TRA 4 
LIB36 STZ ME8 

TRA LIB26 
CFOR PXD 
FORM TXI AFOR+1 
LNE LIN+5..24 
L0C15 HTR 15 
BLANKS BCD 1 
BLANK BCD 100000 
6BITS OCT 77 
TEN DEC 10 
LOC DEC 

BCD 



GET ADDRESS AND DECREMENT TO STORE IN LND 
FOR WRITING FINAL RECORD. 



WRITE IT. 

SET ME8 EQUAL TO LOCATION OF LAST FORSUB ENTRY 
LISTED PLUS ONE. (TO BE USED BY RECORD 110). 



NO FORTRAN FUNCTIONS. SET ME8 EQUAL ZERO AND 
GO TO RETURN TO LOADER. 



NAMES OF FORTRAN FUNCTIONS WITH CORRESPONDING 



..&6MQ1010 
F6H01020 
F6H01030 
F6H01040 
F6H01050 
F6H01060 
F6H01070 
F6H01080 
F6H01090 
F6H01100 
F6H01110 
F6H01120 
F6H01130 
F6H01140 
F6H01150 
F6H01160 
F6H01170 
F6H01180 
F6H01190 
F6H01200 
F6H01210 
F6H01220 
F6H01230 
F6H01240 
F6H01250 
F6H01260 
F6H01270 
F6H01280 
F6H01290 
F6H01300 
F6H01310 
F6H01320 
F6H01330 
F6H01340 
F6H01350 



BCD INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS 



F6H01360 



&* 



7 ) 





00434 


TITLE 


BSS 




00434 


606060606060 




BCD 




00435 


606060606060 








00436 


606031264560 








00437 


606043462360 








00440 


606060606060 








00441 


606060606060 








00442 


606031264560 








00443 


606043462360 








00444 


606060606060 








00445 


606060606060 








00446 


606031264560 




BCD 


IF 


00447 


606043462360 








00450 


606060606060 








00451 


606060606060 








00452 


606031264560 








00453 


606043462360 








00454 


606060606060 








00455 


606060606060 








00456 


606031264560 








00457 


606043462360 










00460 


CHEAD 


BSS 






00460 




BSS 


40 




00530 




BSS 


19 




00553 


LIN 


BSS 


1 




00562 


DIG 


BES 


6 




00562 


SYM 


B5S 


1 




00563 


SUM 


BSS 


1 




00730 


FORT 


BES 


100 




00210 




END 


START 




00001 
00002 


IFN 
FORF 







IFN 



LOC 



IFN 



LOC 



F6H01370 
F6H01380 



LOC 



IFN 



LOC 



IFN LOC F6H01390 



F6H01400 
F6H01410 
F6H01420 
F6H01430 
F6H01440 
F6H01450 
F6H01460 
F6H01470 
F6H01480 



a: 



u 



U 



REM ************* FORTRAN II 













00210 




ORG 


136 




00210 





53400 


4 


00427 




LXA 


L0C15»4 




00211 





76200 





00304 


REIFN 


RDR 


4 


T 


00212 


-0 


75400 





00002 


EIFNA 


PXD 


2 




00213 





46000 





00212 




LDA 


EIFNA 




00214 


-0 


70000 





02112 




CAD 


TEIFN 




00215 





76000 





00006 




COM 






00216 


-0 


70000 





00533 




CAD 


SUM 




00217 





76000 





00006 




COM 






00220 





10000 





00223 




TZE 


LEIFN 




00221 


2 


00001 


4 


00211 




TIX 


REIFN.4.1 




00222 





07400 


4 


00004 




TSX 


4t4 




. 00223 


-0 


53400 


3 


02112 


LEIFN 


LXD 


TEIFN»3 


D 


00224 


-3 


00000 


1 


00347 




TXL 


ENDS»1 




00225 





53400 


4 


00427 




LXA 


L0C15.4 




00226 





76200 





00304 


LIB30 


RDR 


4 


T 


00227 


-0 


75400 





00004 


EIFTA 


PXD 


4 




00230 





46000 





00227 




LDA 


EIFTA 




00231 


-0 


70000 


2 


02112 


CEIFN 


CAD 


TEIFN.2 




00232 


2 


00001 


2 


00231 




TIX 


CEIFN#2fl 




00233 





70000 





00533 




CPY 


SUM 




00234 





76000 





00006 




COM 






00235 


-0 


70000 





00533 




CAD 


SUM 




00236 





76000 





00006 




COM 






00237 





10000 





00242 




TZE 


PEIFN 




00240 


2 


00001 


4 


00226 




TIX 


LIB30.4.1 




00241 





07400 


4 


00004 




TSX 


4»4 




00242 





07400 


4 


00324 


PEIFN 


TSX 


SPACE.4 




00243 





00024 





00454 






TITLE..20 




00244 





07400 


4 


00324 




TSX 


SPACE.4 




00245 





00024 





00500 






CHEAD..20 




00246 





50000 





00170 




CLA 


LIFN 




00247 





62100 





00263 




STA 


FIFL 




00250 


-0 


53400 


2 


00301 


CNL 


LXD 


LNC»2 




00251 


-o 


50000 





00422 


CNW 


CAL 


BLANKS 




00252 





60200 


2 


00524 




SLW 


LlN+1.2 




00253 


-0 


50000 


1 


02112 




CAL 


TEIFNtl 




00254 





07400 


4 


00303 




TSX 


DCR*4 




00255 





60200 


2 


00525 




SLW 


LIN+2»2 




00256 


-0 


50000 


1 


02112 




CAL 


TEIFN.l 




00257 





77100 





00022 




ARS 


18 




00260 





07400 


4 


00303 




TSX 


DCR»4 




00261 





60200 


2 


00526 




SLW 


LlN+3»2 




00262 





53400 


4 


00426 




LXA 


L0C»4 


U 


00263 





50000 


4 




FIFL 


CLA 


IFN»4 




00264 





77100 





00022 




ARS 


18 



FORTRAN 2 RECORD 107 - MAP EXT. AND INT# FORMULA NOS. 

LIST EXTERNAL FORMULA NUMBERS WITH CORRESPONDING 
INTERNAL FORMULA NUMBERS AND RELATIVE LOCATIONS 

SET DRUM READ ERROR COUNTER. 
SELECT ORUM 4 TO READ EIFN TABLE* 



SECTION SIX ************************F6I00010 ., inftAlft 

•M«i2««I* FORTRAN II SECTION SIX *******-*-**"?*:******* p* X SSS 1 2 

F6I00012 
F6I00020 
F6I00030 
F6I00040 
F6100050 
F6I00060 
F6I00070 
F6100080 
F6I00090 
F6I00100 
F6I00110 
F6I00120 
F6I00130 
F6100140 
F6I00150 
F6I00160 
F6I00170 
F6100180 
F6I00190 
F6I00200 
F6I00210 
F6I00220 
F6I00230 
F6I00240 
F6I00250 
F6I00260 
F6I00270 
F6 I 00 280 
F6I00290 
F6I0030C 
F6I00310 
F6I00320 
F6I00330 
F6I00340 
F6I00350 
F6I00360 
F6I00361 
F6I00370 
F6I00380 
F6I00390 
F6I00400 



WORD COUNT OKAY. 



SET XR1+XR2=WD CT OF EIFN TABLE. 
ANY FORMULA NOS. N0» GO TO ENDS. 
YES. SET READ ERROR COUNTER 

READ INTERNAL- 
EXTERNAL FORMULA 
NUMBERS INTO TEIFN-WD CT»...» TE1FN-1 



TRANSFER IF OKAY. 



COPY TITLE AND HEADING 0N.-T-APE.2t 



SET AT INITIALIZATION OF FIRST PASS. EQUALS 

LOCATION OF DEA TABLE WHICH HAS IFN TABLE IN 

DECREMENT. 

«ET COUNTER FOR 20-WORD RECORD 

STORE BLANKS IN FIRST WORD OF 4-WORD ENTRY 



GO TO CONVERT EXTERNAL FORMULA NO. TO BCD I M AGEF6I00410 
OF ITS DECIMAL REPRESENTATION AND STORE IT IN F6I00420 
IN 2ND WORD OF ITS ENTRY. 



GO TO CONVERT INTERNAL FORMULA NO. TO THE BCD 
IMAGE OF ITS DEC. REPRESENTATION AND STORE IT 
IN 3RD WORD OF ENTRY. fcllluoco 

SET XR4 TO CURRENT INTERNAL FORMULA NUMBER. 



F6I00421 
F6I00430 
F6I00440 
F6I00450 
F6I00460 
F6I00470 
F6100480 
F6I00490 



M7 



TD 



00265 





62100 





00426 




STA 


LOC 


00266 





50000 





00426 




CLA 


LOC 


00267 





76500 





00017 




LRS 


15 


00270 


-0 


50000 





00423 




CAL 


BLANK 


00271 


-0 


14000 





00272 




TNO 


OCT 


00272 





76700 





00003 


OCT 


ALS 


3 


00273 





76300 





00003 




LLS 


3 


00274 


-0 


14000 





00272 




TNO 


OCT 


00275 





60200 


2 


00527 




SLW 


LIN+4t2 


00276 


-2 


00001 


1 


00336 




TNX 


WLL»1»1 


00277 


2 


00004 


2 


00251 




TIX 


CNW»2»4 


00300 





07400 


4 


00326 




TSX 


WRITE»4 


00301 





00024 





00524 


LNC 




LIN+1»»20 


00302 


1 


00000 





00250 


OCX 


TXI 


CNL 


00303 


-0 


63400 


4 


00302 


OCR 


SXD 


DCX*4 


00304 





62100 





00426 




STA 


LOC 


00305 





53400 


4 


00162 




LXA 


ONE* 4 


00306 





56000 





00426 




LDQ 


LOC 


00307 





50000 





00425 


CNV 


CLA 


TEN 


00310 





04000 





00315 




TLQ 


FIN 


00311 


-0 


75400 





00000 




PXD 




00312 





22100 





00425 




DVP 


TEN 


00313 





60200 


4 


00532 




SLW 


DIGt4 


00314 


1 


00001 


4 


00307 




TXI 


CNV»4»1 


00315 


-0 


60000 


4 


00532 


FIN 


STQ 


DIG*4 


00316 


-0 


50000 





00422 




CAL 


BLANKS 


00317 





76700 





00006 


DEC 


ALS 


6 


00320 


-0 


50100 


4 


00532 




ORA 


DIG»4 


00321 


2 


00001 


4 


00317 




TIX 


DEC*4*1 


00322 


-0 


53400 


4 


00302 




LXD 


DCX*4 


00323 





02000 


4 


00001 




TRA 


1»4 


00324 





76600 





00202 


SPACE 


WTD 


2 


00325 





70000 





00422 




CPY 


BLANKS 


00326 





76600 





00202 


WRITE 


WTD 


2 


00327 





50000 


4 


00001 




CLA 


1»4 


00330 





62100 





00332 




STA 


POOP 


00331 


-0 


73400 


2 


00000 




POX 


0*2 


00332 





70000 


2 


00332 


POOP 


CPY 


*»2 


00333 


2 


00001 


2 


00332 




TIX 


P00P»2*1 


00334 





76600 





00333 




IOD 




00335 





02000 


4 


00002 




TRA 


2*4 


00336 


-o 


75400 


2 


00000 


WLL 


PXD 


0*2 


00337 





60100 





00346 




STO 


LND 


00340 





77100 





00022 




ARS 


18 


00341 





62100 





00346 




STA 


LND • 


00342 





50000 





00351 




CLA 


LNE 


00343 





40200 





00346 




SUB 


LND 


00344 





60100 





00346 




STO 


LND 


00345 





07400 


4 


00326 




TSX 


WRITE»4 


00346 





00000 





00000 


LND 






00347 





76200 





00221 


ENDS 


RTB 


1 


00350 





02000 





00004 




TRA 


4 



LOC NOW CONTAINS LOCATION OF CURRENT INTERNAL 

FORMULA NUMBER. 

TO CONVERT THE LOCATION 

TO THE BCD IMAGE OF ITS OCTAL 

REPRESENTATION* AND 

STORE IT IN THE 

FOURTH WORD OF THE 4-WORD ENTRY. 



TRANSFER WHEN ALL EIFN ENTRIES HAVE BEEN 

TREATED. 

MORE ENTRIES + STILL ROOM IN 20-WORD BLOCK* GO 

TO CNW. 

WRITE TAPE 2 BLOCK. 



TO CONVERT ADDRESS 
IN LOC TO BCD 
IMAGE OF DECIMAL 
LOCATION. 



DIVIDE BY TEN AND 
STORE REMAINDERS. 



RETURN TO PROGRAM. 



TO GET WORD COUNTERS FOR WRITING 
FINAL RECORD. 



WRITE FINAL RECORD 

AND 

GO TO LOADER. 



F6I00500 

F6I00510 

F6I00520 

F6I00530 

F6I00540 

F6I00550 

F6I00560 

F6I00570 

F6I00580 

F6I00590 

F6I00591 

F6I00600 

F6I00601 

F6I00610 

F6I00620 

F6I00630 

F6I00640 

F6I00650 

F6I00660 

F6I00670 

F6I006B0 

F6I00690 

F6I0O700 

F6I00710 

F6I00720 

F6I00730 

F6I00740 

F6I00750 

F6I00760 

F6I00770 

F6100780 

F6I00790 

F6I00800 

F6I00810 

F6I00820 

F6I00830 

F6I00840 

F6I00850 

F6I00860 

F6I00870 

F6I00880 

F6I00890 

F6I00900 

F6I00910 

F6I00920 

F6I0093O 

F6I00940 

F6100950 

F6I00960 

F6I00970 

F6I00980 

F6I00990 

F6I01000 

F6I01010 



/ 



u 



u 



00351 00030 00530 
00352 

00422 606060606060 

00423 000000000060 

00424 +000000000077 

00425 +000000000012 

00426 +000000000000 

00427 00000 00017 

00430 606060606060 

00431 606060606060 

00432 606060606025 

00433 676325514521 

00434 436026465144 

00435 644321604564 

00436 442225516260 

00437 663163306023 

00440 465151256247 

00441 464524314527 

00442 603145632551 

00443 452143602646 

00444 514464432160 

00445 456444222551 

00446 626021452460 

00447 462363214360 

00450 434623216331 

00451 464562606060 

vvt^i wwwvwwwu 

00453 606060606060 

00454 

00454 606060606060 

00455 606025264560 

00456 606031264560 

00457 606043462360 

00460 606060606060 

00461 606025264560 

00462 606031264560 

00463 606043462360 

00464 606060606060 

00465 606025264560 

00466 606031264560 

00467 606043462360 

00470 606060606060 

00471 606025264560 

00472 606031264560 

00473 606043462360 

00474 606060606060 

00475 606025264560 

00476 606031264560 

00477 606043462360 

00500 
00500 
00523 
00532 
00532 



LNE LIN+5»t24 

BSS 40 
BLANKS BCD 1 
BLANK BCD 100000 
6BITS OCT 77 
TEN DEC 10 
LOC DEC 
L0C15 HTR 15 

BCD 



F6I01020 
F6I01030 
F6I01040 
F6I01050 
F6I01060 
F6I01070 
F6I01080 
F6I01090 
EXTERNAL FORMULA NUMBERS WITH CORRESPONDINGF6I01100 



BCD 



INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS 



F6I01110 



TITLE BSS 
BCD 



EFN 



I FN LOC 



EFN 



IFN 



LOC 



F6I01120 
EFN F6I01130 



BCD 



IFN 



LOC 



EFN 



IFN LOC 



EFN 



IFN 



LOC F6 1 01 140 



CHEAD BSS 

BSS 19 
LIN BSS 1 
DIG BES 6 
SYM BSS 1 



F6I01150 
F6I01160 
F6I01170 
F6I01180 
F6I0H90 



/?? 



.V 



00533 SUM BSS 1 F6I01210 

02112 TEIFN BES 750 c^nt^n 

00210 END START FMOIZ^O 
00001 IFN 



f-'-fi 



o ^ 



REM ************* FORTRAN 1 1 



SECTION SIX ************************F6J00Q10 
************* FORTRAN II SECTION SIX ************************F6 J00010 



FORTRAN 2 



RECORD 109 - MAP PROGRAM. 











00210 




ORG 


136 


00210 





50000 





00171 




CLA 


LCTR 


00211 





4Q2QQ 


Q 


00-166 




SUB 


LI 


00212 





40000 





00162 




ADO 


ONE 


00213 





60100 





00546 




STO 


DELTA 


00214 





50000 





00166 




CLA 


LI 


00215 





40000 





00175 




ADD 


L3 


00216 





40200 





00171 




SUB 


LCTR 


00217 





60100 





00176 




STO 


PGBK 


00220 


-0 


53400 


1 


00155 




LXD 


DEVL»1 


00221 


-3 


00000 


1 


00243 




TXL 


A5»l 


00222 





50000 





00152 




CLA 


ADEV 


00223 





62100 





00225 




STA 


Al 


00224 





62100 





00241 




STA 


A4 


00225 





50000 


1 


00225 


Al 


CLA 


*il 


00226 





62100 





00301 




STA 


ERAS1 


00227 





50000 





00301 




CLA 


ERAS1 


00230 





34000 




00175 




CAS 


L3 


00231 





02000 





00236 




TRA 


A3 


00232 





02000 





00240 




TRA 


A2 


00233 





34000 





00166 




CAS 


LI 


00234 





02000 





00240 




TRA 


A2 


00235 





02000 





00240 




TRA 


A2 


00236 


2 


00001 


1 


00225 


A3 


TIX 


Al»l*l 


00237 





02000 





00243 




TRA 


A5 


00240 





40200 





00546 


A2 


SUB 


DELTA 


00241 





62100 


1 


00241 


A4 


STA 


♦fl 


00242 





02000 





00236 




TRA 


A3 


00243 





50000 





00172 


A5 


CLA 


LTEV 


00244 


-0 


53400 


1 


00120 




LXD 


TEVL»1 


00245 


-3 


00000 


1 


00257 




TXL 


A6*l 


00246 





34000 





00175 




CAS 


L3 


00247 





02000 





00257 




TRA 


A6 


00250 





02000 





00255 




TRA 


A7 


00251 





34000 





00166 




CAS 


LI 


00252 





02000 





00255 




TRA 


A7 


00253 





02000 





00255 




TRA 


A7 


00254 





02000 





00257 




TRA 


A6 


00255 





40200 





00546 


A7 


SUB 


DELTA 


00256 





60100 





00172 




STO 


LTEV 


00257 


-0 


53400 


1 


00141 


A6 


LXD 


TIVLtl 


00260 


1 


00001 


1 


00261 




TXI 


NT1«1» 


00261 


-3 


00000 


1 


00302 


NT1 


TXL 


B4»l 



RELOCATE DATA DOWN TO LOWER STORAGE 
COMPUTE DELTA EQUAL LCTR MINUS LI PLUS 1 
SUBTRACT DELTA FROM ALL LOCATIONS BETWEEN L3 
AND LI IN DEV. TEV* AND TIV TABLES 
LI IS PROGRAM BREAK* L3 IS COMMON BREAK 



COMPUTE NEW PROGRAM 
BREAK AND STORE. 



ANY SYMBOLS IN DEV. 
NO* GO TO AS* 
YES* COMPUTE ADDRESS OF 
DEA TABLE* 

SELECT LOCATION 
FROM ADDRESS BITS* 



F6J00011 
F6JOO012 
F6JO0O20 
F6J00030 
F6J00040 
F6JO0050 
F6J00060 
F6J00070 
F6JO0O8O 
F 6J00090 
F6J00100 
F6J00110 
F6J00120 
F6J00130 
F6J00140 
F6J00150 
F6J00160 
F6J00170 
F6J00180 
F6JO0190 
F6J00200 
F6J00210 
F6J00220 
F6J00230 
F6J00240 
F6J00250 



LOC GREATER THAN L3* DO NOT RELOCATE* 

LOC EQUAL L3* GO TO RELOCATE (HAS TO BE GREATERF6J00260 



THAN LU 

LOC LESS THAN L3* IS IT GREATER THAN LI* 

LOC GREATER THAN LI* GO TO RELOCATE 

LOC EQUAL LI* GO TO RELOCATE 

LOC LESS THAN LI* DO NOT RELOCATE. 

WHEN ALL DATA EXAMINED AND TREATED* 

RELOCATE LOCATION. 



TEST LTEV < LOCATION OF FIRST SYMBOL IN TEV) 

SET XR1 WITH WD. COUNT OF TEV ENTRIES. 

IF NO TEV ENTRIES* GO TO EXAMINE TIV. 

YES* TEV ENTRIES. IS LOCATION BETWEEN L3 AND L1F6J00380 



F6J00261 
F6J00270 
F6J00280 
F6J00290 
F6J00300 
F6J00310 
F6J00320 
F6J00330 
F6J00340 
F6J00350 
F6J00360 
F6J00370 



LOCATION GREATER THAN L3. DONT RELOCATE 

LOC EQUAL L3. RELOCATE 

LOC LESS THAN L3* IS IT GREATER THAN OR EQUAL 

LI* 

YES* RELOCATE 

YES* RELOCATE 

LOC LESS THAN L3* DONT RELOCATE* 

RELOCATE LOCATION* 

AND STORE NEW LOCATION IN LTEV* 

ANY SYMBOLS IN TIV* 

NO* GO TO WRITE OFF STORAGE NOT USED 



F6J0O390 
F6J00400 
F6J00410 
F6J00411 
F6J00420 
F6J00430 
F6J00440 
F6J00450 
F6J00460 
F6J00470 
F6J00480 
F6J00490 



W 



00262 


50000 1 02114 


A10 CLA 


TIV»1 


00263 


62100 00301 


STA 


ERAS1 


00264 


50000 00301 


CLA 


ERAS1 


00265 


34000 00175 


CAS 


L3 


00266 


02000 00273 


TRA 


A8 


00267 


02000 00276 


TRA 


A9 


00270 


34000 00166 


CAS 


LI 


00271 


02000 00276 


TRA 


A9 


00272 


02000 00276 


TRA 


A9 


00273 


1 00001 1 00274 


A8 TXI 


NT2»1»1 


00274 


-3 00000 1 00302 


NT2 TXL 


B4*l 


00275 


02000 00262 


TRA 


A10 


00276 


40200 00546 


A9 SUB 


DELTA 


00277 


62100 1 02114 


STA 


TIV»1 


00300 


02000 00273 


TRA 


A8 


00301 


00000 00000 


ERAS1 HTR 




00302 


07400 4 00352 


B4 TSX 


SPACE » 4 


00303 


00024 00470 




TITLE»»20 


00304 


07400 4 00352 


TSX 


SPACEt4 


00305 


00024 00514 




CHEA0*»20 


00306 


50000 00176 


CLA 


PGBK 


00307 


60100 00443 


STO 


LOC 


00310 


07400 4 00364 


TSX 


SUB>4 


00311 


-0 50000 00437 


CAL 


BLANKS 


00312 


60200 00514 


SLW 


LIN-19 


00313 


60200 00515 


SLW 


LIN-18 


00314 


50000 00547 


CLA 


DECWO 


00315 


60100 00516 


STO 


LIN-17 


00316 


50000 00550 


CLA 


OCTWD 


00317 


60100 00517 


STO 


LlN-16 


00320 


50000 00175 


CLA 


L3 


00321 


60100 00443 


STO 


LOC 


00322 


07400 4 00364 


TSX 


SUBt4 


00323 


-0 50000 00437 


CAL 


BLANKS 


00324 


60200 00520 


SLW 


LIN-15 


00325 


60200 00521 


SLW 


LIN-14 


00326 


50000 00547 


CLA 


DECWD 


00327 


60100 00522 


STO 


LIN-13 


00330 


50000 00550 


CLA 


OCTWD 


00331 


60100 00523 


STO 


LIN-12 


00332 


-0 50000 00437 


CAL 


BLANKS 


00333 


60200 00524 


SLW 


LIN-11 


00334 


60200 00525 


SLW 


LIN-10 


00335 


60200 00526 


SLW 


LIN-9 


00336 


60200 00527 


SLW 


LIN-8 


00337 


60200 00530 


SLW 


LIN-7 


00340 


60200 00531 


SLW 


LIN-6 


00341 


60200 00532 


SLW 


LIN-5 


00342 


60200 00533 


SLW 


LIN-4 


00343 


60200 00534 


SLW 


LIN-3 


00344 


60200 00535 


SLW 


LlN-2 


00345 


60200 00536 


SLW 


LIN-1 


00346 


60200 00537 


SLW 


LIN 



YES. TEST TIV. 

SELECT LOCATION FROM ADDRESS BITS. 



NO RELOCATION. 
RELOCATE. 

RELOCATE. 
RELOCATE. 

IF MORE ENTRIES IN TIV TO BE TESTED FOR RELOC- 
ATION* 60 TO TEST TIV. IF DONE* GO WRITE 
STORAGE NOT USED. 
RELOCATE BY SUBTRACTING DELTA 



TO WRITE STORAGE NOT USED BY PROGRAM 

RECORD ON TAPE TWO. 

GO TO WRITE TITLE AND HEADINGS. 



TO LIST PROGRAM BREAK. 

GO TO CONVERT PROGRAM BREAK TO BCD IMAGES 

OF ITS DECIMAL AND ITS OCTAL 

REPRESENTATIONS. 

SET FIRST 2 WORDS OF RECORD TO BLANK. 

SET 3RD WORD TO IMAGE OF DECIMAL REPR. 

SET 4TH WORD TO IMAGE OF OCTAL REPRESENTATION 

OF PROGRAM BREAK. 

TO LIST COMMON BREAK* 
GO TO CONVERT IT. 



SET WORDS FIVE AND SIX TO BLANK. 

SET WORD SEVEN TO BCD IMAGE OF DECIMAL 

REPRESENTATION OF COMMON BREAK. 

SET WORD EIGHT TO IMAGE OF OCTAL REPR. 

SET REMAINDER OF RECORD TO BLANK. 



F6J00500 
F6J00510 
F6J00520 
F6J00530 
F6J00540 
F6J00550 
F6J00560 
F6J00570 
F6J00580 
F6J00590 
F6J00600 
F6J00601 
F6J00610 
F6J00620 
F6J00630 
F6J00640 
F6J00650 
F6J00660 
F6J00670 
F6J00680 
F6J00690 
F6JO07O0 
F6J00710 
F6J00720 
F6J00730 
F6J00740 
F6J00750 
F6J00760 
F6J00770 
F6J00780 
F6J00790 
F6J00800 
F6J00810 
F6J00820 
F6J00830 
F6J0O840 
F6J00850 
F6J00860 
F6J00870 
F6J00880 
F6J00890 
F6J00900 
F6J00910 
F6J00920 
F6J00930 
F6J00940 
F6J00950 
F6J00960 
F6J00970 
F6J00980 
F6J00990 
F6J01000 
F6J01010 
F6J01020 



7y* 



(J 



u 



00347 





07400 


4 


00354 




TSX 


WRITE*4 


00350 





00024 





00540 


LNC 




LIN+1»*2 


00351 





02000 





00004 




TRA 


4 


00352 





76600 





00202 


SPACE 


WTD 


2 


00353 





70000 





00437 




CPY 


BLANKS 


00354 





76600 





00202 


WRITE 


WTO 


2 


00355 





50000 


4 


00001 




CLA 


1*4 


00356 





62100 





00360 




STA 


POOP 


00357 


-0 


73400 


2 


00000 




PDX 


0*2 


00360 





70000 


2 


00360 


POOP 


CPY 


**2 


00361 


2 


00001 


2 


00360 




TIX 


P00P»2»1 


00362 


O 


76600 


00333 




400 




00363 





02000 


4 


00002 




TRA 


2*4 


00364 





53400 


1 


00162 


SUB 


LXA 


0NE#1 


00365 





56000 





00443 




LDQ 


LOC 


00366 





50000 





00442 


CNV 


CLA 


TEN 


00367 





04000 





00374 




TLO 


FIN 


00370 


-0 


75400 





00000 




PXD 




00371 





22100 





00442 




DVP 


TEN 


00372 





60200 


1 


00546 




SLW 


DIG»1 


00373 


1 


00002 


1 


00366 




TXI 


CNV»1»1 


00374 


-0 


60000 


1 


00546 


FIN 


STQ 


DI0*1 


00375 


-0 


50000 





00437 




CAL 


BLANKS 


00376 





7670O 





00006 


DEC 


ALS 


6 


00377 


-0 


50100 


1 


00546 




ORA 


DIGtl 


00400 


2 


00001 


1 


00376 




TIX 


DEC»1»1 


00401 





60200 





00547 




SLW 


DECWD 


00402 





50000 





00443 




CLA 


LOC 


00403 





76500 





00017 




LRS 


15 


00404 


-0 


50000 





00440 




CAL 


BLANK 


00405 


-0 


14000 





00406 




TNO 


OCT 


00406 





76700 





00003 


OCT 


ALS 


3 


00407 





76300 





00003 




LLS 


3 


00410 


-0 


14000 





00406 




TNO 


OCT 


00411 





60200 





00550 




SLW 


OCTWD 


00412 





02000 


4 


00001 
00413 




TRA 
BSS 


1*4 
20 


00437 


606060606060 


BLANKS 


BCD 


1 


00440 


000000000060 


BLANK 


BCD 


100000 


00441 


+000000000077 


6BITS 


OCT 


77 


00442 


+000000000012 


TEN 


DEC 


10 


00443 


+000000000000 


LOC 


DEC 





00444 


606060606060 




BCD 


7 


00445 


606060606060 








00446 


606060606060 








00447 


606060606060 








00450 


606060606060 








00451 


606060606060 








00452 


606060606060 








00453 


626346512127 




BCD 


5ST0RAGE 


00454 


256045466360 








00455 


646225246022 








00456 


706047514627 








00457 


512144606060 









GO TO WRITE RECORD ON TAPE TWO* 
GO TO LOADER* 



CONVERTING TO DECIMAL* 



DECIMAL TO BCD IMAGE* 



OCTAL TO BCD IMAGE* 



F6J01030 
F6J01040 
F6J01050 
F6J01060 
F6J01070 
F6J01080 
F6JO1090 
F6J01100 
F6J01110 
F6J01120 
F6J01130 
#6JO±440 
F6J01150 
F6J01160 
F6J01170 
F6J01180 
F6J01190 
F6J01200 
F6J01210 
F6J01220 
F6J01230 
F6J01240 
F6J01250 
F6J01260 
F6J01270 
F6J01280 
F6J01290 
F6J01300 
F6J01310 
F6J01320 
F6J01330 
F6J01340 
F6JO1350 
F6J01360 
F6J01370 
F6J01380 
F6J01390 
F6J01400 
F6J01410 
F6J01420 
F6J01430 
F6J01440 
F6J01450 



F6J01460 



cS 



00460 


606060606060 




BCD 


8 


00461 


606060606060 








00462 


606060606060 








00463 


606060606060 








00464 


606060606060 








00465 


606060606060 








00466 


606060606060 








00467 


606060606060 










00470 


TITLE 


BSS 




00470 


606060606060 




BCD 


2 


00471 


606060606060 








00472 


606024252360 




BCD 


4 


00473 


606046236360 








00474 


606060606060 








00475 


606060606060 








00476 


606024252360 




BCD 


<► 


00477 


606046236360 








00500 


606060606060 








00501 


606060606060 








00502 


606060606060 




BCD 




00503 


606060606060 








00504 


606060606060 








00505 


606060606060 








00506 


606060606060 








00507 


606060606060 








00510 


606060606060 








00511 


606060606060 








00512 


606060606060 








00513 


606060606060 










00514 


CHEAD 


BSS 






00514 




BSS 


19 




00537 


LIN 


sss 


I 




00546 


DIG 


3E5 


6 


00546 


00000 00000 


DELTA 


HTR 





00547 


00000 00000 


OECWD 


HTR 





00550 


00000 00000 
00000 


OCTWD 


HTR 
END 






F6J01470 



DEC OCT 



DEC OCT 



F6J01480 
F6 JO 1490 

F6J0150O 



F6J01510 



F6J01520 



F6J01530 
F6J01540 
F6J01550 
F6J01560 
F6J01570 
F6J01580 
F6J01590 
F6J01600 



6 // 



O 



U 



n 



REM ************* FORTRAN II 



SECTION SIX *************«**********F6K00010 
*i*********** FORTRAN II SECTION SIX ************************F6K00010 



00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 



53400 
00000 
07400 
QQ0L24 
07400 
00024 
50000 
62100 
75400 
77100 
60100 
53400 
53400 
50000 
62100 
50000 
34000 



00206 
00032 
00210 
00032 
00247 
00436 
00503 
00436 
00527 
00152 
00225 
00000 
00022 
00456 
00155 
00241 
00000 
00455 
00455 
00456 



00231 02000 00243 



00232 
00233 
00234 
00235 
00236 

00237 
00240 
00241 
00242 
00243 

00244 
00245 
00246 
00247 
00250 
00251 
00252 

00253 
00254 
00255 
00256 
00257 
00260 
00261 



02000 
56000 
07400 
07400 
-2 00001 



00004 
07400 
00024 
02000 
00001 

02000 
00004 
07400 
53400 
00000 
50000 
34000 



02000 
02000 
50000 
60100 
50000 
62100 
53400 



00243 
77777 
00366 
00405 
00246 

00225 
00440 
00634 
00224 
00245 

00225 
00246 
003 53 
00155 
00324 
00456 
00206 

00257 
00255 
00206 
00456 
00152 
00262 
00241 



ME 8 SYN 
PC3 SYN 
ORG 
LXD 
TXL 
TSX 

TSX 

CLA 
STA 
PXD 
ARS 
STO 
LXD 
TV2 LXD 
TV1 CLA 
STA 
CLA 
CAS 

7RA 
TRA 
TV4 LDQ 
TSX 
TSX 
TNX 

TIX 
TSX 



LNC 



TV3 



FORTRAN 2 RECORD 110 - MAP OTHER CARIABLES. 

LIST DATA LOCATIONS NOT APPEARING IN COMMON 

134 

26 

136 

PC3.1 

J4tl 

SPACE #4 

TRA*U+2Q 

SPACE* 4 

TRHAD»»20 

ADEV 

TV1 

0*1 

18 

LENG 

DEVL»1 

LNC*2 

**#1 

LOC 

LOC 

LENG 



TRA 
TNX 



TRA 

TV6 TXI 

TV5 TSX 

J4 LXD 

TXL 

CLA 

CAS 

TRA 

TRA 
LIB37 CLA 

STO 
LIB38 CLA 

STA 
CNL LXD 



I V 3 

TV3 

DEV.l 

03*4 

D4*4 

TV5»1*1 

TV1.2.4 

WRITE*4 

LIN+1»*20 

TV2 

TV6»1»1 

TV1 

TV5»2»4 

WLL*1 

DEVL * 1 

Jltl 

LENG 

ME8 

LIB38 

LIB37 

ME8 

LENG 

ADEV 

BDV 

LNC»2 



ANY TRANSFER VECTOR. 

N0» TRANSFER* 

YES* GO TO WRITE COLUMN HEADINGS AND 

LOCATIONS OF NAM££ IU TRANSFER VECTOR* 



PRINT TRANSFER VECTOR 
INITIAL DEA LOCATION. 



NO. OF WORDS IN TRANSFER VECTOR. 

SET DEA TABLE COUNTER. 

SET TAPE TWO RECORD LENGTH EQUAL TO TWENTY. 

LOCATION FROM DEA TABLE. 



IF DEV ENTRY IS IN TRANS. VECTOR. 
PONDING DEA ENTRYIADDR. PART)WILL 
THAN TRANS. VECTOR WORD COUNT. ^ 
DEV ENTRY NOT IN TRANSFER VECTOR. 



ITS CORRES- 
BE LESS 



F6K00011 
F6K00012 
F6K00020 
F6K00030 
F6K00040 
F6K00050 
F6K00060 
F6K00070 
F6K00080 
F6K0OO9© 
F6K00100 
F6K00110 
F6K00120 
F6K00130 
F6K00140 
F6K00150 
F6K00160 
F6K00170 
F6K00180 
F6K00190 
F6K002Q0 
F6K00210 
F6K00220 
F6K00221 
F6K00230 
F6K00240 
F6K00250 
F6K00260 
F6K00270 



DEV ENTRY IS IN TRANSFER VECTOR SO LIST IT, 

TO PREPARE FIRST TWO WORDS OF TAPE TWO ENTRY. 

TO PREPARE 3RD AND 4TH WORDS OF ENTRY. 

IF NO MORE WORDS IN DEV TABLE* GO TO WRITE LASTF6K00280 

RECORD. F6K00281 

IF TAPE TWO RECORD FULL* GO TO WRITE RECORD 

AND THEN TO TV2 TO SET UP FOR NEXT RECORD. 



(NOT IN TRANSFER VECTOR). UPDATE 



DO NOT LIST 

INDEX. _ _ t 

AND GO TO SELECT NEXT DEA. IF END OF DEV* 

ADJUST WRITE-COPY INDEX AND GO 

WRITE LAST RECORD. 

ANY DEV ENTRIES. 

NO* TRANSFER 

YES. COMPARE WD. CT. OF TRANSFER VECTOR WITH 

LAST LOCATION OF FORTRAN FUNCTIONS+1 (ME8 SET 

BY RECORD 105. 

LESS THAN TRANSFER VECTOR LENGTH. 

EQUAL OR GREATER THAN TR. VECTOR LENGTH. SET 

LENG EQUAL TO ME8 TO AVOID DUPLICATE LISTING 

OF FORTRAN FUNCTIONS (LISTED BY RECORD 105). 

STORE INITIAL LOCATION OF DEA TABLE IN ADDRESS F6K00450 

OF BDV. F6K00460 

SET TAPE TWO RECORD LENGTH TO 20. F6K00470 



F6K00290 
F6K00300 
F6K00310 
F6IC00320 
F6K00330 
F6K00331 
F6K00340 
F6K00350 
F6K00360 
F6K00370 
F6K00380 
F6K00390 
F6K00400 
F6K00401 
F6K00410 
F6K00420 
F6K.00430 
F6K00440 



C^ 



LV 



00262 





50000 


1 


00000 


BDV 


CLA 


**»1 


00263 





62100 





00455 




STA 


LOC 


00264 





50000 





00455 




CLA 


LOC 


00265 





34000 





00456 




CAS 


LENG 


00266 





02000 





00271 




TRA 


J6 


00267 





02000 





00271 




TRA 


J6 


00270 





02000 





00306 




TRA 


Bll 


00271 





34000 





00175 


J6 


CAS 


L3 


00272 





02000 





00306 




TRA 


Bll 


00273 





02000 





00274 




TRA 


BIO 


00274 





50000 





00310 


BIO 


CLA 


ME5 


00275 





10000 





00311 




TZE 


ME6 


00276 





56000 


1 


77777 


ME 7 


LDQ 


DEV*1 


00277 





07400 


4 


00366 




TSX 


D3»4 


00300 





07400 


4 


00405 




TSX 


D4»4 


00301 


-2 


00001 


1 


00323 




TNX 


B25*l»l 


00302 


2 


00004 


2 


00262 




TIX 


BDV»2»4 


00303 





07400 


4 


00440 




TSX 


WRITE»4 


00304 





00024 





00634 






LIN+1»*20 


00305 





02000 





00261 




TRA 


CNL 


00306 


-2 


00001 


1 


00320 


Bll 


TNX 


D7»l.l 


00307 





02000 





00262 




TRA 


BOV 


00310 





00000 





00000 


ME 5 


HTR 





00311 





07400 


4 


00436 


ME 6 


TSX 


SPACEt4 


00312 





00024 





00553 






TITLE*»20 


00313 





07400 


4 


00436 




TSX 


SPACE»4 


00314 





00024 





00527 






TRHAD*»20 


00315 


-0 


53400 


2 


00241 




LXD 


LNC»2 


00316 


-0 


63400 


2 


00310 




SXD 


ME5»2 


00317 





02000 





00276 




TRA 


ME7 


00320 





50000 





00310 


D7 


CLA 


ME5 


00321 





10000 





00324 




TZE 


Jl 


00322 


1 


00004 


2 


00323 




TXI 


B25»2»4 


00323 





07400 


1 


00353 


B25 


TSX 


WLL»1 


00324 


-0 


53400 


1 


00120 


Jl 


LXD 


TEVL»1 


00325 


-3 


00000 


1 


00450 




TXL 


J3*l 


00326 





07400 


4 


00436 




TSX 


SPACE* 4 


00327 





00024 





00577 






OTHER*»20 


00330 





07400 


4 


00436 




TSX 


SPAC£»4 


00331 





00024 





00527 






TRHAD»*20 


00332 





50000 





00107 


Dl 


CLA 


TTEV 


00333 





62100 





00335 




STA 


D5 


00334 


-0 


53400 


2 


00241 




LXD 


LNC*2 


00335 





56000 


1 




05 


LDQ 


TEV»1 


00336 





07400 


4 


00366 




TSX 


D3t4 


00337 


-0 


75400 


1 


00000 




PXD 


0*1 


00340 





77100 





00022 




ARS 


18 


00341 





40000 





00172 




ADD 


LTEV 


00342 





62100 





00455 




STA 


LOC 


00343 





07400 


4 


00405 




TSX 


D4»4 


00344 


-2 


00001 


1 


00351 




TNX 


D6»l»l 


00345 


2 


00004 


2 


00335 




TIX 


D5»2»4 


00346 





07400 


4 


00440 




TSX 


WRITE »4 



SELECT LOCATION FROM ADDRESS PART OF DEA 
ENTRY. COMPARE IT WITH MAX (TRANSFER VECTOR 
WORD COUNT* LAST LOCATION OF FORTRAN FUNCTIONS 

PLUS 1)« 

NOT PREVIOUSLY LISTED AS FORTRAN FUNCTION 

OR IN TRANSFER VECTOR. GO SEE IF COMMON. 

PREVIOUSLY LISTED. GO SEE IF ANY MORE DEV 

ENTRIES. 

IS DEV ENTRY IN COMMON. 

YES* GO SEE IF ANY MORE DEV ENTRIES. 

DEV ENTRY NOT A FORTRAN FUNCTION. NOT IN 

TRANSFER VECTOR OR COMMON. ME5 IS TAPE TWO 

BUFFER COUNTER (0 TO START). GO WRITE HEADING* 

TAPE 2 BUFFER INDEX NOT 0. LOAD APPROPRIATE 

DEV ENTRY AND GO TO PREPARE THE 4-WORD ENTRY. 

GO WRITE FINAL RECORD IF DEV TABLE FINISHED. 
TRANSFER IF STILL ROOM IN TAPE TWO BUFFER. 
BUFFER FULL. GO WRITE RECORD. 

GO SET BUFFER LENGTH AND CONTINUE. 
TRANSFER IF NO MORE ENTRIES IN DEV. 
GO SELECT NEXT DEV ENTRY. 

TO WRITE STORAGE LOCATIONS FOR VARIABLES 
APPEARING IN DIMENSION AND EQUIVALENCE 
STATEMENTS AND HEADINGS 

RESET COUNTER FOR TAPE TWO BUFFER AND STORE 
IT IN ME5 

IS ANYTHING IN TAPE TWO BUFFER 
TRANSFER IF NOT. 
ADJUST BUFFER INDEX 
AND GO WRITE LAST RECORD. 
ANY TEV ENTRIES. 

NOt GO TO LOADER „ rtr . AP , 

YES* WRITE LOCATIONS FOR VARIABLES NOT APPEAR- 
ING IN DIMENSION* EQUIVALENCE* OR COMMON* 
AND WRITE HEADINGS. 

SET ADDRESS OF D5 EQUAL TO LOCATION OF 

BEGINNING OF TEV TABLE. 

SET TAPE TWO RECORD LENGTH TO 20* 

SELECT TEV ENTRY* AND GO SET WORD 1 TO BLANK* 

W0RD2 TO VARIABLE NAME. 

COMPUTE LOCATION OF TEV ENTRY. 



AND GO COMPUTE AND STORE BCD IMAGES OF DECIMAL 
AND OCTAL REPRESENTATIONS IN WORDS 3 AND 4. 
IF END OF TEV ENTRIES. GO WRITE LAST RECORD. 
TRANSFER IF STILL ROOM IN BUFFER. 
BUFFER FULL. WRITE BUFFER CONTENTS AND GO SET 



F6K00480 
F6K00490 
F6K00500 
F6K00510 
F6K00520 
F6K00530 
F6K00540 
F6K00541 
F6K00550 
F6K00560 
F6K00570 
F6K00580 
F6K00590 
F6K00600 
F6K00610 
F6K00620 
F6K00630 
F6K00640 
F6K00650 
F6K00660 
F6K00670 
F6K00680 
F6K00690 
F6K00700 
F6K00710 
F6K00720 
F6K00730 
F6K00740 
F6K00750 
F6K00760 
F6K00770 
F6K00780 
F6K00790 
F6K00800 
F6K00810 
F6K00820 
F6K00830 
F6K00840 
F6K00850 
F6K00860 
F6K00870 
F6K00880 
F6K00890 
F6K00900 
F6K00910 
F6K00920 
F6K00930 
F6K00940 
F6K00950 
F6K00960 
F6IC00970 
F6K00980 
F6K00990 
F6K.01000 



Cy: 



O 



u 



00347 





00024 





00634 






LIN+1»»20 


00350 





02000 





00334 




TRA 


D5-1 


00351 





07400 


1 


00353 


D6 


TSX 


WLLfl 


00352 





02000 





00004 




TRA 


4 


00353 


-0 


75400 


2 


00000 


WLL 


PXD 


0*2 


00354 





60100 





00363 




STO 


LND 


00355 





77100 





00022 




ARS 


18 


00356 





62100 





00363 




STA 


LND 


00357 





50000 





00365 




CLA 


LNE 


00360 





40200 





00363 




SUB 


LND 


00361 





60100 





00363 




STO 


LND 


0O562 





07400 


4 


00440 




TSX 


WRITE #4 


00363 





00000 





00000 


LND 






00364 





02000 


1 


00001 




TRA 


1*1 


00365 





00030 





00640 


LNE 




LlN+5»#24 


00366 


-0 


63400 


4 


00601 


D3 


SXD 


IR4»4 


00367 


-0 


50000 





00451 


CNW 


CAL 


BLANKS 


00370 





60200 


2 


00634 




SLW 


LIN+1»2 


00371 





60200 


2 


00635 




SLW 


LlN+2»2 


00372 





53400 


4 


00373 




LXA 


SIX»4 


00373 


-0 


76300 





00006 


SIX 


LGL 


6 


00374 





60200 





00634 




SLW 


SYM 


00375 


-0 


32000 





00453 




ANA 


6BITS 


00376 





40200 





00452 




SUB 


BLANK 


00377 





10000 





00403 




TZE 


CNA 


00400 


-0 


50000 





00634 




CAL 


SYM 


00401 





60200 


2 


00635 




SLW 


LlN+2»2 


00402 


2 


00001 


4 


00373 




TIX 


SIX»4»1 


00403 


-0 


53400 


4 


00601 


CNA 


LXD 


IR4f4 


00404 





02000 


4 


00001 




TRA 


1»4 


00405 


-0 


63400 


4 


00601 


D4 


SXD 


IR4»4 


00406 





53400 


4 


00162 




LXA 


ONE»4 


00407 





56000 





00455 




LDQ 


LOC 


00410 





50000 





00454 


CNV 


CLA 


TEN 


00411 





04000 





00416 




TLQ 


FIN 


00412 


-0 


75400 





00000 




PXD 




00413 





22100 





00454 




DVP 


TEN 


00414 





60200 


4 


00610 




SLW 


DIG»4 


00415 


1 


00001 


4 


00410 




TXI 


CNV»4»1 


00416 


-0 


60000 


4 


00610 


FIN 


STQ 


DIG»4 


00417 


-0 


50000 





00451 




CAL 


BLANKS 


00420 





76700 





00006 


DEC 


ALS 


6 


00421 


-0 


50100 


4 


00610 




ORA 


DIG»4 


00422 


.2 


00001 


4 


00420 




TIX 


DEC»4.1 


00423 





60200 


2 


00636 




SLW 


LlN+3»2 


00424 





50000 





00455 




CLA 


LOC 


00425 





76500 





00017 




LRS 


15 


00426 





50000 





00452 




CLA 


BLANK 


00427 


-0 


14000 





00430 




TNO 


OCT 


00^30 





76700 





00003 


OCT 


ALS 


3 


00431 





76300 





00003 




LLS 


3 


00432 


-0 


14000 





00430 




TNO 


OCT 


00433 





60200 


2 


00637 




SLW 


LlN+4»2 


00434 


-0 


53400 


4 


00601 




LXD 


IR4t4 



BUFFER COUNTER. 

WRITE FINAL RECORD AND GO TO LOADER. 

COMPUTE COUNT TO WRITE FINAL RECORD. 



WRITE FINAL RECORD. 



STORE BLANKS IN WORDS 1 AND 2 OF ENTRY. 



STORE VARIABLE NAME FILLED WITH BLANKS AT 
LEFT IN WORD 2 OF ENTRY. 



RETURN TO PROGRAM. 

CONVERT LOCATION TO BCD IMAGE OF ITS 
DECIMAL REPRESENTATION* AND 
STORE IT IN WORD 3 OF ENTRY. 



CONVERT LOCATION TO BCD IMAGE OF ITS OCTAL 
REPRESENTATION. AND STORE IT IN WORD 4 OF 



F6K01010 
F6K01020 
F6K01030 
F6K01040 
F6K01050 
F6K01060 
F6K01070 
F6K01080 
F6K01090 
F6K011O0 

F6K0JJLAP 
F6K01120 
F6K01130 
F6K01140 
F6KO1150 
F6K01160 
F6K01170 
F6K01180 
F6K01190 
F6K01200 
F6K01210 
F6K01220 
F6K01230 
F6K01240 
F6K01250 
F6K01260 
F6K01270 
F6K01280 
F6K01290 
F6K013O0 
F6K01310 
F6K01320 
F6K01330 
F6K01340 
F6K01350 
F6K01360 
F6K01370 
F6K01380 
F6K01390 
F6K01400 
F6K01410 
F6K01420 
F6K01430 
F6K01440 
F6K01450 
F6K01460 
F6K01470 
F6K01480 
ENTRYF6K01490 
F6K01500 
F6K01510 
F6KO1520 
F6K01530 
F6K01540 



// 



L V 



00435 
00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 

00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 
00521 



02000 4 00001 
76600 00202 
70000 00451 
76600 00202 
50000 4 00001 
62100 00444 
-0 73400 2 00000 
70000 2 00000 
00001 2 00444 
76600 00333 
02000 4 00002 
02000 00004 
606060606060 
000000000060 
+000000000077 
+000000000012 
+000000000000 
00000 00000 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
434623216331 
464562604626 
604521442562 
603145606351 
214562262551 
606525236346 
516060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 
606060606060 

00503 
606060606060 
606060606060 
606024252360 
606046236360 
606060606060 
606060606060 
606024252360 
606046236360 
606060606060 
606060606060 
606024252360 
606046236360 
606060606060 
606060606060 
606024252360 



SPACE 
WRITE 

POOP 



J3 
BLANKS 
BLANK 
6BITS 
TEN 
LOC 
LENG 



TRA 1»4 

WTD 2 

CPY BLANKS 

WTD 2 

CLA 1*4 

STA POOP 

PDX 0*2 

CPY ***2 

TIX P00P»2*1 

I0D 

TRA 2»4 

TRA 4 

BCD 1 

BCD 100000 

OCT 77 

DEC 10 

DEC 

HTR 

BCD 6 



TO WRITE TAPE-TWO BUFFER 



BCD 6L0CATI0NS OF NAMES IN TRANSFER VECTO 



F6K01550 

F6K01560 

F6K01570 

120 WORDS) ONTO TAPE* F6K01580 

F6K01590 
F6K01600 
F6K01610 
F6K01620 
F6K01630 
F6K01640 
F6K01650 
F6K01660 
F6K01670 
F6K01680 
F6K01690 
F6K01700 
F6K01710 
F6K01720 
F6K01730 



F6K01740 



BCD 8R 



TRAN BSS 

BCD 2 



BCD 4 DEC OCT 



BCD 4 DEC OCT 



BCD 4 DEC OCT 



BCD 4 DEC OCT 



F6K01750 



F6K01760 
F6K01770 

F6K01780 



F6K01790 



F6K01800 



F6K01810 



o 



u 



00522 
00523 
00524 
00525 
00526 

00527 

00530 

00531 

00532 

00533 

00534 

00535 

00536 

00537 

00540 

00541 

00542 

00543 

00544 

00545 

00546 

00547 

00550 

00551 

00552 

00553 

00554 

00555 

00556 

00557 

00560 

00561 

00562 

00563 

00564 

00565 

00566 

00567 

00 5 70 

00571 

00572 

00573 

00574 

00575 

00576 

00577 
00600 
00601 



606046236360 
606060606060 
606060606060 
606024252360 
606046236360 

00527 
606060606060 
606060606060 
606060606060 
626346512127 
256043462321 
^33146456260 
264651606521 
513121224325 
626021474725 
215131452760 
314560243144 
254562314645 
602145246025 
506431652143 
254523256062 
254563254523 
256260606060 
606060606060 
606060606060 
606060606060 

00553 
606060606060 
606060606060 
606060626346 
512127256043 
462321633146 
456260264651 
606521513121 
224325626045 
466360214747 
252151314527 
603145602431 
442545623146 
457325506431 
652143254523 
256046516023 
464444464560 
622545632545 
232562606060 
606060606060 
606060606060 

00577 



BCD 2 DEC OCT 



TRHAD BSS 
BCD 



00000 
00000 
00000 



00000 
00000 
00000 
00610 
00610 
00633 



BCD 7STORAGE LOCATIONS FOR VARIABLES APPEARING 



F6K01820 

F6K01830 
F6K01840 



F6IC01850 



BCD 7IN DIMENSION AND EQUIVALENCE SENTENCES 



F6K01860 



BCD 3 



TITLE BSS 

BCD 2 



BCD 7 STORAGE LOCATIONS FOR VARIABLES NOT APP 



F6K01870 



F6K01880 
F6K01890 

F6X01900 



BCD 6EARING IN DIMENSION. EQUIVALENCE OR C 



BCD 50MMON SENTENCES 



OTHER BSS 

ERAS2 

ERAS1 

IR4 

DIG 



LIN 



BES 
BSS 
BSS 



6 

19 

1 



F6K01910 



F6K01920 



F6K01930 
F6K01940 
F6K01950 
F6KQ1960 
F6K0197O 
F6K01980 
F6K01990 



en 



00634 SYM BSS 1 F6K02010 

00000 END fOWtvxv 

00001 TEV 



o u 



REM ************* FORTRAN II 



FORTRAN 2 RECORD 111 - WRITE PROGRAM CARD. 



PROGRAM CARD ON TAPE 3 



00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
0022? 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 



77200 
50200 
60100 
50000 
40000 
60100 
50000 
60100 
-0 75400 
36100 

36100 

36100 

36100 

36100 

60200 

76600 

70000 
70000 
70000 

70000 

70000 

70000 

53400 1 

70000 

00001 1 

76600 

02000 00004 

00000 00022 
+000004000000 

00000 



00030 
00031 
00032 
00033 
00034 
00035 
00210 
00203 
00244 
00030 
00032 
00176 
00032 
00175 
00033 
00000 
00030 
00032 
00033 
00034 
00035 
00031 
00223 
00030 
00031 
00032 
00033 
00034 
00035 
00243 
00161 
00237 
00333 



PCI SYN 
PC2 SYN 
PC3 SYN 
PC4 SYN 
PCS SYN 
PC6 SYN 
ORG 
REW 
CLS 
STO 
CLA 
ADD 
STO 
CLA 
STO 
PXD 
ACL 
ACL 
ACL 
ACL 
ACL 
SLW 
WTB 
CPY 
CPY 
CPY 
CPY 
CPY 
CPY 
LXA 
CPY 
TIX 
IOD 
TRA 
HTR 
OCT 
END 



84 



L18 
FR4 



SECTION SIX ************************F6L00010 
************* FORTRAN II SECTION SIX ************************F6L00010 

F6L00011 
F6L00012 
F6L00020 
F6L00030 
F6L00040 
F6L00050 
F6L00060 
F6L00070 
F6L00080 
F6LO0O9O 
F6L00100 
F6L00110 
F6L00120 
F6L00130 
F6L00140 
F6L00150 
F6L00160 
F6L00170 
F6L00180 
F6L00190 
F6L00200 
F6L00210 
F6L00220 
F6L00230 
F6L00240 
F6L00250 
F6L00260 
F6L00270 



WRITE 

24 

25 

26 

27 

28 

29 

136 

3 

FR4 

PCI 

PC3 

PGBK 

PC3 

L3 

PC4 

PCI 

PC3 

PC4 

PC5 

PC6 

PC2 

3 

PCI 

PC2 

PC3 

PC4 

PC5 

PC6 

L18»l 

ZERO 

B4»l*l 



4 

18 

000004000000 



REWIND TAPE 3 

STORE PUNCH IN COL 1,4 IN DECREMENT OF PCI 
DECREMENT CONTAINS LENGTH OF TRANSFER VECTOR. 
ADD LENGTH OF LOWER STORAGE IN ADDRESS. 

TWOS COMPLEMENT OF LENGTH OF UPPER 
STORAGE IN ADDRESS. 

COMPUTE CHECK. SUM* 



AND STORE IT IN PC 2. 

WRITE PROGRAM CARD ONTO TAPE 3. 

PUNCH IN COL. ONE* WD. COUNT IN DECR. 9L. 

CHECK SUM. 9R. „ -*. „«..<»« 

LENGTH OF TRANS. VECS LENGTH. OF LOWER STORAGE *F6L00280 
2S COMP. OF UPPER STORAGE. 8R. F6L00290 

NAME OF SUBROUTINE (ZEROS IF MAIN PROGRAM). 7L.F6L003O0 

ENTRY POINT. 7R E!!"S2«n 

FILL REST OF CARD WITH ZEROS. F6L00320 

F6L0O330 
F6L00340 
F6L00350 

GO TO LOADER, It^OollO 

F6L00380 
F6L0O390 



<l 



RST 2»1 



01^00 
01401 
01402 
01403 

01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 

01460 
01461 
01462 
01463 
01464 
01465 
01466 
01467 
01470 
01471 
01472 
01473 
01474 
01475 
01476 
01477 
01500 
01501 
01502 
01503 
01504 
01505 
01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 



56000 
60000 
53400 
53400 



00174 
01400 
01412 
00037 
01413 
01413 



34000 2 01654 

1 77776 1 00102 

02000 01410 

1 77776 1 00101 
-0 50000 2 02114 

02000 4 00002 
-3 00174 2 01404 
00100 00020 
01460 
000000212343 
000000212424 
000000212444 
000000214362 
000000214521 
000000214562 
000000215162 
000000226263 
000000232124 
000000232143 
000000232162 
000000232626 
000000233062 
000000234321 
000000234344 
000000234362 
000000234644 
000000234770 
000000242363 
000000246530 
000000246547 
000000256344 
000000262124 
000000262430 
000000262447 
000000264447 
000000264651 
000000266222 
000000266525 
00000030^751 
000000306351 



OPRT 



OPRF 

OPRL 
OPRS 



EOU 
ORG 
LDQ 
STQ 
LXA 
LXD 

CAS 
TXI 
TRA 
TXI 
CAL 
TRA 
TXL 



************* FORTRAN II SECTION SIX ******************** 
FORTRAN 2 RECORD 112 - OP TABLES. 

CONTROL ENTERS THIS RECORD DURING SECOND PASS OF CIT TAPE 

TABLE OF SHARE OPERATION CODES 

124 

SOPR 

OPRL 

SRCH 

0PRS»1 

0PRS.2 



ORG 
OPTBL BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 
BCD 



SYM0P»2 

LOWER »lt~2 

OPRF 

RAlSE»l»-2 

ABS0P*2 

2f4 

0PRT.2#N 

16»0»64 

SYMOP-N 

1000ACL 

1000ADD 

1000 ADM 

1000ALS 

1000ANA 

1000ANS 

1000ARS 

1000BST 

1000CAD 

1000CAL 

1000CAS 

1000CFF 

1000CHS 

1000CLA 

1000CLM 

1000CLS 

1000COM 

1000CPY 

1000DCT 

1000DVH 

1000DVP 

1000ETM 

1000FAD 

1000FDH 

1000FDP 

1000FMP 

1000FOR 

1000FSB 

1000FVE 

1000HPR 

1000HTR 



STORE NEW INSTRUCTION IN SRCH. 

SET XR1 EQUAL 16* 
SET XR2 EQUAL 64. 
DOES OP COMPARE. 

NOt SELECT NEW OP FROM OP TABLE. 

YES* GO TO OPRF TO SELECT ABSOLUTE OP. 

SELECT ABSOLUTE OP AND RETURN 

TO PROGRAM. 



**#*F6M00010 
F6M00011 
F6M00012 

• F6M00013 
F6M00014 
F6M00020 
F6M00030 
F6M00040 
F6M00050 
F6M00060 
F6M00070 
F6M00080 
F6M00081 
F6M00090 
F6M00100 
F6M00110 
F6M00120 
F6M00130 
F6M00140 
F6M00150 
F6M00160 
F6M00170 
F6M00180 
F6M00190 
F6M00200 
F6M00210 
F6M00220 
F6M00230 
F6M00240 
F6M00250 
F6M00260 
F6M00270 
F6M00280 
F6M00290 
F6M00300 
F6M00310 
F6M00320 
F6M00330 
F6M00340 
F6M00350 
F6M00360 
F6M00370 
F6M00380 
F6M00390 
F6M00400 
F6M00410 
F6M00420 
F6M00430 
F6M00440 
F6M00450 
F6M00460 
F6M00470 
F6M00480 



<j - 



u 



u 



01517 
01520 
01521 
01522 
01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01540 
01541 
01542 
01543 
01544 
01545 
01546 
01547 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01600 
01601 
01602 
01603 
01604 



000000314624 
000000432263 
000000432421 
000000432450 
000000432743 
000000434362 
000000435162 
000000436344 
000000436721 
000000436724 
00000 444645 
000000444751 
000000444770 
000000446225 
000000446330 
000000446366 
000000447125 
000000454647 
000000456351 
000000465121 
000000465162 
000000472167 
000000472263 
000000472467 
000000474645 
000000476225 
000000476330 
000000476366 
000000476724 
000000477125 
000000512324 
000000512451 
000000512462 
000000512566 
000000514524 
000000514751 
000000515043 
000000516322 
000000516324 
000000516363 
000000606060 
000000622244 
000000623167 
000000624326 
000000624345 
000000624350 
000000624363 
000000624366 
000000624751 
000000624763 
000000624764 
000000626244 
000000626247 
000000626321 



BCD 1000 I 00 
BCD 1000LBT 
BCD 1000LDA 
BCD 1000LDQ 
BCD 1000LGL 
BCD 1000LLS 
BCD 1000LRS 
BCD 1000LTM 
BCD 1000LXA 
BCD 1000LXD 
BCD 1000MON 
BCD 1000MPR 
BCD 1000MPY 
BCD 1000MSE 
BCD 1000MTH 
BCD 1000MTW 
BCD 1000MZE 
BCD 1000NOP 
BCD 1000NTR 
BCD 10000RA 
BCD 1000ORS 
BCD 1000PAX 
BCD 1000PBT 
BCD 1000PDX 
BCD 1000 PON 
BCD 1000PSE 
BCD 1000PTH 
BCD 1000PTW 
BCD 100QPXD 
BCD 1000PZE 
BCD 1000RCD 
BCD 1000RDR 
BCD 1000RDS 
BCD 1000REW 
BCD 1000RND 
BCD 1000RPR 
BCD 1000RQL 
BCD 1000RTB 
BCD 1000RTD 
BCD 1000RTT 
BCD 1000 
BCD 1000SBM 
BCD 1000SIX 
BCD 1000SLF 
BCD 1000SLN 
BCD 1000SLQ 
BCD 1000SLT 
BCD 1000SLW 
BCD 1000SPR 
BCD 1000SPT 
BCD 1000SPU 
BCD 1000SSM 
BCD 1000SSP 
BCD 1000STA 



F6M00490 

F6M00500 

F6M00510 

F6M00520 

F6M00530 

F6M00540 

F6M00550 

F6M00560 

F6M00570 

F6M00580 

F6M00590 

F6M00600 

F6M00610 

F6M00620 

F6M00630 

F6M00640 

F6M00650 

F6M00660 

F6M00670 

F6M00680 

F6M00690 

F6M00700 

F6M00710 

F6M00720 

F6M00730 

F6M00740 

F6M00750 

F6M00760 

F6M00770 

F6M00780 

F6M00790 

F6M00800 

F6M00810 

F6M00820 

F6M00830 

F6M00840 

F6M00850 

F6M00860 

F6M00870 

F6M00880 

F6M00890 

F6M00900 

F6M00910 

F6M00920 

F6M00930 

F6M00940 

F6M00950 

F6M00960 

F6M00970 

F6M00980 

F6M00990 

F6M01000 

F6M01010 

F6M01020 



01605 


000000626324 


01606 


000000626346 


01607 


000000626347 


01610 


000000626350 


01611 


000000626371 


01612 


000000626422 


01613 


000000626545 


01614 


000000626663 


01615 


000000626724 


01616 


000000633167 


01617 


000000634350 


01620 


000000634431 


01621 


000000634546 


01622 


000000634567 


01623 


000000634571 


01624 


000000634665 


01625 


000000634743 


01626 


000000635046 


01627 


000000635047 


01630 


000000635121 


01631 


000000636267 


01632 


000000636351 


01633 


000000636730 


01634 


000000636731 


01635 


000000636743 


01636 


000000637125 


01637 


000000642621 


01640 


000000642644 


01641 


000000642662 


01642 


000000662451 


01643 


000000662526 


01644 


000000664751 


01645 


000000664764 


01646 


000000665162 


01647 


000000666322 


01650 


000000666324 


01651 


000000666362 


01652 


000000666365 


01653 


000000673163 




01720 


01720 


+036100000000 


01721 


+040000000000 


01722 


+040100000000 


01723 


+076700000000 


01724 


-032000000000 


01725 


+032000000000 


01726 


+077100000000 


01727 


+076400000200 


01730 


-070000000000 


01731 


-050000000000 


01732 


+034000000000 


01733 


+076000000030 


01734 


+076000000002 


01735 


+050000000000 



BCD 1000STD 

BCD 1000STO 

BCD 1000STP 

BCD 1000STQ 

BCD 1000ST2 

BCD 1000SUB 

BCD 1000SVN 

BCD 1000SWT 

BCD 1000SXD 

BCD 1000TIX 

BCD 1000TLQ 

BCD 1000TMI 

BCD 1000TNO 

BCD 1000TNX 

BCD 1000TNZ 

BCD 10Q0T0V 

BCD 1000TPL 

BCD 1000TQO 

BCD 1000TQP 

BCD 1000TRA 

BCD 1000TSX 

BCD 1000TTR 

BCD 1000TXH 

BCD 1000TXI 

BCD 1000TXL 

BCD 1000TZE 

BCD 1000UFA 

BCD 1000UFM 

BCD 1000UFS 

BCD 1000WDR 

BCD 1000WEF 

BCD 1000WPR 

BCD 1000WPU 

BCD 1000WRS 

BCD 1000WTB 

BCD 1000WTD 

BCD 1000WTS 

BCD 1000WTV 

BCD 1000XIT 

ORG ABSOP-N 

OCT +036100000000 

OCT +040000000000 

OCT +040100000000 

OCT +076700000000 

OCT -032000000000 

OCT +032000000000 

OCT +077100000000 

OCT +076400000200 

OCT -070000000000 

OCT -050000000000 

OCT +034000000000 

OCT +076000000030 

OCT +076000000002 

OCT +050000000000 



ACL 
ADD 
ADM 
ALS 
ANA 
ANS 
ARS 
BST 
CAD 
CAL 
CAS 
CFF 
CAS 
CLA 



F6M01030 
F6M01040 
F6M01050 
F6M01060 
F6M01070 
F6M01080 
F6M01090 
F6M01100 
F6M01110 
F6M01120 
F6M01130 
F6M01140 
F6M01150 
F6M01160 
F6M0117O 
F6M01180 
F6M01190 
F6M01200 
F6M01210 
F6M01220 
F6M01230 
F6M01240 
F6M01250 
F6M01260 
F6M01270 
F6M01280 
F6M01290 
F6M01300 
F6M01310 
F6M01320 
F6M01330 
F6M01340 
F6M01350 
F6M01360 
F6M01370 
F6M01380 
F6M01390 
F6M01400 
F6M01410 
F6M01420 
F6M01430 
F6M01440 
F6M01450 
F6M01460 
F6M01470 
F6M01480 
F6M01490 
F6M01500 
F6M01510 
F6M01520 
F6M01530 
F6M01540 
F6M01550 
F6M01560 



tf 



u 



u 



01736 +076000000000 

01737 +050200000000 

01740 +076000000006 

01741 +070000000000 

01742 +076000000012 

01743 +022000000000 

01744 +022100000000 

01745 +076000000007 

01746 +030000000000 

01747 +024000000000 

01750 +024100000000 

01751 +026000000000 

01752 -000000000000 

01753 +030200000000 

01754 -100000OO0000 

01755 +042000000000 

01756 +000000000000 

01757 +076600000333 

01760 +076000000001 

01761 +046000000000 

01762 +056000000000 

01763 -076300000000 

01764 +076300000000 

01765 +076500000000 

01766 -076000000007 

01767 +053400000000 

01770 -053400000000 

01771 -100000000000 

01772 -020000000000 

01773 +020000000000 

01774 -076000000000 

01775 -300000000000 

01776 -200000000000 

01777 -000000000000 

02000 +076100000000 

02001 +100000000000 

02002 -050100000000 

02003 -060200000000 

02004 +073400000000 

02005 -076000000001 

02006 -073400000000 

02007 +100000000000 

02010 +076000000000 

02011 +300000000000 

02012 +200000000000 

02013 -075400000000 

02014 +000000000000 

02015 +076200000321 

02016 +076200000300 

02017 +076200000000 
02020 +077200000200 
.02021 +076000000010 

02022 +076200000361 

02023 -077300000000 



OCT +076000000000 
OCT +050200000000 
OCT +076000000006 
OCT +070000000000 
OCT +076000000012 
OCT +022000000000 
OCT +022100000000 
OCT +076000000007 
OCT +030000000000 
OCT +024000000000 
OCT +024100000000 
OCT +026000000000 
OCT -OOOQOOOOOOOO 
OCT +030200000000 
OCT -100000000000 
OCT +042000000000 
OCT +000000000000 
OCT +076600000333 
OCT +076000000001 
OCT +046000000000 
OCT +0 56000000000 
OCT -076300000000 
OCT +076300000000 
OCT +076500000000 
OCT -0760GOQOG007 
OCT +053400000000 
OCT -053400000000 
OCT -100000000000 
OCT -020000000000 
OCT +020000000000 
OCT -076000000000 
OCT -300000000000 
OCT -200000000000 
OCT -000000000000 
OCT +076100000000 
OCT +100000000000 
OCT -050100000000 
OCT -060200000000 
OCT +073400000000 
OCT -076000000001 
OCT -073400000000 
OCT +1000OO000O00 
OCT +076000000000 
OCT +300000000000 
OCT +200000000000 
OCT -075400000000 
OCT +000000000000 
OCT +076200000321 
OCT +076200000300 
OCT +076200000000 
OCT +077200000200 
OCT +076000000010 
OCT +076200000361 
OCT -077300000000 



CLM 
CLS 
COM 
CPY 
DCT 
DVH 
DVP 
ETM 
FAD 
FDH 
FDP 
FMP 
FOR 
FSB 
FVE 
HPR 
HTR 
IOD 
LBT 
LDA 
LDQ 
LGL 
LLS 
LRS 
LTM 
LXA 
LXD 
MON 
MPR 
MPY 
MSE 
MTH 
MTW 
M2E 
NOP 
NTR 
ORA 
ORS 
PAX 
PBT 
PDX 
PON 
PSE 
PTH 
PTW 
PXD 
PZE 
RCD 
RDR 
RDS 
REW 
RND 
RPR 
RQL 



F6M01570 
F6M01580 
F6M01590 
F6M01600 
F6M01610 
F6M01620 
F6M01630 
F6M01640 
F6M01650 
F6M01660 
F6M01670 
F6M016S0 
F6M01690 
F6M01700 
F6M01710 
F6M01720 
F6M01730 
F6M01740 
F6M01750 
F6M01760 
F6M01770 
F6M01780 
F6M01790 
F6M01800 
F6M01810 
F6M01820 
F6M01830 
F6M01840 
F6M01850 
F6M01860 
F6M01870 
F6M01880 
F6M01890 
F6M01900 
F6M01910. 
F6M01920 
F6M01930 
F6M01940 
F6M01950 
F6M01960 
F6M01970 
F6M01980 
F6M01990 
F6M02O00 
F6M02010 
F6M02020 
F6M02030 
F6M02040 
F6M02050 
F6M02060 
F6M02070 
F6M02080 
F6M02090 
F6M02100 



'. V 



02024 +076200000220 

02025 +076200000200 

02026 -076000000012 

02027 +000000000000 

02030 -040000000000 

02031 -200000000000 

02032 +076000000140 

02033 +076000000140 

02034 -062000000000 

02035 -076000000140 

02036 +060200000000 
0203/ +076000000360 

02040 +076000000360 

02041 +076000000340 

02042 -076000000003 

02043 +076000000003 

02044 +062100000000 

02045 +062200000000 

02046 +060100000000 

02047 +063000000000 

02050 -060000000000 

02051 +060000000000 

02052 +040200000000 

02053 -300000000000 

02054 +076000000160 

02055 -063400000000 

02056 +200000000000 

02057 +004000000000 

02060 -012000000000 

02061 -014000000000 

02062 -200000000000 

02063 -010000000000 

02064 +014000000000 

02065 +012000000000 

02066 +016100000000 

02067 +016200000000 

02070 +002000000000 

02071 +007400000000 

02072 +002100000000 

02073 +300000000000 

02074 +100000000000 

02075 -300000000000 

02076 +010000000000 

02077 -Q3000000000Q 

02100 -026000000000 

02101 -030200000000 

02102 +076600000300 

02103 +077000000200 

02104 +076600000361 

02105 +076600000341 

02106 +076600000000 

02107 +076600000220 

02110 +076600000200 

02111 +076600000320 



OCT +076200000220 
OCT +076200000200 
OCT -076000000012 
OCT +000000000000 
OCT -040000000000 
OCT -200000000000 
OCT +076000000140 
OCT +076000000140 
OCT -062000000000 
OCT -076000000140 
OCT +060200000000 
OCT +076000000360 
OCT +076000000360 
OCT +076000000340 
OCT -076000000003 
OCT +076000000003 
OCT +062100000000 
OCT +062200000000 
OCT +060100000000 
OCT +063000000000 
OCT -060000000000 
OCT +060000000000 
OCT +040200000000 
OCT -300000000000 
OCT +076000000160 
OCT -063400000000 
OCT +200000000000 
OCT +004000000000 
OCT -012000000000 
OCT -014000000000 
OCT -200000000000 
OCT -010000000000 
OCT +014000000000 
OCT +012000000000 
OCT +016100000000 
OCT +016200000000 
OCT +002000000000 
OCT +007400000000 
OCT +002100000000 
OCT +300000000000 
OCT +100000000000 
OCT -300000000000 
OCT +010000000000 
OCT -030000000000 
OCT -026000000000 
OCT -030200000000 
OCT +076600000300 
OCT +077000000200 
OCT +076600000361 
OCT +076600000341 
OCT +076600000000 
OCT +076600000220 
OCT +076600000200 
OCT +076600000320 



RTB 
RTD 
RTT 

SBM 
SIX 
SLF 
SLN 
SLQ 
SLT 
SLW 
SPR 
SPT 
SPU 
SSM 
SSP 
STA 
STD 
STO 
STP 
STQ 
STZ 
SUB 
SVN 
SWT 
SXD 
TIX 
TLQ 
TMI 
TNO 
TNX 
TNZ 
TOV 
TPL 
TQO 
TOP 
TRA 
TSX 
TTR 
TXH 
TXI 
TXL 
TZE 
UFA 
UFM 
UFS 
WDR 
WEF 
WPR 
WPU 
WRS 
WTB 
WTD 
WTS 



F6M02110 
F6M02120 
F6M02130 
F6M02140 
F6M02150 
F6M02160 
F6M02170 
F6M02180 
F6M02190 
F6M02200 
F6M02210 
F6M02220 
F6M02230 
F6M02240 
F6M02250 
F6M02260 
F6M02270 
F6M02280 
F6M02290 
F6M02300 
F6M02310 
F6M02320 
F6M02330 
F6M02340 
F6M02350 
F6M02360 
F6M02370 
F6M02380 
F6M02390 
F6M02400 
F6M02410 
F6M02420 
F6M02430 
F6M02440 
F6M02450 
F6M02460 
F6M02470 
F6M02480 
F6M02490 
F6M02500 
F6M02510 
F6M02520 
F6M02530 
F6M02540 
F6M02550 
F6M02560 
F6M02570 
F6M02580 
F6M02590 
F6M02600 
F6M02610 
F6M02620 
F6M02630 
F6M02640 



u 



u 



02112 +076600000030 

02113 +002100000000 

01400 



OCT +076600000030 
OCT +002100000000 
END SOPR 



WTV 
XIT 



F6M02650 
F6M02660 
F6M02670 



tf 



AST 



00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

00220 

00221 

00222 

00223 

00224 

00225 

00226 

00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 

00240 

00241 

00242 

00243 

00244 

00245 

00246 

00247 

00250 

00251 

00252 

00253 

00254 

00255 

00256 

00257 

00260 

00261 

00262 

00263 

00264 

00265 

00266 

00267 



77200 
50000 
62100 
62100 
-0 75400 
60100 
60100 
53400 
02000 



76400 



00001 
07400 
42000 
76200 
53400 
70000 
00001 
02000 
77100 
77100 
76000 
02000 
63400 
53400 



-0 63400 4 



00210 

00204 

00170 

00332 

00554 

00000 

00166 

00167 

00224 

00225 

00204 

00225 

00004 

00005 

00224 

00164 

01256 

00227 

00571 

00377 

00377 

00012 

00221 

00565 

00164 

0056 



50000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
-0 75400 
60100 
60100 
60100 
50000 
76500 
34000 
02000 
02000 
34000 
02000 
02000 
50000 
10000 
76500 



01257 
00727 
01256 
00726 
01255 
00730 
01254 
00731 
00000 
00174 
00732 
00733 
00726 
00022 
00721 
00265 
00513 
00723 
00265 
00513 
00730 
00341 
00036 



ERR 



RDC 
RD 

RD1 






SA1 



****** *****i 

FORTRAN 2 

SECOND PASS 

ORG 136 

REW 4 

CLA LIFN 

STA SA9 

STA SL9 

PXD 

STO LI 

STO L2 

LXA RDC»2 

TRA RO 

BST 4 

TIX RD*2*1 

TSX 4*4 

HPR 5 

RTB 4 

LXA ADDRt4 

CPY REC-2»4 

TXI RD1*4»1 

TRA EOF 
ARS 255 
ARS 255 
RTT 

TRA ERR 
SXD RD2»4 
LXD ADDR»4 
SXD RD3»4 
CLA REC-1»4 
STO SL 
CLA REC-2»4 
STO OP 
CLA REC-3»4 
STO SA 
CLA REC-4>4 
STO RA 
PXD 

STO EA 
STO RBIT 
STO CBIT 
CAL OP 
LRS 18 
CAS OCT 
TRA SA1 
TRA DATOP 
CAS BCD 
TRA SA1 
TRA DATOP 
CAL SA 
TZE OPCAS 
LRS 30 



f* FORTRAN II SECTION SIX ************* 
RECORD 113 - SECOND PASS OF CIT TAPE 

OVER CIT TAPE 

REWIND TAPE 4* 

STORE IFN TABLE ADDRESS* 



CLEAR LI AND L2. 

SET READ ERROR COUNTER. 

READ-ERROR PROCEDURE 



READ RECORD OF 
CIT TAPE 4* 



SELECT 

SYMBOLIC LOCATION* 

SYMBOLIC OP* 

SYMBOLIC ADDRESS* 

RELATIVE ADDRESS. 

CLEAR EA* 

RBIT* 

CBIT. 

OP EQUAL OCT TEST. 

YES OP EQUAL OCT. TRANSFER TO DATOP. 
OP EQUAL BCD TEST. 

YES OP EQUAL BCD. TRANSFER TO DATOP. 

OP NOT BCD OR OCT. 

TRANSFER TO OPCAS IF SA EQUAL 0. 



*********** F6N000 10 
• F6N00011 

F6N00012 
F6N00020 
F6N00030 
F6N00040 
F6N00050 
F6N00060 
F6N00070 
F6N00080 
F6N0O090 
F6N00100 
F6N00110 
F6N00120 
F6N00130 
F6N00140 
F6N00150 
F6N00160 
F6N00170 
F6N00180 
F6N00190 
F6N00200 
F6N00210 
F6N00220 
F6N00230 
F6N00240 
F6N00250 
F6N00260 
F6N00270 
F6N00280 
F6N00290 
F6N00300 
F6NO0310 
F6N00320 
F6N00330 
F6N00340 
F6N00350 
F6N00360 
F6N00370 
F6N00380 
F6N00390 
F6N00400 
F6N00410 
F6N00420 
F6N00430 
F6N00440 
F6N00450 
F6N00460 
F6N00470 
F6N00480 
F6N00490 
F6N005O0 
F6N00510 



{,<< 



o 



o 



00270 





10000 





00323 




TZE 


SA3 


00271 





73400 


4 


ooooo 




PAX 


0*4 


00272 


3 


00017 


4 


00301 




TXH 


SA4»4*15 


00273 


3 


00016 


4 


00335 




TXH 


SA8»4*14 


00274 


-0 


77300 





00016 


SA6 


RQL 


14 


00275 


-0 


76300 





00021 




LGL 


17 


00276 





07400 


4 


00121 


SA7 


TSX 


STIV»4 


00277 





07400 


4 


00004 




TSX 


4#4 


00300 





02000 





00336 




TRA 


SA2 


00301 





50000 





00730 


SA4 


CLA 


SA 


00302 





40200 





00321 




SUB 


D0L1 


0O3O3 





10000 





00314 




TZE 


LIB10 


00304 





40000 





00321 




ADO 


D0L1 


00305 





40200 





00322 




SUB 


D0L2 


00306 





10000 





00316 




TZE 


LIB11 


00307 





50000 





00730 




CLA 


SA 


00310 





07400 


4 


00142 




TSX 


SDEV»4 


00311 





07400 


4 


00103 




TSX 


STEV*4 


00312 





07400 


4 


00004 




TSX 


4*4 


00313 





02000 





00336 




TRA 


SA2 


00314 





50000 





00204 


LIB10 


CLA 


DOLSI 


00315 





02000 





00336 




TRA 


SA2 


00316 





50000 





00204 


LIB11 


CLA 


DOLSI 


00317 





77100 





00022 




ARS 


18 


00320 





02000 





00336 




TRA 


SA2 


00321 


536000000000 


D0L1 


BCD 


1$ 0000 


00322 


535360000000 


D0L2 


BCD 


1$$ 000 


00323 





53400 


4 


00730 


SA3 


LXA 


SA»4 


00324 


-3 


00000 


4 


00331 




TXL 


SA5»4.0 


00325 


-0 


76300 





00015 




LGL 


13 


00326 


-0 


77300 





00012 




RQL 


10 


00327 


-0 


76300 





00006 




LGL 


6 


00330 





02000 





00276 




TRA 


SA7 


00331 


-0 


53400 


4 


00730 


SA5 


LXD 


SA*4 


00332 





50000 


4 




SA9 


CLA 


IFN»4 


00333 





77100 





00022 




ARS 


18 


00334 





02000 





00336 




TRA 


SA2 


00335 





50000 





00166 


SA8 


CLA 


LI 


00336 





62100 





00174 


SA2 


STA 


EA 


00337 





50000 





00163 




CLA 


TWO 


00340 





60100 





00732 




STO 


RBIT 


00341 


-0 


50000 





00726 


OPCAS 


CAL 


OP 


00342 





76500 





00022 




LRS 


18 


00343 





34000 





00720 




CAS 


SYN 


00344 





02000 





00351 




TRA 


ORDOP 


00345 





02000 





00515 




TRA 


SYNQP 


00346 





34000 





00722 




CAS 


BSS 


00347 





02000 





00351 




TRA 


ORDOP 


00350 





02000 





00503 




TRA 


BSSOP 


00351 





07400 


4 


01400 


ORDOP 


TSX 


S0PR»4 


00352 





07400 


4 


00004 




TSX 


4*4 


00353 





60200 





00734 




SLW 


WORD 


00354 





50000 





00731 




CLA 


RA 



TRANSFER IF SAU) EQUAL ZERO. 

TRANSFER IF SAU) GREATER THAN 15. 

TRANSFER IF SAU) EQUAL 15. 

SA(1) LESS THAN 15. ASSEMBLE SYMBOL AND GO 

OBTAIN LOC FROM 

TIV. 

ERROR IF NOT IN TIV* 

SAU) GREATER THAN 15. 

SA(1) GREATER THAN 15 

TRANSFER IF SA EQUAL DOLl OR D0L2. 



OBTAIN LOC FROM 

TEV OR DEV. 

ERROR IF NOT IN DEV OR TEV. 

LOCATION FROM ADDRESS OF DOLSI. 



LOCATION FROM DECREMENT OF DOLSI. 



SA<1) EQUAL ZERO. 

IFN TEST. TRANSFER TO OBTAIN RELOCAT. LOC. 

IFN*WITH RELATIVE LOCATION. ASSEMBLE SYMBOL 
ADDRESS AND GO 
OBTAIN LOC FROM TIV. 

OCTAIN LOC FROM 
IFN TABLE. 



SA(1> EQUAL 15 # SET LOCATION EQUAL Lit 
STORE LOCATION IN ADDRESS OF EA. 
SET RBIT AS RELOCATABLE. 

ALL OPS NOT OCT OR BCD. 

TEST FOR OP EQUAL SYN OR BSS. 

TRANSFER TO SYNOP IF OP EQUAL SYN. 

TRANSFER TO BSSOP IF OP EQUAL BSS. 
SEARCH FOR OP. 
ERROR IF NOT FOUND. 
STORE OCT OP. 
COMPUTE ADDRESS EQUAL 



F6N00520 
F6N0O530 
F6N00540 
F6N00550 
F6N00560 
F6N00570 
F6N00580 
F6N00590 
F6N00600 
F6N00610 
F6N00620 
F6N00630 
F6N00640 
F6N00650 
F6N00660 
F6N00670 
F6N00680 
F6N00690 
F6N00700 
F6N00710 
F6N0072O 
F6N00730 
F6N00740 
F6N00750 
F6N00760 
F6N00770 
F6N00780 
F6N00790 
FROMF6N00800 
F6N00801 
F6N00810 
F6N00820 
F6N00830 
F6N00840 
F6N00850 
F6N00860 
F6N00870 
F6N00880 
F6N00890 
F6N00900 
F6N00910 
F6N00920 
F6N00930 
F6N00940 
F6N00950 
F6N00960 
F6N00970 
F6N00980 
F6N00990 
F6N01000 
F6N01010 
F6N01020 
F6N01030 
F6N01040 



IC 



f,<l 



00355 

00356 

00357 

00360 

00361 

00362 

00363 

00364 

00365 

00366 

00367 

00370 

00371 

00372 

00373^0 

00374 

00375 

00376 

00377 

00400 

00401 

00402 

00403 

00404 -0 

00405 

00406 -0 

00407 

00410 -0 

00411 
00412 
00413 
00414 
00415 

00416 -0 

00417 2 

00420 

00421 

00422 -0 

00423 -0 

00424 -0 

00425 

00426 

00427 

00430 1 

00431 -0 

00432 -0 

00433 

00434 

00435 1 

00436 -0 

00437 -0 

00440 1 

00441 -0 

00442 



77100 
40000 
60100 
50000 
40200 
12000 
50000 
40200 
12000 
02000 
50000 
76500 
02000 
50000 
60100 
02000 
50000 
12000 
40000 
76500 
10000 
50000 
60100 
50000 
76500 
50000 
76300 
50100 
60200 
50000 
60100 
40000 
60100 
53400 
00001 
50000 
62200 
53400 
75400 
63400 
62200 
60200 
60200 
77776 
63400 
53400 
50000 
60100 
77777 
63400 
53400 
00002 
63400 
50000 



00022 
00174 
00735 
00174 
00176 
00375 
00735 
00176 
00372 
00367 
00735 
00017 
00404 
00162 
00733 
00367 
00735 
00400 
00724 
00017 
00404 
00162 
00733 
00731 
00003 
00726 
00022 
00734 
00734 
00166 
00167 
00162 
00166 
00512 
00431 
00461 
00512 
00502 
00000 
00501 
00514 
00736 
00737 
00433 
00512 
00502 
00734 
00736 
00436 
00502 
00514 
00441 
00514 
00732 



LIB50 
LIB40 
COMM 
TA 

TG 

STORE 

RLCPU 



RLC2 
RLC4 

RLC5 

RLC7 



ARS 
ADD 
STO 
CLA 
SUB 
TPL 
CLA 
SUB 
TPL 
TRA 
CLA 
LRS 
TRA 
CLA 
STO 
TRA 
CLA 
TPL 
ADD 
LRS 
TZE 
CLA 
STO 
CAL 
LRS 
CAL 
LLS 
ORA 
SLW 
CLA 
STO 
ADD 
STO 
LXD 
TIX 
CLA 
STD 
LXD 
PXD 
SXD 
STD 
SLW 
SLW 
TXI 
•SXD 
LXD 
CLA 
STO 
TXI 
SXD 
LXD 
TXI 
SXD 
CLA 



18 

EA 

TEST1 

EA 

PGBK 

COMM 

TEST1 

PGBK 

LIB40 

LIB50 

TEST1 

15 

TG 

ONE 

CBIT 

LIB50 

TEST1 

TA 

TAG 

15 

TG 

ONE 

CBIT 

RA 

3 

OP 

18 

WORD 

WORD 

LI 

L2 

ONE 

LI 

RLC1.4 

RLC2»4»1 

RLC3 

RLC1 

WCT.4 

RLC8.4 

RLC6 

ABL»4 

ABRt4 

RLC4.4.-2 

RLC1.4 

WCT.4 

WORD 

ABL.4 

RLC5.4.-1 

WCT.4 

RLC6.4 

RLC7.4.2 

RLC6t4 

RBIT 



TO LOC« PLUS RELATIVE ADDRESS. 

SAVE ADDRESS IN TEST 1 
LOCATION GREATER THAN PGBK 

YES* TRANSFER 

NO. SEE IF 

ADDRESS GREATER THAN PGBK. 

YES. GO TO STORE ONE IN CBIT 

NO. CBIT*0 



STORE 1 IN CBIT 



IF NEG MAKE COMP 
TEST FOR COMP 
ADDRESS. 

INDICATE COMP DATA. 
COMBINE TAG* BINARY 
DECREMENT. ADDRESS. AND 
OP. 



STORE INSTRUCTION. 

UPDATE PROG CTR 
AND PROGRAM BREAK 
FOR ALL OPS. 

MODIFY RLC4. 

TRANSFER IF RLC1 NOT ZERO. 

RLC1 IS ZERO SO 

INITIALIZE IT TO 20. 

SET INDEX REGISTER 4. DECREMENT OF 

RLC8 AND RLC6 EQUAL ZERO. 

SET ABL AND ABR EQUAL ZERO. 



MODIFY WORD COUNT. 

SAVE LENGTH OF CARD COUNT. 

STORE INSTRUCTION IN ABL BLOCK 

MODIFY WORD COUNT 

SAVE NEW WORD COUNT. 

MODIFY RELOCATION BITS 

COUNT. 

SAVE RELO. BITS COUNT. 

TEST RELOCATION BIT. 



F6N01050 
F6N01060 
F6N01070 
F6N01080 
F6N01090 
F6N01100 
F6N01110 
F6N01120 
F6N01130 
F6N01140 
F6N01150 
F6N01160 
F6N01170 
F6N01180 
F6N01190 
F6N01200 
F6N01210 
F6N01220 
F6N01230 
F6N01240 
F6N01250 
F6N01260 
F6N01270 
F6N01280 
F6N01290 
F6N01300 
F6N01310 
F6N01320 
F6N01330 
F6N01340 
F6N01350 

PAMQI »A Q 

F6N01370 
F6N01380 
F6N01390 
F6N01400 
F6N01410 
F6N01420 
F6N01430 
F6N01440 
F6N01450 
F6N01460 
F6N01470 
F6N01480 
F6N01490 
F6N01500 
F6N01510 
F6N01520 
F6N01530 
F6N01540 
F6N01550 
F6N01560 
F6N01570 
F6N01580 



u- 



o 



u 



r\ 





00443 


10000 00455 




TZE 


RLCC 




00444 


-0 50100 00733 




ORA 


CBIT 




00445 


1 00001 4 00446 




TX1 


RLCB.4.1 




00446 


-0 63400 4 00514 


RLCB 


SXD 


RLC6»*> 




00447 


76500 00043 




LRS 


35 




00450 


-0 76300 4 00110 




LGL 


72#4 




00451 


-0 53400 4 00501 




LXD 


RLC8.4 




00452 


-0 60200 4 00736 




ORS 


ABL»4 




00453 


-0 76300 00044 




LGL 


36 




00454 


-0 60200 4 00737 




ORS 


ABR.4 




00455 


-0 53400 4 00514 


RLCC 


LXD 


RLC6.4 




00456 


3 00104 4 00462 




TXH 


ST8.4.68 




00457 


-0 53400 4 00502 




LXD 


WCTt4 




00460 


-3 77622 4 00464 


ST2 


TXL 


ST3.4.-110 




00461 


1 00024 00521 


RLC3 


TXI 


SLS»0*20 




00462 


-0 53400 4 00502 


ST8 


LXD 


WCT»4 


D 


00463 


-3 00000 4 00475 




TXL 


ST4»4 




00464 


-0 75400 4 00000 


ST3 


PXD 


0*4 




00465 


76000 00006 




COM 






00466 


-0 73400 4 00000 




PDX 


0*4 




00467 


1 00736 4 00470 




TXI 


STD»4tABL 




00470 


-0 63400 4 00473 


STD 


SXD 


ST5»4 




00471 


-0 63400 4 00473 




SXD 


ST5»4 




00472 


07400 4 00600 




TSX 


ABPCHt4 




00473 


00000 00736 


ST5 




ABL 




00474 


42000 00000 


ST6 


HPR 






00475 


50000 00166 


ST4 


CLA 


Ll 




00476 


62100 00474 




STA 


ST6 


T 


00477 


-0 63400 00502 




SXD 


WCT 


T 


00500 


-0 63400 00512 




SXD 


RLC1 


TD 


00501 


1 00000 00521 


RLC8 


TXI 


SLS 




00502 


00000 00000 


WCT 


HTR 







00503 


50000 00166 


BSSOP 


CLA 


Ll 




00504 


60100 00167 




STO 


L2 




00505 


50000 00731 




CLA 


RA 




00506 


10000 00521 




TZE 


SLS 




00507 


77100 00022 




ARS 


18 




00510 


40000 00166 




ADD 


Ll 




00511 


60100 00166 




STO 


Ll 


TD 


00512 


1 00000 00462 


RLC1 


TXI 


ST8 




00513 


-0 50000 00730 


DATOP 


CAL 


SA 


TD 


00514 


1 00000 00411 


RLC6 


TXI 


STORE 




00515 


50000 00174 


SYNOP 


CLA 


EA 




00516 


60100 00167 




STO 


L2 




00517 


-0 10000 00521 




TNZ 


SLS 




00520 


07400 4 00004 




TSX 


4f4 




00521 


-0 50000 00727 


SLS 


CAL 


SL 




00522 


10000 00563 




TZE 


SL6 




00523 


76500 00036 




LRS 


30 




00524 


10000 00535 




TZE 


SL1 




00525 


73400 4 00000 




PAX 


Ot4 




00526 


3 00017 4 00552 




TXH 


SL2.4.15 




00527 


3 00016 4 00563 




TXH 


SL3.4.14 




00530 


-0 77300 00016 




ROL 


14 



TRANSFER IF ZERO* 
MODIFY RELOC. BITS COUNT 



MAKE ABR AND ABL RELATIVE BY 
STORING RELOCATION BITS. 
STORE RELO BITS 



TEST IF TOO MANY RELOCATABLE 

BITS TO PUNCH COMPLETE CARD. YES* TRANSFER. 

N0» TEST END OF PUNCH BLOCK.. 

IF BLOCK FULL» TRANSFER TO ST 3. 

RETURN TO GET SL 

TEST WCT FOR ZERO. 

COMPUTE LAST ADDRESS 

IN BLOCK (UNCOMPLEMENT WORD COUNT) # 



SAVE IT. 

EXIT TO PUNCH CARD 



SET ADDRESS PART OF 

ST6 TO PROGRAM BREAK. 

SET WCT. RLC1 TO 

ZERO. 

RETURN TO GET SL. 

OP IS BSS. 

STORE PROGRAM COUNTER* 
UPDATE PROG BREAK. 
AND GO TO PUNCH 
ACARD IF NECESSARY. 
STORE NEW ADDRESS 
FOR LOADING* 

OCT OR BCD OP. 

OP IS SYN. 

SET PROG CTR EQUAL ADDRESS 



ALL OPS. TEST SL 
TRANSFER IF SL IS ZERO. 

TRANSFER IF SL(l) EQUAL ZERO. 

SL(1) GREATER THAN 15. 

SL(1) EQUAL 15. 

SL(1> LESS THAN 15. ASSEMBLE SYMBOL AND GO 



F6N01590 
F6N01600 
F6N01610 
F6N01620 
F6N01630 
F6N01640 
F6N01650 
F6N01660 
F6N01670 
F6N01680 
F6N01690 
F6N01700 
F6N01710 
F6N01720 
F6N01730 
F6N01740 
F6N01750 
F6N01760 
F6N01770 
F6N01780 
F6N01790 
F6N01800 
F6N01810 
F6N01820 
F6N01830 
F6N01840 
F6N01850 
F6N01860 
F6N01870 
F6N01880 
F6N01890 
F6N01900 
F6N01910 
F6N01920 
F6N01930 
F6N01940 
F6N01950 
F6N01960 
F6N01970 
F6N01980 
F6N01990 
F6N02000 
F6NO2010 
F6N02020 
F6N02030 
F6N02040 
F6N02O5O 
F6N02060 
F6N02070 
F6N02080 
F6N02090 
F6N02100 
F6N02110 
F6N02120 



LL >/ 





00531 


-0 


76300 





00021 




LGL 


17 




00532 





07400 


4 


00121 




TSX 


STlVt4 




00533 





02000 





00563 




TRA 


SL6 




00534 





02000 





00556 




TRA 


SL4 




00535 





53400 


4 


00727 


SL1 


LXA 


SL#4 


D 


00536 


-3 


00000 


4 


00553 




TXL 


SL7»4 




00537 


-0 


76300 





00015 




LGL 


13 




00540 


-0 


77300 





00012 




RQL 


10 




00541 


-0 


76300 





00006 




LGL 


6 




00542 





07400 


4 


00121 




TSX 


STIV*4 




00543 





02000 





00563 




TRA 


SL6 




00544 





62100 





00174 




£TA 


EA 




00545 





50000 





00174 




CLA 


EA 




00546 


-0 


10000 





00560 




TNZ 


SL5 




0054? 





50000 





00167 


SL8 


CLA 


L2 




00550 





62100 


2 


02114 




STA 


TIV»2 




00551 





02000 





00563 




TRA 


SL6 




00552 





02000 





00563 


SL2 


TRA 


SL6 




00553 


-0 


53400 


4 


00727 


SL7 


LXD 


SL»4 


U 


00554 





50000 


4 




SL9 


CLA 


IFN»4 




00555 





77100 





00022 




ARS 


18 




00556 





62100 





00174 


SL4 


STA 


EA 




00557 





50000 





00174 




CLA 


EA 




00560 





40200 





00167 


SL5 


SUB 


L2 




00561 





10000 





00563 




TZE 


SL6 




00562 





07400 


4 


00004 




TSX 


4#4 


A 










00563 


SL3 


BSS 




A 










00563 


SL6 


BSS 






00563 


-0 


53400 


4 


00567 




LXD 


RD3*4 




00564 


1 


00004 


4 


00565 




TXI 


RD2»4t4 




00565 


-3 


00000 


4 


00240 


RD2 


TXL 


RD4»4»** 




00566 





53400 


2 


00224 




LXA 


RDC»2 




00567 


1 


00000 





00225 


RD3 


TXI 


RD»0»** 




00570 





00000 





00000 


TEST6 


HTR 







00571 





50000 





00574 


EOF 


CLA 


LBT 




00572 





60100 





00475 




STO 


ST4 




00573 





02000 





00462 




TRA 


ST8 


TO 


00574 


1 


00000 





00575 


LBT 


TXI 


EOT 




00575 





77200 





00204 


EOT 


REW 


4 




00576 





76200 





00221 




RTB 


1 




00577 





02000 





00004 




TRA 


4 




00600 


-0 


50000 


4 


00001 


ABPCH 


CAL 


1»4 




00601 





62200 





00645 




STD 


PCH1 




00602 





77100 





00022 




ARS 


18 




00603 





40000 





00645 




ADD 


PCH1 




00604 





62100 





00617 




STA 


PCH2 




00605 





62100 





00635 




STA 


PCH3 




00606 


-0 


*0OOQ 


4 


00001 




SBM 


1»4 




00607 





10000 


4 


00002 




TZE 


2t4 




00610 


-0 


12000 


4 


00002 




TMI 


2»4 




00611 





73400 


1 


00000 




PAX 


0*1 




00612 





50000 


4 


00002 




CLA 


2»4 




00613 





76600 





00223 


PCH8 


WTB 


3 




00614 





62100 





00646 




STA 


VR 



SEE IF ITS IN TIV. 

NOT IN TABLE. 

IN TABLE. GO STORE LOCATION IN EA. 

SLQ) EQUAL ZERO. TEST ADDRESS PART OF SL. 

ZERO. EXIT TO GET IFN LOCATION. 

NOT ZERO. ASSEMBLE SYMBOL 

AND GO SEARCH TIV TABLE. 



NOT IN TIV TABLE » SO TRANSFER. 

IN TIV TABLE. RETURN WITH LOCATION 

IN ADDRESS. TEST ADDRESS. 

TRANSFER IF NOT ZERO. 

ZERO. PUT L2 IN TIV TABLE AS LOCATION. 



IFN LOCATION. 



CHECK STORED LOCATION (FROM TIV). 

EQUAL PROG CTR 
IF NOT EQUAL TO L2t GO TO ERROR HALT. 



MODIFY TO GET NEW CIT. 



SET RETURN OF ST4 TO EOT. 

IF NECESSARY ON END OF 
FILE 

REWIND TAPE 4 AND RETURN TO LOADER. 



to Punch card. 

COMPUTE LAST ADDRESS PLUS ONE* AND 
TOTAL WORD COUNT. 



GO TO HALT IF WORD COUNT LESS 
THAN ONE. 

OBTAIN FIRST ADDRESS. 
SELECT TAPE THREE. 
SET LOADING ADDRESS. 



F6N02130 

F6N02140 

F6N02150 

F6N02160 

F6N02170 

F6N02180 

F6N02190 

F6N02200 

F6N02210 

F6N02220 

F6N02230 

F6N02240 

F6N02250 

F6N02260 

F6N02270 

F6N02280 

F6N02290 

F6N02300 

F6N02310 

F6N02320 

F6N02330 

F6N02340 

F6N02350 

F6N02360 

F6N02370 

F6N02380 

F6N02390 

F6N02400 

F6N02410 

F6N02420 

F6N02430 

F6N02440 

F6N02450 

F6N02460 

F6N02470 

F6N02480 

F6N02490 

F6N02500 

F6N02510 

F6N02520 

F6N02530 

F6N02540 

F6N02550 

F6N02560 

F6N02570 

F6N02580 

F6N0259O 

F6N02600 

F6N02610 

F6N02620 

F6N02630 

F6N02640 

F6N0265O 

F6N02660 



(J 



(J 



ATD 



TD 



00615 





76000 





00000 




CLM 




00616 





53400 


2 


00645 




LXA 


PCH1#2 


00617 





36100 


1 


00000 


PCH2 


ACL 


0*1 


00620 


3 


00025 


2 


00623 




TXH 


PCH5*2*21 


00621 


-2 


00001 


1 


00623 




TNX 


PCH5*1»1 


00622 


1 


00001 


2 


00617 




TXI 


PCH2»2»1 


00623 


-0 


63400 


2 


00633 


PCH5 


SXD 


PCH6*2 


00624 


1 


77776 


2 


00625 




TXI 


PCHR»2t-2 


00625 


-0 


63400 


2 


00646 


PCHR 


SXD 


VR»2 


00626 





36100 





00646 




ACL 


VR 


00627 





60200 





00647 




SLW 


SUM 


00630 





70000 





00646 




CPY 


VR 


00631 





70000 





00647 




CPY 


SUM 


00632 


1 


00002 


2 


00633 




TXI 


PCH6*2*2 


00633 


1 


00000 


1 


00634 


PCH6 


TXI 


PCH9*1 


00634 


1 


77777 


1 


00635 


PCH9 


TXI 


PCH3»1»-1 


00635 





70000 


1 


00000 


PCH3 


CPY 


0»1 


00636 


2 


00001 


2 


00634 




TIX 


PCH9*2#1 


00637 





50000 





00646 


PCH7 


CLA 


VR 


00640 





77100 





00022 




ARS 


18 


00641 





40000 





00646 




ADD 


VR 


00642 


2 


00001 


1 


00613 




TIX 


PCH8»1#1 


00643 





76600 





00333 




I0D 




00644 





02000 


4 


00003 




TRA 


3*4 


00645 





00000 





00001 


PCH1 


HTR 


1 


00646 


2 


00000 





00000 


VR 


TIX 




00647 





00000 





00000 


SUM 


HTR 













00613 


WRS1 


SYN 


PCH8 










00650 




BSS 


40 


00720 


000000627045 


SYN 


BCD 


1000SYN 


00721 


000000462363 


OCT 


BCD 


10O0OCT 


00722 


000000226262 


BSS 


BCD 


1000B5S 


00723 


000000222324 


BCD 


BCD 


1000BCD 


00724 





00000 


4 


00000 


TAG 


HTR 


0»4 


00725 


2 


00000 





00000 


TCD 


TIX 





00726 





00000 





00000 


OP 


HTR 





00727 





00000 





00000 


SL 


HTR 





00730 





00000 





00000 


SA 


HTR 





00731 





00000 





00000 


RA 


HTR 





00732 





00000 





00000 


RBIT 


HTR 





00733 





00000 





00000 


CBIT 


HTR 





00734 





00000 





00000 


WORD 


HTR 





00735 





00000 





00000 


TEST1 


HTR 













00736 


ABL 


BSS 


1 










00737 


ABR 


BSS 


109 










01260 


REC 


BES 


100 










01260 


RLP 


SYN 


REC 










00000 




END 












00001 


IFN 







FORM CHECK SUM. 
STORE WORD COUNT* 
STORE CHECK SUM. 

COPY RECORD ONTO TAPE THREE. 

COMPUTE LOADING ADDRESS FOR NEXT CARD. 

RETURN TO PROGRAM* 



F6N02670 
F6N02680 
F6N02690 
F6N02700 
F6N02710 
F6N02720 
F6N02730 
F6N02740 
F6NO2750 
F6N02760 
F6N02770 
F6N02780 
F6N02790 
F6N02800 
F6N02810 
F6N02820 
F6N02830 
F6N02840 
F6N02850 
F6N02860 
F6N02870 
F6NO2880 
F6N02890 
F6N02900 
F6N02910 
F6N02920 
F6N02930 
F6N02940 
F6N02950 
F6N02960 
F6N02970 
F6N02980 
F6N02990 
F6N03000 
F6N03010 
F6N03O2O 
F6N03030 
F6N03040 
F6N03050 
F6N03060 
F6N03O7O 
F6N03080 
F6N03090 
F6N03100 
F6N03110 
F6N03120 
F6N03130 
F6N03140 



trf-i 



AST 



















FORTRAN 


















LIBRARY 












00030 


PCI 


SYN 


24 












00036 


SUBIN 


SYN 


30 


M 










02114 


ABSOP 


SYN 


1100 


M 










00162 


ONE 


SYN 


114 


M 






• 




00177 


SW1 


SYN 


127 


M 










02114 


TRB 


SYN 


ABSOP 


M 










00203 


SW5 


SYN 


131 


M 










00163 


TWO 


SYN 


115 


M 










00161 
00210 


ZERO 


SYN 
ORG 


113 
136 




00210 





53400 


1 


00544 




LXA 


RDC1 




00211 





76200 





00303 


D5 


RDR 


3 


T 


00212 


^0 


75400 





00000 


A4 


PXD 







00213 





46000 





00212 




LDA 


A4 




00214 


-0 


70000 





03133 




CAD 


TVR-1 




00215 





76000 





00006 




COM 






00216 


-0 


70000 





01001 




CAD 


SUM 




00217 





76000 





00006 




COM 






00220 





10000 





00223 




TZE 


D4 




00221 


2 


00001 


1 


00211 




TIX 


D5,l»l 




00222 





07400 


4 


00774 




TSX 


0UTERt4 




00223 


-0 


53400 


1 


03133 


D4 


LXD 


TVR-1,1 


D 


00224 


-3 


00000 


1 


00475 




TXL 


WEF»1 




00225 





53400 


2 


00544 




LXA 


RDC2 




00226 





76200 





00303 


A5 


RDR 


3 


T 


00227 


-0 


75400 





00002 


A6 


PXD 


2 




00230 





46000 





00227 




LDA 


A6 




00231 


-0 


70000 


1 


03133 


A7 


CAD 


TVR-1,1 




00232 


2 


00001 


1 


00231 




TIX 


A7.1.1 




00233 





70000 





01001 




CPY 


SUM 




00234 





76000 





00006 




COM 






00235 


-0 


70000 





01001 




CAD 


SUM 




00236 





76000 





00006 




COM 






00237 





10000 





00242 




TZE 


A8 




00240 


2 


00001 


2 


00226 




TIX 


A5»2»l 




00241 





07400 


4 


00774 




TSX 


0UTER»4 


M 


00242 





50000 





00203 


A8 


CLA 


SW5 


M 


00243 





34000 





00162 




CAS 


ONE 




00244 





02000 





00247 




TRA 


Al 




00245 





02000 





00252 




TRA 


A3 




00246 





02000 





00463 




TRA 


FINI 




00247 





76000 





00165 


Al 


SWT 


5 




00250 





02000 





00463 




TRA 


FINI 




00251 





02000 





00252 




TRA 


A3 




00252 





76200 





00221 


A3 


RTB 


1 




00253 





60000 





01002 


A10 


STZ 


RCT 




00254 





60000 





01003 




STZ 


LIBCT 


M 


00255 





50000 





00162 




CLA 


ONE 




00256* 





60100 





01004 




STO 


PASCT 




00257 





60000 





01005 


L00P1 


STZ 


CTF 



RECORD 115 - LIBRARY SEARCH. 



SEARCH 



SET DRUM READ ERROR COUNTER. 
SELECT DRUM 3 (TRANSFER VECTOR TABLE). 
TRANSFER VECTOR 

READ WORD COUNT OF TABLE INTO TVR-1. 



NO READ ERROR. 



F6P00010 
F6P00020 
F6P00030 
F6P00040 
F6P00050 
F6P00060 
F6P00070 
F6P00080 
F6P00090 
F6P00100 
F6P00110 
F6P00120 
F6P00130 
F6P00140 
F6P00150 
F6P00160 
F6P00170 
F6P00180 
F6P00190 
F6P00200 
F6P00210 
F6P00220 
F6P00230 
F6P00240 
SET INDEX REG 1 WITH WORD CT. OF TRANS. VECTOR. F6P00250 

IFNO TRANSFER VECTOR* GO TO W.E.F. £ 6 «°S™ 

F6P00270 

F6P00280 

READ TRANSFER F6P00290 

VECTOR INTO STORAGE, FIRST SUBROUTINE^NAME INTOF6P00300 

F6P00320 
F6P00330 
F6P00340 
F6P00350 
F6P00360 
F6P00370 
F6P00380 
F6P00390 
F6P00400 
F6P00410 
F6P00420 
F6P00430 
F6P00440 
F6P00450 
F6P00460 
F6P00470 
F6P00480 
F6P00490 
F6P00500 
F6P00510 
F6P00520 
F6P00530 



TVR-l-WD COUNT, LAST SUBR. NAME INTO TVR-2, 



TEST CHECK SUM. 



CHECK SUM OKAY. 

GO TO TEST SENSE SWITCH FIVE. 

1 IN SW5 MEANS ASSUME SENSE SWITCH 5 DOWN 

IN SW5 MEANS ASSUME SENSE SWITCH 5 IS UP. 

SENSE SWITCH 5 TEST. 

UP. 

DOWN. __„ 

SPACE TAPE1 OVER EOF (THAT IS, OVER SYSTEM). 



6!'/ 



u 



(J 



00260 


_07400-4" 


00537 


All 


TSX 


SUB1»4 


00261 


' 


02000 





00433 




TRA 


EOF 


00262 





50000 





01327 




CLA 


BUFF-1 


00263 


-0 


12000 





00265 




TMI 


A12 


00264 





02000 





00260 




TRA 


All 


00265 





62200 





00335 


A12 


STD 


A18 


00266 





62200 





00303 




STD 


A15 


00267 


-0 


53400 


1 


01007 




LXD 


FR4»1 


00270 





50000 





01325 




CLA 


BUFF-3 


00271 





62200 





01006 




STD 


VLENG 


00272 


-0 


53400 


2 


03133 


A16 


LXD 


TVR-1,2 


00273 





50000 


1 


01326 




CLA 


BUFF-2,1 


00274 


-0 


12000 





00302 




TMI 


SEC 


00275 





50000 


1 


01327 




CLA 


BUFF-1,1 


00276 





3400 


2 


03133 


A14 


CAS 


TVR-1,2 


00277 





02000 





00301 




TRA 


A13 


00300 





02000 





00305 




TRA 


EQ 


00301 


2 


00001 


2 


00276 


A13 


TIX 


A14»2,l 


00302 


1 


00002 


1 


00303 


SEC 


TXI 


A15,l,2 


00303 


-3 


00303 


1 


00272 


A15 


TXL 


A16*l»* 


00304 





02000 





00260 




TRA 


All 


00305 





07400 


4 


00760 


EO 


TSX 


ERASE»4 


00306 


-0 


63400 


1 


00322 




5X0 


EQ2»1 


00307 





53400 


4 


01003 


EQ4 


LXA 


LIBCT»4 


00310 





50000 


1 


01327 




CLA 


BUFF-1 #1 


00311 





60100 


4 


03607 




STO 


LlBF-1,4 


00312 





50000 





01003 




CLA 


LIBCT 


00313 





40000 





00162 




ADD 


ONE 


00314 





60100 





01003 




STO 


LIBCT 


00315 





50000 





01005 




CLA 


CTF 


00316 





40000 





00162 




ADD 


ONE 


00317 





60100 





01005 




STO 


CTF 


00320 


-3 


00004 


1 


00323 




TXL 


EQ3»1»4 


00321 


1 


77776 


1 


00307 




TXI 


EQ4»lt-2 


00322 





00000 





00000 


EQ2 


HTR 





00323 


-0 


53400 


1 


00322 


EQ3 


LXD 


EQ2»1 


00324 





02000 





00334 




TRA 


A18-1 


00325 


-0 


53400 


2 


03133 


A19 


LXD 


TVR-1,2 


00326 





50000 


1 


01327 




CLA 


BUFF-1,1 


00327 





34000 


2 


03133 


A17 


CAS 


TVR-1,2 


00330 





02000 





00332 




TRA 


NO 


00331 





02000 





00337 




TRA 


YES 


00332 


2 


00001 


2 


00327 


NO 


TIX 


A17»2»l 


00333 





07400 


4 


00506 


A20 


TSX 


LIBEN»4 


00334 


1 


00002 


1 


00335 




TXI 


A18»l»2 


00335 


-3 


00335 


1 


00325 


A18 


TXL 


A19»l»* 


00336 





02000 





00342 




TRA 


A21 


00337 





07400 


4 


00760 


YES 


TSX 


ERASE ,4 


00340 





50000 


1 


01327 




CLA 


BUFF-1 »1 


00341 





02000 





00333 




TRA 


A20 



READ TAPE1 RECORD. F6P00550 

rfturn HERE IF END OF FILE reruusju 

RETURN AT END OF RECORD TO EXAMINE FIRST WORD. F6P00560 

PROG. CARD TEST. FIRST WORD IS MINUS ON PROG. F6P00570 

CARD. 

NOT A PROGRAM CARD. GO TO READ ANOTHER RECORD 

PROGRAM CARD. . wr ^ A _ 

SAVE LENGTH OF RECORD (BITS 4-18 HAVE NO. OF 

WORDS IN RECORD EXCLUDING 9-ROW. 

SAVE LENGTH OF 

TRANSFER VECTOR (ROW 8 DECREMENT). 



TEST FOR PRIMARY NAME ON PROG CARD. 
NOT PRIMARY NAME. 

YESt PRIMARY NAME. SELECT NAME AND 
COMPARE IT TO NAME IN TRANSFER VECTOR. 



F6P00580 
F6P00590 
F6P00600 
F6P00610 
F6P00620 
F6P00630 
F6P00640 
F6P00650 
F6P00660 
F6P00670 
F6P00680 
F6P00690 
F6P00700 
F6P00710 
F6P00720 
F6P00730 



FOUND ROUTINE* GO TO EQ. 

NOT EQUAL* GO TO SELECT NEXT TR. VEC. NAME. 

NOT FOUND. GO TO TEST NEXT WORD ON CARD. c ™„, /n 

ANY MORE WORDS ON PROG. CARD. IF YES, TRANSFER. F6P00 740 

NO MORE PRI. NAMES ON CARD. GO READ NEXT REC. F6P00750 

OF LIBRARY TAPE. „, AnlI - 

WHEN PRIM. NAME ON PROG. CARD EQUALS VARIABLE 

NAME IN TRANS. VEC.» GO ERASE NAME FROMTVR. 

SET XR4 EQUAL NO. OF LIB. ROUTINES FOUND. 

ENTER NAME OF FOUND SUBROUTINE IN LIBF TABLE. 

AND ERASE NAME FROM 

TVR TABLE 
UPDATE LIBCT 



F6P00760 
F6P00770 
F6P00780 
F6P00790 
F6P0Q800 
F6P00810 
F6P00820 
F6P00830 
F6P00840 
F6P00850 
F6 POO 860 
F6P00870 
F6P00880 
F6P00890 
F6P00900 
F6P00910 
F6P00920 
F6P00930 
F6P00940 
F6P00950 
F6P00960 
TRANSFER F6P00970 

NOTTEST FOR InY MORE NAMES IN TR. VECTOR. YES.F6P00980 
TRANSFER rorO0?VU 

NO, GO ENTER NAME IN LIBF IF NOT ALREADY THERE.F6P01000 
INCREMENT PROG CARD COUNTER BY 2 , Jl™?;^ 

THIS IS SET BY A12, CONTAINS NO. OF WORDS ON F6P01020 

PenrRAM fARD rOrUiU5U 

TRaSs. WHEN ILL NAMES ON CARD HAVE BEEN CHECKEDF6P01040 
ERASE NAME FROM TRANSFER VECTOR TABLE. cton^An 

SELECT SUBROUTINE NAME AND GO ^ ?? 6 .J 

ENTER IT IN LIBF. F6P01070 



UPDATE CTP. 

OTHER NAMES ON CARD. NO, TRANSFER. 

YES, GO ENTER IN LIBF. 



OF THIS ROUTINE 
SELECT NAME ON PROGRAM CARD 
IS IT CALLED FOR BY TRANSFER VECTOR. 



V* 



00342 


-0 


53400 


2 


00303 


A21 


LXD 


A15»2 


00343 


3 


00026 


2 


00400 




TXH 


EXCAD»2*2 


00344 





07400 


4 


00523 




TSX 


WRITE. 4 


00345 





00002 





00000 




HTR 


0*0*2 


00346 





07400 


4 


00537 


B13 


TSX 


SUB1»4 


00347 





02000 





00433 




TRA 


EOF 


00350 





50000 





01006 


X3 


CLA 


VLENG 


00351 





10000 





00356 




TZE' 


A22 


00352 





34000 





01012 




CAS 


L20D 


00353 





02000 





00365 




TRA 


X2 


00354 





02000 





00355 




TRA 


XI 


00355 





07400 


4 


00613 


XI 


TSX 


LO0P3»4 


00356 





07400 


4 


00523 


A22 


TSX 


WRITE»4 


00357 





00004 


( 


00000 




HTR 


f 0*4 


00360 





07400 


4 


00537 


LOOP 2 


TSX 


auBl»4 


00361 





02000 





00433 




TRA 


EOF 


00362 





50000 





01327 




CLA 


BUFF-1 


00363 


-0 


12000 





00265 




TMI 


A12 


00364 





02000 





00356 




TRA 


A22 


00365 





40200 





01012 


X2 


SUB 


L20D 


00366 





60100 





01006 




STO 


VLENG 


00367 





50000 





01012 




CLA 


L20D 


00370 





07400 


4 


00613 




TSX 


LO0P3»4 


00371 





07400 


4 


00523 




TSX 


WRITE»4 


00372 





00004 





00000 




HTR 


0*0*4 


00373 





07400 


4 


00537 




TSX 


SUB1»4 


00374 





02000 





00433 




TRA 


EOF 


00375 





50000 





01327 




CLA 


BUFF-1 


00376 





12000 





00350 




TPL 


X3 


00377 





07400 


4 


00774 


ERROR 


TSX 


0UTER»4 


00400 





50200 





01013 


EXCAD 


CLS 


L22D 


00401 





60100 





01327 


B9 


STO 


BUFF-1 


00402 





07400 


4 


00647 




TSX 


CHSUM»4 


00403 





07400 


4 


00523 




TSX 


WRITE*4 


00404 





00002 





00000 




HTR 


0*0*2 


00405 


-0 


75400 


2 


00000 




PXD 


0*2 


00406 





40200 





01013 




SUB 


L22D 


00407 


-0 


12000 





00346 




TMI 


B13 


00410 


-0 


73400 


2 


00000 




PDX 


0*2 


00411 





40200 





01000 




SUB 


ONEDE 


00412 





62200 





00417 




STO 


B001 


00413 


-0 


53400 


1 


00162 




LXD 


ONE*! 


00414 





50000 


1 


01277 


BOO 


CLA 


BUFF-25»1 


00415 





60100 


1 


01325 




STO 


BUFF-3»1 


00416 


1 


00001 


1 


00417 




TXI 


BOOltltl 


00417 


-3 


00417 


1 


00414 


B001 


TXL 


BOO»1»* 


00420 


-3 


00025 


2 


00423 




TXL 


B8»2*21 


00421 





50200 





01013 




CLS 


L220 


00422 





02000 





00401 




TRA 


B9 



TRANSFER IF PROG, CARD HAS MORE THAN 22 WORDS. 
WRITE PROG CARD ON TAPE 3 

READ RECORD FROM LIB* TAPE 

EOF. 

WD. CT* OF TRANS. VEC. OF LIBRARY SUBROUTINE. 

IF NO TRANSFER VECTOR* GO TO WRITE. 



GO TO X2 IF TRANS VEC. OF LIB. 
THAN 20* 



SUBR. GREATER 



F6P01080 
F6P01090 
F6P01100 
F6P01110 
F6P01120 
F6P01130 
F6P01140 
F6P01150 
F6P01160 
F6P01170 
F6P0 1-180 



GO TO XI IF TRANS VEC OF LIB. SUBR LESS THAN ORF6P01190 



EQUAL 20. „,^ 

GO SEARCH LIBF FOR SUB-SUBROUTINE NAME* ETC. 
GO WRITE TRANS. VECT. RECORD ON TAPE 3* 

GO READ NEW RECORD FROM LIBRARY TAPE. 

EOF ON LIBRARY TAPE. 

TEST FOR PROGRAM CARD. 

YES* PROG CARD. TRANSFER. 

NO* GO TO WRITE CARD ON TAPE THREE. 

TO TREAT 20 AT A TIME. 



SEARCH FOR SUB+SUBROUT 
ENTER IN TVR TABLE. 
WRITE RECORD ON TAPE 3 



IN LIBF. IF NOT THERE* 



READ NEXT RECORD FROM LIB TAPE 

EOF 

IS IT A PROG. CARD. 

NO* GO PROCESS TRANS. VEC 

YES. ERROR. 

TO WRITE FIRST CARD OG PROG. CARD. 

COMPUTE CHECK SUM. 
WRITE IT ON TAPE 3. 
BLANKS 



MORE THAN 22 WORDS. 

NO* GO TO B13. 

YES* DECREMENT WD. CT. BY 22 AND STORE 

INDEX REGISTER 2. 



IT IN 



MOVE INFO. READ FROM LIB. TAPE UP IN BUFFER* 



F6P0120O 
F6P01210 
F6P01220 
F6P01230 
F6P01240 
F6P01250 
F6P01260 
F6P01270 
F6P01280 
F6P01290 
F6P01300 
F6P01310 
F6P01320 
F6P01330 
F6P01340 
F6P01350 
F6P01360 
F6P01370 
F6P01380 
F6P01390 
F6P01400 
F6P01410 
F6P01420 
F6P01430 
F6P01440 
F6P01450 
F6P01460 
F6P01470 
F6P01480 
F6P01490 
F6P01500 
F6P01510 
F6P01520 
F6P01530 
F6P01540 
F6P01550 
F6P01560 
F6P01570 
F6PO1580 
F6P01590 
F6P01600 
F6P01610 



u 



o 



M 



00423 


-0 


75400 


2 


00000 


B8 


PXD 


0*2 


00424 


-0 


73400 


1 


ooooo 




PDX 


Of 1 


0042 5 





60000 


1 


01325 


612 


STZ 


BUFF-3»1 


00426 


1 


00001 


1 


00427 




TXI 


BllAlfl 


00427 


-3 


00026 


1 


00425 


Bll 


TXL 


B12»l»22 


00430 


-0 


75400 


2 


00000 




PXD 


0*2 


00431 


-0 


76000 





00003 




SSM 




00432 





02000 





00401 




TRA 


89 


00433 





50000 





01004 


EOF 


CLA 


PASCT 


00434 





40200 





00162 




SUB 


ONE 


00435 





10000 





00440 




TZE 


Dl 


00436 





50000 





01005 




CLA 


CTF 


00437 





10000 





00451 




TZE 


D3 


00440 





50000 





01004 


Dl 


CLA 


PASCT 


00441 





40000 





00162 




ADO 


ONE 


00442 





60100 





01004 




STO 


PASCT 


00443 





53400 


1 


01002 




LXA 


RCT»1 


00444 


1 


00001 


1 


00445 




TXI 


02.1*1 


00445 





76400 





00201 


02 


BST 


1 


00446 


2 


00001 


1 


00445 




TIX 


D2fl#l 


00447 





60000 





01002 




STZ 


RCT 


00450 





02000 





00257 




TRA 


L00P1 


00451 





53400 


1 


01003 


D3 


LXA 


LIBCT.1 


00452 


-3 


00000 


1 


00463 




TXL 


FINI.1 


00453 





07400 


4 


00573 




TSX 


SPACE? 4 


00454 





00024 





00734 






FOUND* • 20 


00455 


-0 


53400 


2 


00676 




LXD 


LNC»2 


00456 





50000 


1 


03610 


09 


CLA 


LIBF.l 


00457 





60100 





01015 




STO 


NAME 


00460 





07400 


4 


00656 




TSX 


SUB2>4 


00461 


2 


00001 


1 


00456 




TIX 


09.1*1 


00462 





07400 


4 


00576 




TSX 


WLL.4 


00463 


-0 


53400 


1 


03133 


FINI 


LXD 


TVR-1#1 


00464 


-3 


00000 


1 


00475 




TXL 


WEF.l 


00465 





07400 


4 


00573 




TSX 


SPACE *4 


00466 





00024 





00760 






L0ST..20 


00467 


-0 


53400 


2 


00676 




LXD 


LNC»2 


00470 





50000 


1 


03133 


D10 


CLA 


TVR-ltl 


00471 





60100 





01015 




STO 


NAME 


00472 





07400 


4 


00656 




TSX 


SUB2.4 


00473 


2 


00001 


1 


00470 




TIX 


D10»l*l 


00474 





07400 


4 


00576 




TSX 


WLL»4 


00475 





77200 





00201 


WEF 


REW 


1 


00476 





50000 





00036 




CLA 


SUBIN 


00477 


-0 


10000 





00502 




TNZ 


Yl 


00500 





76600 





00223 




WTB 


3 


00501 





70000 





00505 




CPY 


TCD 


00502 





77000 





00203 


Yl 


WEF 


3 


00503 





77200 





00203 




REW 


3 


00504 


Q 


02000 





03634 




TRA 


RECO 


00505 


-0 


00000 





00000 


TCO 


MZE 




00506 





53400 


2 


01003 


LIBEN 


LXA 


LIBCTv-2 



IF NECESSARY 

AND FILL IN ZEROES IF NECESSARY. 



TRANSFER IF ONLY ONE SEARCH 

END OF SEARCH TEST 

CTF IS ZERO IF NO SUBROUTINE FOUND IN SEARCH. 

PREPARE FOR ANOTHER 

SEARCH* 

CHARACTER. 

SET XR1 EQUAL NO. OF RECORDS READ FROM LIB. 

TAPE. 

BACK SPACE TAPE THAT MANY RECORDS. 

SET RCT EQUAL ZERO AND 60 START SEARCH 

ANY SUBROUTINES FOUND 

NO* GO TO FINI. 

YESt GO WRITE? SUBROUTINES PUNCHED 

FROM LIBRARY ON TAPE TWO. 

SET RECORD LENGTH TAPE TWO EQUAL 20. 

SELECT SUBROUTINE NAME. 

GO CONVERT AND WRITE IT IN T-2 BUFFER (WRITING 

OFF WHEN NECESSARY) 

TRANSFER IF MORE SUBR. NAMES* 

GO WRITE FINAL RECORD ON TAPE TWO. 

ANY TRANSFER VECTOR. 

NOi GO TO WEF. 

YES* GO WRITE SUBROUTINES NOT PUNCHED FROM 

LIBRARY. 

RESET TAPE TWO RECORD LENGTH TO 20* 

SELECT NAME IN TVR TABLE. 

GO WRITE IT IN TAPE TWO BUFFER. 

TRANSFER IF ANY MORE NAMES IN TVR TABLE. 
GO WRITE FINAL RECORD. 

TO SEE IF MAIN PROGRAM 

NO* GO TO WRITE END OF FILE 

YES. SO 

WRITE TRANSFER CARD ON TAPE 3 

WRITE END OF FILE MARK ON TAPE 3* 



ENTER WITH SUBR. NAME IN ACC. 



F6P01620 
F6P01630 
F6P01640 
F6P01650 
F6P01660 
F6P01670 
F6P01680 
F6P01690 
F6P01700 
F6P01710 
F6P01720 
F6P01730 
F6P01740 
F6P01750 
F6P01760 
F6P01770 
F6P01780 
F6P0179O 
F6P01800 
F6P01810 
F6P01820 
F6P01830 
F6P01840 
F6P01850 
F6P01860 
F6P01870 
F6P01880 
F6P01890 
F6P01900 
F6P01910 
F6P01920 
F6P01930 
F6P01940 
F6P01950 
F6P01960 
F6P01970 
F6P01980 
F6P01990 
F6P02000 
F6P02Q10 
F6P02020 
F6P02030 
F6P02040 
F6PO2O50 
F6P02060 
F6P02070 
F6P02080 
F6P02090 
F6P02100 
F6P02110 
F6P02120 
F6P02130 
F6P02140 
F6P02150 



W 



00507 


-0 63400 


2 00515 




SXD 


LIBA»2 


00510 


-0 53400 


2 01000 




LXD 


0NEDE»2 


00511 


34000 


2 03610 


LIBC 


CAS 


LIBF>2 


00512 


02000 


00514 




TRA 


LIBB 


00513 


02000 


4 00001 




TRA 


lt4 


00514 


1 00001 


2 00515 


LIBB 


TXI 


LIBA»2»1 


00515 


•3 00515 


2 00511 


LIBA 


TXL 


LIBC»2»* 


00516 


60100 


2 03610 




STO 


LIBF.2 


00517 


50000 


01003 




CLA 


LIBCT 


00520 


40000 


00162 




ADO 


ONE 


00521 


60100 


01003 




STO 


LIBCT 


00522 


02000 


4 00001 




TRA 


1.4 


00523 


76600 


00223 


WRITE 


WTB 


3 


00524 


50000 


4 00001 




CLA 


1«4 


00525 


62200 


00527 




STD 


WR4 


00526 


-0 53400 


1 01327 




LXD 


BUFF-U1 


00527 


1 00000 


1 00530 


WR4 


TXI 


WR3.1.** 


00530 


-0 63400 


1 00534 


WR3 


SXD 


WRltl 


00531 


53400 


1 00162 




LXA 


ONE.l 


00532 


70000 


1 01330 


WR2 


CPY 


BUFF.l 


00533 


1 00001 


1 00534 




TXI 


WRltltl 


00534 


-3 00030 


1 00532 


WR1 


TXL 


WR2tl*24 


00535 


76600 


00333 




IOD 




00536 


02000 


4 00002 




TRA 


2*4 


00537 


53400 


2 00544 


SUB1 


LXA 


RDC.2 


00540 


02000 


00545 




TRA 


RD 


00541 


76400 


00201 


ERR 


BST 


1 


00542 


2 00001 


2 00545 




TIX 


RD.2tl 


00543 


07400 


4 00774 




TSX 


0UTER#4 


00544 


42000 


00005 


RDC 


HPR 


5 


00545 


76200 


00221 


RD 


RTB 


1 


00546 


-0 53400 


1 00162 




LXD 


ONEtl 


00547 


70000 


1 01327 


SUBA 


CPY 


•BUFF-1.1 


00550 


1 00001 


1 00547 




TXI 


SUBA»1»1 


00551 


02000 


4 00001 




TRA 


1»4 


00552 


77100 


00377 




ARS 


255 


00553 


77100 


00377 




ARS 


255 


00554 


-0 76000 


00012 




RTT 




00555 


02000 


00541 




TRA 


ERR 


00556 


50000 


01002 




CLA 


RCT 


00557 


40000 


00162 




ADD 


ONE 


00560 


60100 


01002 




STO 


RCT 


00561 


02000 


4 00002 




TRA 


2»4 


00562 


50000 


4 00001 


PRINT 


CLA 


1»4 


00563 


-0 73400 


2 00000 




PDX 


0*2 


00564 


-3 00000 


2 00572 




TXL 


NONE * 2 


00565 


76600 


00202 


D7 


WTD 


2 


00566 


62100 


00567 




STA 


POOP 


00567 


70000 


2 00567 


POOP 


CPY 


*»2 


00570 


2 00001 


2 00567 




TIX 


P00P.2.1 


00571 


76600 


00333 




IOD 




00572 


02000 


4 00002 


NONE 


TRA 


2.4 



SELECT NAME IN LIBF* TABLE. EQUAL SUBROUTINE 
NAME* 

YES» RETURN TO PROGRAM. 

NO* TEST IF ANY MORE NAMES IN LIBF TABLE* 

MORE* GO SELECT NEXT ONE* 

NO MORE* ENTER SUBR. NAME IN LIBF* 

UPDATE NO. OF SUBRS* IN LIBF*» 

AND RETURN TO PROGRAM* 
SELECT TAPE THREE. 



SET DECR. OF WR1 EQUAL WD* CT* FROM LIB. TAPE 
PLUS DECREMENT OF 1#4 

WRITE WORD FROM BUFFER ONTO TAPE THREE 
TEST END OF CARD. 

RETURN TO PROG. EXIT POINT PLUS 2. 
READ LIBRARY TAPE RECORD. 

ROUTINE 
READ-ERROR PROCEDURE. 



SELECT TAPE 1» 

SET XR1*0. 

COPY RECORD INTO BUFF-1.-2*... 

EOF 
EOR 



INCREASE RECORD COUNT BY ONE 



AND RETURN TO PROGRAM EXIT PLUS 2. 
TO WRITE A BCD RECORD ON TAPE TWO. 



F6P02160 

F6P02170 

F6P02180 

F6P02190 

F6P02200 

F6P02210 

F6P02220 

F6P02230 

F6P02240 

F6P02250 

F6P02260 

F6P02270 

F6P02280 

F6P02290 

F6P02300 

F6P02310 

F6P02320 

F6P02330 

F6P02340 

F6P02350 

F6P02360 

F6P02370 

F6P02380 

F6P02390 

F6P02400 

F6P02410 

F6P02420 

F6P02430 

F6P02440 

F6P02450 

F6P02460 

F6P02470 

F6P02480 

F6P02490 

F6P02500 

F6P02510 

F6PO2520 

F6P02530 

F6P02540 

F6P02550 

F6P02560 

F6P02570 

F6P02580 

F6P02590 

F6P02600 

F6P02610 

F6P02620 

F6P02630 

F6P02640 

F6P02650 

F6P02660 

F6P02670 

F6P02680 

F6P02690 



{,$ 



U 



U 



n 



00573 


76600 00202 


SPACE WTD 2 


00574 


70000 00703 




CPY BLANKS 


00575 


02000 00562 




TRA PRINT 


00576 


-0 63400 4 00702 


WLL 


SXD IR4t4 


00577 


1 00002 2 00600 




TXI ME20»2»2 


00600 


-0 75400 2 00000 


ME20 


PXD 0.2 


00601 


60100 00610 




STO LND 


00602 


77100 00022 




ARS 18 


00603 


62100 00610 




STA LND 


00604 


50000 01017 




CLA LNE 


00605 


40200 00610 




SUB LND 


00606 


60100 00610 




STO LND 


00607 


07400 4 00562 




TSX PRINT. 4 


00610 


00000 00000 


LND 




00611 


-0 53400 4 00702 




LXD IR4#4 


00612 


02000 4 00001 




TRA 1*4 


00613 


40000 01014 


LOOP I 


1 ADD THRDE 


00614 


62200 00626 




STD A27 


00615 


-0 53400 1 01007 




LXD FR4»1 


00616 


53400 2 01003 


A28 


LXA LIBCT.2 


00617 


50000 1 01327 




CLA BUFF-1.1 


00620 


34000 2 03610 


A24 


CAS LIBF»2 


00621 


02000 00623 




TRA A23 


00622 


02000 00625 




TRA A26 


00623 


2 00001 2 00620 


A23 


TIX A24.2.1 


00624 


02000 00630 




TRA A25 


00625 


1 00001 1 00626 


A26 


TXI A27.1.1 


00626 


-3 00626 1 00616 


A27 


TXL A28.1.* 


00627 


02000 4 00001 




TRA 1»4 


00630 


50000 03133 


A25 


CLA TVR-1 


00631 


62200 00641 




STD A31 


00632 


-0 53400 2 01000 




LXD 0NEDE»2 


00633 


10000 00645 




TZE EXT2 


00634 


50000 1 01327 




CLA BUFF-1.1 


00635 


34000 2 03133 


A32 


CAS TVR-1* 2 


00636 


02000 00640 




TRA A30 


00637 


02000 00625 




TRA A26 


00640 


1 00001 2 00641 


A30 


TXI A31»2»l 


00641 


-3 00641 2 00635 


A31 


TXL A32»2»* 


00642 


60100 2 03133 




STO TVR-1»2 


00643 • 


-0 63400 2 03133 




SXD TVR-1 »2 


00644 


02000 00625 




TRA A26 


00645 


50000 1 01327 


EXT2 


CLA BUFF-1.1 


00646 


02000 00642 




TRA A31+1 


00647 


53400 1 00163 


CHSUM 


LXA TWO.l 


00650 ' 


"0 50000 01327 




CAL BUFF-1 


00651 


36100 1 01327 


B6 


ACL BUFF-1.1 


00652 


1 00001 1 00653 




TXI B5.1.1 


00653 - 


-3 00027 1 00651 


B5 


TXL B6.1.23 


00654 


60200 01326 




SLW BUFF-2 


00655 


02000 4 00001 




TRA 1.4 


00656 - 


•0 63400 4 00702 


SUB2 


SXD IR4t4 


00657 - 


■0 50000 00703 




CAL BLANKS 


00660 


60200 2 03634 




SLW LIN+1.2 



WRITE A WORD OF BLANKS ON TAPE TWO. 



PREPARE TO WRITE FINAL RECORD ON TAPE TWO. 



AND GO WRITE IT. 



SUBROUTINE IN TVR 
SELECT NAME FROM SUBROUTINE TRANS. VEC. 
SELECT NAME FROM LIBF TABLE. 
NOT EQUAL 

SUBROUTINE IS IN LIBF. 

NOT EQUAL* ANY MORE NAMES IN LISF. YES. TRANS. 
NO. NOT IN LIBF. 

ANY MORE NAMES IN SUBROUT. TRANS. VECTOR. 
YES. 

NO. RETURN TO PROGRAM 
SET DECR. OF A31 EQUAL WD CT. OF TVR TABLE. 

IF NOT ALREADY IN 

TRANSFER IF NO ENTRIES IN TVR TABLE 
SELECT THE NAME FROM SUBROUT. TR. VECTOR. 
IS IT IN THE TVR TABLE. 

YES. TRANSFER. 



NO. PUT IT THERE. UPDATE COUNT OF TVR TABLE. 



SELECT NAME FROM SUBR. TRANS. VEC. AND 

GO STORE IT. 

COMPUTE CHECK SUM AND STORE IT IN BUFF-2. 



STORE BLANKS IN BOTH WORDS OF ENTRY. 



F6P02700 

F6P02710 

F6P02720 

F6P02730 

F6P02740 

F6P02750 

F6P02760 

F6P02770 

F6P02780 

F6P02790 

F6P02800 

F6P02810 

F6P02820 

F6P02830 

F6P02840 

F6P02850 

F6P02860 

F6P02870 

F6P02880 

F6P02890 

F6P02900 

F6P02910 

F6P02920 

F6P02930 

F6P0294G 

F6P02950 

F6P02960 

F6P02970 

F6P02980 

F6P02990 

F6P03000 

F6P03010 

F6P03020 

F6P03030 

F6P03040 

F6P03050 

F6P03060 

F6P03070 

F6P03080 

F6P03090 

F6P03100 

F6P03110 

F6P03120 

F6P03130 

F6P03140 

F6P03150 

F6P03160 

F6P03170 

F6P03180 

F6P03190 

F6P03200 

F6P03210 

F6P03220 

F6P03230 



(.1 



00661 


60200 2 03635 




SLW 


LlN+2»2 


00662 


56000 01015 


CNS 


LDQ 


NAME 


00663 


53400 4 00664 




LXA 


SIX»4 


00664 


-0 76300 00006 


SIX 


L6L 


6 


00665 


60200 01016 




SLW 


SYM 


00666 


-Q 32000 00705 




ANA 


6BITS 


00667 


40200 00704 




SUB 


BLANK 


00670 


10000 00674 




TZE 


CNA 


00671 


-0 50000 01016 




CAL 


SYM 


00672 


60200 2 03635 




SLW 


LIN+2»2 


00673 


2 00001 4 00664 




TIX 


SIX»4»1 


00674 


2 00002 2 00700 


CNA 


TIX 


EXIT»2t2 


00675 


07400 4 00562 




TSX 


PRINT»4 


00676 


00024 03634 


LNC 




LIN+1»*20 


00677 


-0 53400 2 00676 




LXD 


LNC»2 


00700 


-0 53400 4 00702 


EXIT 


LXD 


IR4»4 


00701 


02000 4 00001 




TRA 


1*4 


00702 


00000 00000 


IR4 




0*0*0 


00703 


606060606060 


BLANKS 


BCD 


1 


00704 


000000000060 


BLANK 


BCD 


100000 


00705 


+000000000077 


6BITS 


OCT 


77 


00706 


+000000000012 


TEN 


DEC 


10 


00707 


+000000000000 


LOC 


DEC 





00710 


606060606060 




BCD 


7 


00711 


606060606060 








00712 


606060606060 








00713 


606060606060 








00714 


606060606060 








00715 


606060606060 








00716 


606060606060 








00717 


606062642251 




BCD 


6 SUBROU 


00720 


466463314525 








00721 


626047644523 








00722 


302524602651 








00723 


464460433122 








00724 


512151706060 








00725 


606060606060 




BCD 


7 


00726 


606060606060 








00727 


606060606060 








00730 


606060606060 








00731 


606060606060 








00732 


606060606060 








00733 


606060606060 










00734 


FOUND 


BSS 




00734 


606060606060 




BCD 


7 


00735 


606060606060 








00736 


606060606060 








O0737 


606060606060 








00740 


606060606060 








00741 


606060606060 








00742 


606060606060 








00743 


626422514664 




BCD 


6SUBR0UTI 


00744 


633145256260 








00745 


454663604764 









ASSENBLE BCD REPRESENTATION OF 
SUBROUTINE NAME* 



STORE IT IN WORD TWO OF ENTRY* 

RECORD NOT FULL, DECR. XR2 AND EXIT 
RECORD FULL* GO WRITE IT* 

RESET RECORD LENGTH COUNTER 
AND RETURN TO PROGRAM 



SUBROUTINES PUNCHED FROM LIBRARY 



F6P03240 
F6P03250 
F6P03260 
F6P03270 
F6P03280 
F6P03290 
F6P03300 
F6P03310 
F6P03320 
F6P03330 
F6P03340 
TO PROGRAM.F6P03350 
F6P03360 
F6P03370 
F6P03380 
F6P03390 
F6P03400 
F6P03410 
F6P03420 
F6P03430 
F6P03440 
F6P03450 
F6P03460 
F6P03470 



F6P03480 



F6P03490 



F6P03500 
F6P03510 



F6P03520 



IV 



u 



u 



n 



00746 


452330252460 






00747 


265146446043 






00750 


312251215170 






00751 


606060606060 




BCD 7 


00752 


606060606060 






00753 


606060606060 






00754 


606060606060 






00755 


606060606060 






00756 


606060606060 






00757 


606060606060 








00760 


LOST 


BSS 


00760 


50000 03133 


ERASE 


: CLA TVR-1 


00761 


40200 01000 




SUB ONEOE 


00762 


62200 03133 




STD TVR-1 


00763 


62200 00770 




STD NEXT 


00764 


10000 00772 




T2E EXT-1. 


00765 


50000 2 03132 


SKIP 


CLA TVR-2»2 


00766 


60100 2 03133 




STO TVR-1»2 


00767 


1 00001 2 00770 




TXI NEXT #2*1 


00770 


-3 00770 2 00765 


NEXT 


TXL SKIP»2** 


00771 


02000 4 00001 




TRA 1*4 


00772 


60000 03132 


EXT1 


STZ TVR-2 


00773 


02000 4 00001 




TRA 1*4 


00774 


77200 00201 


OUTER 


REW 1 


00775 


76200 00221 




RTB 1 


00776 


76200 00221 




RTB 1 


00777 


02000 00004 




TRA 4 


01000 


00001 00000 


ONEDE 


0*0*1 


01001 


00000 00000 


SUM 




01002 


00000 


RCT 


IN ADDRESS 


01003 


00000 00000 


LIBCT 


(ADDRESS) 


01004 


00000 00000 


PASCT 


(ADDRESS) 


01005 


00000 ooooo 


CTF 


(ADDRESS) 


01006 


o. ooooo ooooo 


VLENG 


0*0* 


01007 


00004 ooooo 


FR4 


0*0*4 


01010 


OOOOO 00024 


L20 


20*0*0 


01011 


00002 ooooo 


TWODE 


0*0*2 


01012 


00024 OOOOO 


L20D 


0*0*20 


01013 


00026 OOOOO 


L22D 


0*0*22 


01014 


00003 ooooo 


THRDE 


0*0*3 


01015 


OOOOO ooooo 


NAME 


HTR 


01016 


OOOOO ooooo 


SYM 


HTR 


01017 


00026 03636 


LNE 


LIN+3*»22 




01330 


BUFF 


BES 200 




03134 


TVR 


BES 900 




03610 


LIBF 


BES 300 




03610 




BSS 19 




03633 


LIN 


BSS 1. 



F6P03530 



DECREASE WD CT OF TVR BY ONZ* 



TEST FOR ANY WORDS LEFT IN TVR TABLE* 



MOVE UP ENTRIES IN TVR TABLE 



EXIT TO PROGRAM 

WHEN NO WORDS LEFT IN TVR TABLE* 

TVR-2 AND RETURN TO PROGRAM* 



STORE 



M 03634 50000 00162 

M 03635 34000 00177 

03636 02000 03643 



PUNCH BINARY LOADER IF CARDS ARE OUTPUT 

AND IF MAIN ROUTINE* PUNCH PROGRAM 
RECQ CLA ONE ARE CARDS OUTPUT 

CAS SW1 
TRA WLP1 EQUALS ZERO* ASSUME SWITCH UP* GO PUNCH 



F6PO3540 
F6P03550 
F6P03560 
F6P0357Q 
F6P03580 
F6P03590 
F6P03600 
F6P03610 
F6P03620 
F6P03630 
F6P03640 
ZERO IN F6P03650 
F6P03660 
F6P03670 
F6P03680 
F6P03690 
F6P03700 
F6P03710 
F6P03720 
F6P03730 
F6P03740 
F6P03750 
F6P03760 
F6P03770 
F6P03760 
F6P03790 
F6P03800 
F6P03810 
F6P03820 
F6P03830 
F6P0384O 
F6P03850 
F6P03860 
F6P03870 
F6P03880 
F6P03890 
F6P0390O 
F6P03910 
F6P03920 
F6P03930 
F6P03940 
F6P03950 
F6P03960 
CARDS. F6P03970 



<,il 





03637 


02000 





03716 




TRA 


OUT 




03640 


76000 





00161 




SWT 


1 




03641 


02000 





03643 




TRA 


WLP1 




03642 


02000 





03716 




TRA 


OUT 




03643 


50000 





00036 


WLP1 


CLA 


SUB IN 




03644 


-0 10000 





03653 




TNZ 


RTF 




03645 


53400 


1 


03736 




LXA 


WPLVtl 




03646 


-0 53400 


2 


03736 


WPL2 


LXD 


WPLV»2 




03647 


76600 





00341 




WPU 






03650 


-2 00001 


2 


03646 


WPL3 


TNX 


WPL2.2.1 




03651 


70000 


1 


04340 




CPY 


ZER+216»1 




03652 


2 00001 


1 


03650 




TIX 


WPL3»1»1 


M 


03653 


53400 


1 


00162 


RTF 


LXA 


ONEfl 




03654 


-0 63400 


1 


03712 


RT9 


SXD 


RTltl 




03655 


-0 53400 


2 


03662 




LXD 


RT2t2 




03656 


76200 





00223 


RTR 


RTB 


3 




03657 


-0 53400 


4 


03701 




LXD 


RT3»4 


M 


03660 


70000 


1 


02114 


RT7 


CPY 


TRBtl 




03661 


1 00001 


1 


03667 




TXI 


RT4.1.1 




03662 


1 00005 





03723 


RT2 


TXI 


TEF.t5 


M 


03663 


60000 


1 


02114 


RTZ 


STZ 


TKBflt6*4096 




03664 


1 00001 


1 


03665 




TXI 


RT6tlt 1 




03665 


2 00001 


4 


03663 


RT6 


TIX 


RTZt4tl 


TO 


03666 


1 00000 





03673 




TXI 


RT5 




03667 


2 00001 


4 


03660 


RT4 


TIX 


RT7*4»1 




03670 


70000 





03735 




CPY 


DUMP 




03671 


02000 





03727 




TRA 


RTE 




03672 


07400 


4 


00774 




TSX 


0UTER»4 




03673 


76600 





00333 


RT5 


1 00 






03674 


77100 





00377 




ARS 


255 




03675 


77100 





00377 




ARS 


255 




03676 


-0 7600O 





00012 




RTT 






03677 


02000 





03727 




TRA 


RTE 




03700 


-0 53400 


1 


03712 


RTA 


LXD 


RTltl 




03701 


I 00030 


1 


03702 


RT3 


TXI 


RT8tl»24 




03702 


-3 01130 


1 


03654 


RT8 


TXL 


RT9*1. 24*25 


M 


03703 


53400 


4 


00161 




LXA 


ZER0»4 


M 


03704 


53400 


1 


00162 


PIC 


LXA 


0NE»1 




03705 


76600 





00341 


PC3 


WPU 






03706 


-0 53400 


2 


03701 




LXD 


RT3»2 


M 


03707 


70000 


1 


02114 


PC2 


CPY 


TRBtl 




03710 


1 00001 


1 


03711 




TXI 


*+l«l#l 




03711 


2 00001 


2 


03707 




TIX 


PC2*2»1 




03712 


-3 00000 


1 


03705 


RT1 


TXL 


PC3*1*** 





03713 


-3 00000 


4 


03653 




TXL 


RTF»4 




03714 


76600 





00341 


PTC 


WPU 






03715 


76600 





00341 




WPU 






03716 


76200 





00221 


OUT 


RTB 


1 




03717 


76200 





00221 




RTB 


1 




03720 


76200 





00221 




RTB 


1 




03721 


02000 





00004 




TRA 


4 


ATD 


03722 


2 00000 





00000 




TIX 






03723 


-2 00030 


1 


03714 


TEF 


TNX 


PTCtl»24 



EQUALS ONE > ASSUME SWITCH DOWN. NO CARD OUPUT. £6P0398O 



TEST SWITCH ONE. 

UP SO GO TO PUNCH ON LINE. 

DOWN SO 60 TO RETURN TO LOADER. 

TEST FOR SUB DEF. 

IF SOURCE PROG IS A SUBROUTINE » 60 READ TAPE 

MAIN ROUTINE. PUNCH LOADER. 

SET CARD LENGTH. 

SELECT PUNCH. 

TRANSFER IF CARD FULL. 

COPY LOADER WORD. 

TRANSFER IF NOT FINISHED PUNCHIN6 LOADER. 

SET IR1 EQUAL ONE. 



F6P03990 
F6P04000 
F6P04010 
F6P04020 
F6P04030 
F6P04040 
F6P04050 
F6P04060 
F6P04070 
F6P04080 
F6P04090 
F6P04100 



SAVE WORD COUNT OF ST0RA6E BLOCK TO BE PUNCHED F6P04110 



SET IR2 EQUAL FIVE FOR READ-ERROR COUNTERt 

READ TAPE THREE. 

SET IR4 EQUAL 24. 

COPY BINARY INST. INTO ST0RA6E. 

INCREASE WORD COUNT ONE. 

END OF FILE ON TAPE 3. 

EOR STORE ZERO. 

INCREASE WORD COUNT BY ONE 

FILL OUT CARD (IN ST0RA6EI 



F6P04120 
F6P04130 
F6P04140 
F6P04150 
F6P04160 
F6P04170 
F6P04180 
F6P04190 
F6P04200 
F6P04210 
TRANSFER IF CARD N0TF6P04220 

F6P04230 



WITH ZEROS. 



MOD. AND TEST END OF CARD. 

FILLED. 

NO INDEX IN XR4 IS AN ERROR HEREf 

SINCE RECORD LENGTH ON TAPE 3 IS CARD LENGTHt 



CHECK FOR TAPE CHECK. 



GO TO READ ERROR PROCEDURE. 

TAPE READ OKAY. ADD 24 (FOR CARD JUST READ) 

TO WORD COUNT. 

TEST END OF PUNCH BLOCK. 

BLOCK FULL. SET XR4 EQUAL ZERO* 

AND PUNCH OUT PUNCH BLOCK. 

PUNCH CARD. 

SET XR2 EQUAL 24 



TRANSFER IF NOT END OF CARD. 

END OF PUNCH BLOCK TEST. TRANS. IF NOT END. 

GO READ MORE FROM TAPE THREE. 

PUNCH TWO BLANK CARDS. 



RETURN TO LOADER. 



HAS LAST BLOCK BEEN PUNCHED. TRANSFER TO 



F6P04240 
F6P04250 
F6P04260 
F6P04270 
F6P04280 
F6P04290 
F6P04300 
F6P04310 
F6P04320 
F6P04330 
F6P04340 
F6P04350 
F6P04360 
F6P04370 
F6P04380 
F6P04390 
F6P04400 
F6P04410 
F6P04420 
F6P04430 
F6P04440 
F6P04450 
F6P04460 
F6P04470 
F6P04480 
F6P0449O 
F6P04500 
F6P04510 



u 



u 



03724 
03725 
03726 
03727 
03730 
03731 
03732 
03733 
03734 



03736 
03737 



63400 
53400 
02000 
00001 
07400 
00000 
76400 
53400 
02000 



00031 
00040 



03712 
00162 
03704 
03732 
00774 
03700 
00203 
03712 
03656 
03735 
02114 
00330 
00000 
03740 
04010 
04010 
04010 



04010 +053400100000 

04011 +070000100002 

04012 +177777100001 

04013 +000000100000 

04014 -076000000007 

04015 +076200000321 

04016 +070000177452 

04017 +177777100006 

04020 +000000000000 

04021 +377470100005 

04022 -053400177715 

04023 -063400177715 

04024 +060000077453 

04025 +076200000321 

04026 +070000000000 

04027 +002000077500 

04030 +000000000015 

04031 +060000200000 

04032 +200001200021 

04033 +014000000024 

04034 +002000000000 

04035 +000000000000 

04036 +000000000030 

04037 +000000077777 

04040 +050000000000 

04041 +070000000001 

04042 -012000077626 

04043 +010000000015 

04044 +060000077777 

04045 -053400100000 

04046 -300037177516 

04047 +300040 100000 

04050 +062100000025 

04051 +040000000026 

04052 +062100000026 



6X0 
LXA 
TRA 

RTE TIX 
TSX 
HTR 

BST BST 
LXD 
TRA 

DUMP BSS 

TRB SYN 

WPLV 

WRCC 

BSS 

ZER BSS 

ZRO SYN 
ORG 

OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



RTlfl 

0NE»4 

PIC 

BST»2tl 

OUTER* 4 

RTA 

3 

RT1»1 

RTR 

1 

ABSOP 

216*0*25 

0*0*32 

40 

216 

ZER 

ZRO 

BINARY LOADER 

053400100000 

070000100002 

177777100001 

000000100000 

476000000007 

076200000321 

070000177452 

177777100006 

000000000000 

377470100005 

453400177715 

463400177715 

060000077453 

076200000321 

070000000000 

002000077500 

000000000015 

060000200000 

200001200021 

014000000024 

002000000000 

000000000000 

000000000030 

000000077777 

050000000000 

070000000001 

412000077626 

010000000015 

060000077777 

453400100000 

700037177516 

300040100000 

062100000025 

040000000026 

062100000026 



PUNCH ENDING BLANKS IF YES* 

SAVE WORD COUNT OF PUNCH BLOCK* 

AND GO PUNCH 

FINAL BLOCK* 

READ ERROR PROCEDURE* TRIED 5 TIMES* 

YES* 

BACK SPACE TAPE 3 

AND RESET WORD COUNT TO ONE. 

GO READ TAPE 3. 



AS OCTAL DATA 



F6P04520 
F6P04530 
F6P04540 
F6P04550 
NO* TRANS»F6P04560 
F6P04570 
F6P04580 
F6P04590 
F6P04600 
F6P04610 
F6P04620 
F6P04630 
F6P04640 
F6P04650 
F6P04660 
F6P04670 
F6P04680 
F6P04690 
F6P04700 
F6P04710 
F6P04720 
F6P04730 
F6P04740 
F6P04750 
F6P04760 
F6P04770 
F6P04780 
F6P04790 
F6P04800 
F6P04810 
F6P04820 
F6P04830 
F6P04840 
F6P04850 
F6P04860 
F6P04870 
F6P04880 
F6P04890 
F6P04900 
F6P04910 
F6P04920 
F6P04930 
F6P04940 
F6P04950 
F6P04960 
F6P04970 
F6P04980 
F6P04990 
F6P05000 
F6P05010 
F6P05020 
F6P05030 
F6P05040 
F6P05050 



6?? 



JTT 



04053 +050000000001 

04054 +062100077520 

04055 +OO20OO0OO015 

04056 +062100000010 

04057 +077100000017 

04060 -073400400000 

04061 -300001477524 

04062 +007400277611 

04063 +062100000010 

04064 -050000000000 

04065 +077100000022 

04066 +040000000010 

04067 +062100077531 

04070 -053400200000 

04071 -300000200000 

04072 +062100077577 

04073 +062100077601 

04074 +062100077572 

04075 +062100077566 

04076 +062100077543 

04077 -050000000000 

04100 -300001477543 

04101 -070000000007 

04102 -070000000006 

04103 -070000200000 

04104 +200001277543 

04105 -300000477551 

04106 -300001400015 

04107 -300002477551 

04110 -300003477561 

04111 +060200000000 

04112 +050000000001 

04113 +010000077557 

04114 +040200000000 

04115 +010000077557 

04116 +042000000000 

04117 -300001400015 

04120 +300003477642 

04121 +056000000006 

04122 +050000000007 

04123 -076300000001 

04124 +060200000007 

04125 +012000077573 

04126 +050000100000 

04127 +077100000022 

04130 +007400277604 

04131 +076700000022 

04132 +062200100000 

04133 +050000000007 

04134 -076300000001 

04135 +060200000007 

04136 +012000077602 

04137 +050000100000 
04140 +007400277604 



OCT 050000000001 
OCT 062100077520 
OCT 002000000015 
OCT 062100000010 
OCT 077100000017 
OCT 473400400000 
OCT 700001477524 
OCT 007400277611 
OCT 062100000010 
OCT 450000000000 
OCT 077100000022 
OCT 040000000010 
OCT 062100077531 
OCT 453400200000 
OCT 700000200000 
OCT 062100077577 
OCT 062100077601 
OCT 062100077572 
OCT 062100077566 
OCT 062100077543 
OCT 450000000000 
OCT 700001477543 
OCT 470000000007 
OCT 470000000006 
OCT 470000200000 
OCT 200001277543 
OCT 700000477551 
OCT 700001400015 
OCT 700002477551 
OCT 700003477561 
OCT 060200000000 
OCT 050000000001 
OCT 010000077557 
OCT 040200000000 
OCT 010000077557 
OCT 042000000000 
OCT 700001400015 
OCT 300003477642 
OCT 056000000006 
OCT 050000000007 
OCT 476300000001 
OCT 060200000007 
OCT 012000077573 
OCT 050000100000 
OCT 077100000022 
OCT 007400277604 
OCT 076700000022 
OCT 062200100000 
OCT 050000000007 
OCT 476300000001 
OCT 060200000007 
OCT 012000077602 
OCT 050000100000 
OCT 007400277604 



F6P05060 
F6P05070 
F6P05080 
F6P05090 
F6P05100 
F6P05110 
F6P05120 
F6P05130 
F6P0514O 
F6P05150 
F6P0516O 
F6P05170 
F6P05180 
F6P05190 
F6P05200 
F6P05210 
F6P05220 
F6P05230 
F6P05240 
F6P05250 
F6P05260 
F6P05270 
F6P05280 
F6P05290 
F6P05300 
F6P05310 
F6PO5320 
F6P05330 
F6P05340 
F6P05350 
F6P05360 
F6P05370 
F6P05380 
F6P05390 
F6P05400 
F6P05410 
F6P05420 
F6P05430 
F6P05440 
F6P05450 
F6P05460 
F6P05470 
F6P05480 
F6P05490 
F6P05500 
F6P05510 
F6P05520 
F6P05530 
F6P05540 
F6P05550 
F6P05560 
F6P05570 
F6P05580 
F6P05590 



67/ 



u 



(J 



04141 +062100100000 

04142 +200001177562 

04143 +002000000015 

04144 +062100000010 

04145 +050000000007 

04146 -076300000001 

04147 +060200000007 

04150 -012000077612 

04151 +076000000141 

04152 +050200000C1O 

04153 +040000000025 

04154 +012000077622 

04155 -076000000141 

04156 +002000077624 

04157 +050000000010 

04160 +040100077520 

04161 +002000200001 

04162 -076000000141 

04163 +002000077617 

04164 +040200000026 

04165 +002000200001 

04166 ^073400200000 

04167 -300000277770 

04170 +040000077771 

04171 +040000077640 

04172 +062200077713 

04173 +040200077715 

04174 +062200077667 

04175 +036100000000 

04176 +040200077640 

04177 +077100000022 

04200 +200002277641 

04201 +007400477536 

04202 -053400177771 

04203 +050000077777 

04204 +010000077652 

04205 +050000000007 

04206 +060100177451 

04207 +050000000006 

04210 +060100177452 

04211 +200002177704 

04212 +050000000026 

04213 +060000177451 

04214 +060100177452 

04215 -053400400007 

04216 +300000477661 

04217 +050000077776 

04220 +060100177451 

04221 +050000000007 

04222 +062200177451 

04223 +062100000025 

04224 +040000000026 

04225 +062100000026 

04226 +073400200000 



OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 



062100100000 
200001177562 
002000000015 
062100000010 
050000000007 
476300000001 
060200000007 
412000077612 
076000000141 
050200000010 
040000000025 
012000077622 
476000000141 
002000077624 
050000000010 
040100077520 
002000200001 
476000000141 
002000077617 
040200000026 
002000200001 
473400200000 
700000277770 
040000077771 
040000077640 
062200077713 
040200077715 
062200077667 
036100000000 
040200077640 
077100000022 
200002277641 
007400477536 
453400177771 
050000077777 
010000077652 
050000000007 
060100177451 
050000000006 
060100177452 
200002177704 
050000000026 
060000177451 
060100177452 
453400400007 
300000477661 
050000077776 
060100177451 
050000000007 
062200177451 
062100000025 
040000000026 
062100000026 
073400200000 



F6P05600 

F6P05610 

F6P05620 

F6PO5630 

F6P05640 

F6P05650 

F6P05660 

F6P05670 

F6P05680 

F6P05690 

F6P05700 

F6P05710 

F6P05720 

F6P05730 

F6P05740 

F6P05750 

F6P05760 

F6P05770 

F6P05780 

F6P05790 

F6P0580O 

F6P05810 

F6P05820 

F6P05830 

F6P05840 

F6P05850 

F6P05860 

F6P05870 

F6P05880 

F6PO5690 

F6P05900 

F6P05910 

F6P05920 

F6PO5930 

F6P05940 

F6P05950 

F6PO5960 

F6P05970 

F6P05980 

F6P05990 

F6P06O00 

F6P06010 

F6P06020 

F6P06030 

F6P06040 

F6P06050 

F6P06060 

F6P06070 

F6P06080 

F6P06090 

F6P06100 

F6P06110 

F6P06120 

F6P06130 



£7 



/ 



04227 +300000200003 

04230 +050000077520 

04231 +040200000006 

04232 +073400400000 

04233 -075400400000 

04234 +077100000022 

04235 +010000077677 

04236 +034000000027 
04237+050000000027 

04240 +076100000000 

04241 +060100000027 

04242 +040200000026 

04243 -012000077453 

04244 -063400277777 

04245 +060000000007 

04246 +100002177707 

04247 +050000177452 

04250 +007400277604 

04251 +062100177452 

04252 +100002177713 

04253 -300000177707 

04254 -063400177771 

04255 -277452000015 

04256 -050000277453 

04257 -010000077723 

04260 +050000277454 

04261 +062100000024 

04262 +002000077770 

04263 -032000077776 

04264 -010000077770 

04265 +050000277453 

04266 -073400400000 

04267 +077100000022 

04270 +040000277454 

04271 +062100077736 

04272 +062100077764 

04273 +062100077766 

04274 +062100077741 

04275 -053400177771 

04276 -050000^00000 

04277 -032000077776 

04300 +010000077767 

04301 +050000400000 

04302 +034000177453 

04303 +002100077745 

04304 +002000077763 

04305 +200002177742 

04306 +060100000006 
04307-053400177753 

04310 +050000177477 

04311 +010000077757 

04312 +034000000006 

04313 -200024077755 

04314 +002000077767 



OCT 300000200003 
OCT 050000077520 
OCT 040200000006 
OCT 073400400000 
OCT 475400400000 
OCT 077100000022 
OCT 010000077677 
OCT 034000000027 
OCT 050000000027 
OCT 076100000000 
OCT 060100000027 
OCT 040200000026 
OCT 412000077453 
OCT 463400277777 
OCT 060000000007 
OCT 100002177707 
OCT 050000177452 
OCT 007400277604 
OCT 062100177452 
OCT 100002177713 
OCT 700000177707 
OCT 463400177771 
OCT 677452000015 
OCT 450000277453 
OCT 410000077723 
OCT 050000277454 
OCT 062100000024 
OCT 002000077770 
OCT 432000077776 
OCT 410000077770 
OCT 050000277453 
OCT 473400400000 
OCT 077100000022 
OCT 040000277454 
OCT 062100077736 
OCT 062100077764 
OCT 062100077766 
OCT 062100077741 
OCT 453400177771 
OCT 450000400000 
OCT 432000077776 
OCT 010000077767 
OCT 050000400000 
OCT 034000177453 
OCT 002100077745 
OCT 002000077763 
OCT 200002177742 
OCT 060100000006 
OCT 453400177753 
OCT 050000177477 
OCT 010000077757 
OCT 034000000006 
OCT 600024077755 
OCT 002000077767 



u 



F6P06140 

F6P06150 

F6P06160 

F6P06170 

F6P06180 

F6P06190 

F6P06200 

F6P06210 

F6P06220 

F6P06230 

F6P06240 

F6P06250 

F6PQ6260 

F6P06270 

F6P06280 

F6P06290 

F6P06300 

F6P06310 

F6P06320 

F6P06330 

F6P06340 

F6P06350 

F6P06360 

F6P06370 

F6P06380 

F6P06390 

F6P06400 

F6P06410 

F6P06420 

F6P06430 

F6P06440 

F6P06450 

F6P06460 

F6P06470 

F6P06480 

F6P06490 

F6P06500 

F6P06510 

F6P06520 

F6P06530 

F6P06540 

F6P06550 

F6P06560 

F6P06570 

F6P06580 

F6P06590 

F6P06600 

F6P06610 

F6P0662O 

F6P06630 

F6P06640 

F6P06650 

F6P06660 

F6P06670 



L% 



U 



04315 


+200001177750 






OCT 200001177750 


04316 


+000000077770 






OCT 0OO0Q0077770 


04317 


+050000000006 






OCT 050000000006 


04320 


+060100177477 






OCT 060100177477 


04321 


+060000177500 






OCT 060000177500 


04322 


+002000077767 






OCT 002000077767 


04323 


+050000077743 






OCT 050000077743 


04324 


+060100400000 






OCT 060100400000 


04325 


+050000177454 






OCT 050000177454 


04326 


+062100400000 






OCT 062100400000 


04327 


+200001477735 






OCT 200001477735 


04330 


+100002277771 






OCT 100002277771 


04331 


-300000277716 






OCT 700000277716 


04332 


+050000077453 






OCT 050000077453 


04333 


-010000077775 






OCT 410000077775 


04334 


+100324200021 






OCT 100324200021 


04335 


+000000000014 






OCT 000000000014 


04336 


-300000000000 






OCT 700000000000 


04337 


+000000000000 

00000 






OCT OOOOOOOOOOOO 

END 




00001 





IN 











ONE 


00162*00162 









SW1 


00177*00177 









SW5 


00203*00203 









TRB 


02114*02114 









TWO 


00163*00163 









ZERO 


00161*00161 






OASSOP 


02114*02114 



F6P06680 
F6P06690 
F6P06700 
F6P06710 
F6P06720 
F6P06730 
F6P06740 
F6P06750 
F6P06760 
F6P06770 
F6P06780 
F6P06790 
F6P06800 
F6P06810 
F6P06820 
F6P06830 
F6P06840 
F6P06850 
F6P06860 
F6P06870 



/ >, 



PST 



00000 

00000 00004 00030 

00001 00000 06322 



APPLIED PROGRAMMING * IBM ♦ L. MAY AND A< 

704 FORTRAN II / SECTION ONE. 

8K VERSION WITHOUT CODING ON DRUMS. 



NOBLE JR. 

29 OCT 58 



SECTION 1* READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000 
FORMULAS* COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR 4F10001 
HONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT » DOES A 4F10002 
PARTIAL COMPILATION* AND RECORDS THE REMAINING INFORMATION 4F10003 
IN TABLES. 4F 10004 

THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE= 4F10005 
COMMON* STATES A* B* C» AND D. COMMON REMAINS IN LOWER MEM0RY4F10006 
THROUGHOUT SECTI0N1. STATE A READS IN AND CLASSIFIES ALL 4F10007 
STATEMENTS* AND TREATS NONARITHMETIC STATEMENTS. STATES B» 
C» AND D TREAT ARITHMETIC FORMULAS. 



SECTION 1 / COMMON - 

704 FORTRAN MASTER RECORD CARD 
ORG 

PZE 0RGC0M**1T0CS 
PZE STATEB-1 



/ COMMON - FO 140000. 



PART 1 / WORKING STORAGE* BUFFERS* AND TABLE PARAMETERS* 

EIFNO AND SENSE SWITCH SIMULATORS. 
TAPE TABLE BUFFERS. 
TAPE TABLE PARAMETERS - INTET. 
DRUM TABLE PARAMETERS. 
FORSUB COUNT AND BUFFER. 
CIB BUFFER AND PARAMETERS. 
REMAINING WORKING STORAGE. 
CONSTANTS USED BY SECTION ONE. 
SUBROUTINES USED BY SECTION ONE* 
FUNCTION 

SCAN* AND CONVERT NUMERICS. 
SCAN CHARACTERS. 
CONVERT NUMERICS. 

INITIALIZE C0190 TO 1ST WORD OF F. 
INSERT CHARACTER. 
OBTAIN NEXT NON-BLANK CHAR IN AC. 



PART 2 

PART 3 

NAME 

C0150.2 

C0160»2 

C0180*2 

C0190X*4 

C0390*4 

C0190*4 

CI TOO* 4 

0IM.SR*4 

DRTABS<«4) 

GETIFN»4 

JIF(GIF)»4 

MTROOO 

RA00O»4 

RDRX»4 

SR6DCI»1 

S5000*4 

SUBX00.4 

TESTFX*1 

TEST..*4 

TETOO*! 



4F10008 

4F10009 

4F10010 

4F10011 

4F10012 

4F100121 

4F100122 

4F100123 

4FI0013 

4F10014 

4F10015 

4F10016 

4F10017 

4F10018 

4F10019 

4F10020 

4F10021 

4F10022 

4F10023 

4F10024 

4F10025 

4F10026 

4F10027 

4F10028 

4F10029 

4F10030 



COMPILED INSTRUCTION TABLE ENTRIES.4F10031 

DIMENSION TABLE SEARCH. 4F10032 

DRUM TABLE ENTRIES. 4F10033 

GET INTERNAL FORMULA NUMBER. 4F10034 

JUMPS (GETS) IFN IN SL AND TL. 4F10035 

MONITOR STATES FROM DRUM. 4F10036 

COMPUTE RELATIVE ADDRESS. 4F10037 

READ DRUM INTO BUFR. 4F10038 

CONVERT 6 BCD DIGITS TO 1 BINARY. 4F10039 

SCAN AND PROCESS SUBSCRIPTS. 4F10040 

ADD BLANKS TO SUBROUTINE NAMES. 4F10041 

TEST FOR FIXED OR FLOATING POINT. 4F10042 

TEST CHARACTER IN THE AC. 4F10043 

TAPE TABLE ENTRIES. 4F10044 

4F10045 



iii 



u 



j- r: 



u 



■i -> v/ . 



01 AG 



DIAGNOSTIC CALLERS* 









00030 ORGCOM 


ORG 24 

♦ * * 

EIFNO 


00030 





00000 


00000 EIFNO 


PZE ##»,** 


00031 





00000 


00002 EN0I1 


PZE 2 


00032 





00000 


00002 ENDI2 


PZE 2 


00033 





00000 


00002 ENDI3 


PZE 2 


00034 





00000 


00002 ENDI4 


PZE 2 


00035 





00000 


00002 ENDI5 

00036 TEIFNO 
00050 TOO 
00062 TIFGO 
00074 TRAD 
00106 FORTAG 
00120 FORVAR 
00132 FORVAL 
00144 FRET 
00156 EQUIT 
00170 CLOSUB 
OO202 FORMAT 
00214 SUBOEF 
00226 COMMON 
00240 HOLARG 
00252 NONEXC 
00264 TSTOPS 
00276 CALLFN 
00310 FMTEFN 


PZE 2 

* * # - 

BUFFER, 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 
BSS 10 



THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING* 

** IN THE ADDRESS* TAG* OR DECREMENT OF AN INSTRUCTION 

INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM* 

* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 

THIS LOGICAL BLOCK OR SUBROUTINE* 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED* 

P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCH)* 

****************************** 

COMMON/1-WORKING STORAGE* BUFFERS* AND TABLE PARAMETERS^ 

*************************** 
EIFNO AND SENSE SWITCH SIMULATORS* 



4F10046 
4F10047 
4F10048 
4F10049 
4F10050 
4F10051 
4F10052 
4F10053 
4F10054 
4F10055 
4F10056 

♦4F10057 
4F10O58 
4F10059 
4F10060 

♦4F10061 
4F10062 
4F10063 



EXTERNAL** INTERNAL FORMULA NUMBER* 4F10064 



********** 



SIMULATOR FOR SENSE SWITCH 1* 
SIMULATOR FOR SENSE SWITCH 2* 
SIMULATOR FOR SENSE SWITCH 3* 
SIMULATOR FOR SENSE SWITCH 4* 
SIMULATOR FOR SENSE SWITCH 5* 
*************** 



* * 



BUFFERS USED BY TETOO FOR THE TAPE TABLES* 



4F10065 
4F10066 
4F10067 
4F10068 
4F10069 
*4F10070 
4F10071 
4F10072 



EXTERNAL**INTERNAL FORMULA NUMBERS.4F10073 
DO STATEMENTS. 4F10074 

IF AND GO TO STATEMENTS* 4F10075 

IF AND 60 TO TRANSFER ADDRESSES* 4F10076 
INDEXES TO TAU AND SIGMA TABLES* 4F10077 
RIGHT - NON-SUB* FX* PT* VARI ABLES*4F10078 
LEFT - NON-SUB* FX* PT* VARIABLES. 4F10079 
FREQUENCY STATEMENTS. 4F10080 

EQUIVALENCE STATEMENTS* 4F10081 

NAMES OF SUBROUTINES. 4F10082 

FORMAT STATEMENTS. 4F10083 

SUBROUTINE DEFINITION STATEMENTS* 4F10084 
UPPER MEMORY STORAGE STATEMENTS. 4F10085 
HOLLERITH ARGUMENTS FOR SUBROUTINE. 4F10086 
NON-EXECUTED STATEMENTS. 4F10087 

STOP STATEMENTS. 4F10088 

1ST / LAST IFN FOR CALL STATEMENTS*4Fl0089 
TABLE OF FORMAT EXTERNAL FORMNOS. 4F10090 
END OF THE TAPE TABLE BUFFERS. 4F10091 

****************************** *4F10092 

4F10093 

INTET/ TABLE PARAMETERS USED BY TETOO* WHERE 4F10094 

* ORIGIN OF TABLE BUFFER* 4F10095 
B * BUFFER CAPACITY* 4F10096 

A « ADDRESS OF TABLE ENTRY* 4F10097 
E * ENTRY LENGTH IN WORDS* 4F10098 

C » COUNT OF BLOCKS PUT ON TAPE* 4F10099 



P « PORTION OF BUFFER THAT 



00322 
00323 
00324 

00325 
00326 
00327 

00330 
00331 
00332 

00333 
00334 
00335 

00336 
00337 
00340 

00341 
00342 
00343 

00344 
00345 
00346 

00347 
00350 
00351 

00352 
00353 
00354 

00355 
00356 
00357 

00360 
00361 
00362 

00363 
00364 
00365 

00366 
00367 
00370 



00012 00036 INTET 
00001 00030 
00000 00000 

00012 00050 
00005 01105 
00000 00000 

00012 00062 
00002 01105 
00000 ooooo 

00012 00074 
00001 01112 
OOOOO ooooo 

00012 00106 
00001 01347 
OOOOO OOOOO 

00012 O0120 
00002 01347 
OOOOO OOOOO 

00012 00132 
00002 01347 
OOOOO OOOOO 

00012 00144 
00001 01112 
OOOOO OOOOO 

00012 00156 
00002 01105 
OOOOO OOOOO 

00012 00170 
00001 01347 
OOOOO OOOOO 

00012 00202 
00002 01347 
OOOOO OOOOO 



PZE TEIFN0**10 
PZE EIFNOttl 
PZE ****** 

PZE TOO* t 10 
PZE 1C»*5 
PZE ****** 

PZE TIFGO*»10 
PZE 1C**2 
PZE ****** 

PZE TRADttlO 
PZE 1G»*1 
PZE ****** 

PZE FORTAG**10 
PZE G»*l 
PZE ****** 

PZE FORVAR»*10 
PZE G»*2 
PZE ****** 

PZE FORVAL»*10 
PZE G**2 
PZE ****** 

PZE FRET»*10 
PZE 1G»*1 
PZE ****** 

PZE EQUIT**10 
PZE 1C»*2 
PZE ****** 

PZE CLOSUB»»10 
PZE G**l 
PZE ****** 

PZE FORMAT »♦ 10 
PZE G.*2 
PZE ****** 



00012 00214 PZE SUBDEF»»10 
00001 01112 PZE 1G»*1 
OOOOO OOOOO SBDFCN PZE ****** 



00012 00226 
00001 01112 
OOOOO OOOOO 



PZE COMMON* #10 
PZE 1G»*1 
PZE ****** 



00) 


0*»B« 




A»«E« 




C»*P« 


01) 


0»*B* 




A»«E« 




C»*P. 


02) 


0»*B« 




A»*E« 




C»*P* 


03) 


0»*B« 




A*#E. 




C»*P. 


04) 


0»*B« 




A»*E« 




C M P* 


05) 


0»*B« 




A»«E« 




C»#P« 


06) 


0*»B« 




A»#E. 




C»#P. 


07) 


0»*B« 




A»*E. 




C*tP. 


08) 


0»*B« 




A»*E. 




C»*P. 


09) 


0»»B* 




A**E« 




C**P. 


10) 


0»*B* 




A»«E* 




C*»P. 


11) 


0**B« 




A»*E« 




C»*P. 


12) 


0»*B« 




A»*£* 




C»*P* 



IS FULL«4F10100 
4F10101 
4F10102 
4F10103 
4F10104 
4F10105 
4F10106 
4F10107 
4F10108 
4F10109 
4F10110 
4F10111 
4F10112 
4F10113 
4F10114 
4F10115 
4F10116 
4F10117 
4F10118 
4F10119 
4F10120 
4F10121 
4F10122 
4F10123 
4F10124 
4F10125 
4F10126 
4F10127 
4F10128 
4F10129 
4F10130 
4F10131 
4F10132 
4F10133 
4F10134 
4F10135 
4F10136 
4F10137 
4F10138 
4F10139 
4F10140 
4F10141 
4F10142 
4F10143 
4F10144 
4F10145 
4F10146 
4F10147 
4F10148 
4F10149 
4F10150 
4F10151 
4F10152 
4F10153 



?-/o 



U 



O 



00371 
00372 
00373 


00012 00240 
00001 01112 
00000 00000 


PZE HOLARG**10 
PZE 1G»»1 
PZE ****** 


00374 
00375 
00376 


00012 00252 
00001 00030 
00000 00000 


PZE NONEXC**10 
PZE EIFN0.*1 
PZE *#»«*» 


00377 
00400 
00401 


00012 00264 
00001 00030 
00000 00000 


PZE T5TOPS*»I0 
PZE EIFN0»*1 
PZE ****** 


00402 
00403 
00404 


00012 00276 
00001 01123 
00000 00000 


PZE CALLFN»»10 
PZE CALLNM*»1 
PZE ****** 


00405 
00406 
00407 


00012 00310 
00001 01366 
00000 00000 


PZE FMTEFN»*10 
PZE SET»*1 
PZE **»#** 




00410 


BSS 3 

END OF TAPE 

******* 



13) 0»*B* 
A**E« 
C»*P* 

14) 0**B. 
A**E* 

C»»P* 

15) 0»»B* 
A»*E* 
C*#P* 

16) 0**B* 
A*»E* 

C**P* 

17) 0*»B* 
A»*E. 

C».P* 

EXPANSION SPACE FOR INTET* 
TABLE PARAMETERS* 
*********************** 



1X/ TABLE PARAMETERS USED BY DRTABS* WHERE 



00413 





00001 





01350 




PZE 


G+l»fl 


00414 





00000 





00002 




PZE 


FIXCON**** 


00415 


-3 


00062 





00002 


TXLOP 


TXL 


FIXCON*»50*1 


00416 





00144 





00144 




PZE 


50*2**100 


00417 


1 


00003 





02073 


FXCNIX 


TXI 


ALT •♦ 5-2 


00420 





00001 





01350 




PZE 


G+l**l 


00421 





00000 





00312 




PZE 


FLOCON*.** 


00422 


3 


00062 





00312 


TXHOP 


TXH 


FLOCON»*50*1 


00423 





00702 





00063 




PZE 


50*1+1**450 


00424 


1 


00003 





02073 


FLCNIX 


TXI 


ALT*. 5-2 



00425 00002 01133 

00426 00000 00000 

00427 -3 00062 00000 
00430 00144 00113 



PZE E+3+2»*2 
PZE TAU1»»** 
TXL TAU1»*25*2 
PZE 25*3 »t 100 



ARG1 * 1ST LOCATION OF ARGUMENT* 

L « LENGTH OF ARGUMENT IN WORDS 

TOA « LOC. OF NEXT DRUM ENTRY* 

N « NO* OF ENTRIES ON DRUM* 

*** * TXL FOR ENTRY SUM TABLES* 

*•# . TXH FOR BLOCK SUM TAB(FLCN) 

FDA * LOC. OF 1ST DRUM ENTRY* 

K « BUFFER CAPACITY IN ENTRIES* 

DBL » K*(L+1) FOR ENTRY SUM TABLE 

DBL » K*L+1 FOR BLOCK SUM TABLE 

J « DRUM CAPACITY IN ENTRIES* 

I * 5 - DRUM NUMBER* 

FIXCON) ARG1+L*»L 

TDA»»N 
*** FDA#*K*L 

DBL*. J 
TXI ALT»*I 

FLOCON) ARG1+L»*L 

TDA»*N 
*** FDA**K*L 

DBL»«J 
TXI ALT«»I 

TAU1 ) AR61+L**L 
TDA»*N 
«** FDA»*K*L 
DBL»*J 



4F 10154 
4F10155 
4F10156 
4F10157 
4F10158 
4F10159 
4F10160 
4F10161 
4F10162 
4F10163 
4F10164 
4F10165 
4F10166 
4F10167 
4F10168 
4F10169 
4F10170 
4F10171 
4F10172 
4F10173 
4F10174 
4F10175 
♦4F10176 
4F10177 
4F10178 
4F10179 
•4F10180 
4F10181 
4F10182 
4F10183 
•4F10184 
4F10185 
4F10186 
•4F10187 
•4F10188 
4F10189 
4F10190 
4F10191 
4F10192 
4F10193 
4F10194 
4F10195 
4F10196 
4F10197 
4F10198 
4F 10199 
4F10200 
4F10201 
4F10202 
4F10203 
4F10204 
4F10205 
4F10206 
4F10207 



(■■'! 



00431 1 00001 02073 TAU11X TXI ALT»»5-4 



00432 
00433 
00434 
00435 
00434 

0043? 
00440 
00441 
00442 
00443 

00444 
00445 
00446 
00447 
00450 

00451 
00452 
00453 
00454 
00455 

00456 
00457 
00460 
00461 
00462 

00463 
00464 
00465 
00466 
00467 



00004 
00000 
00060 
00132 



01135 
00454 
00454 
00074 



P2E E+3+4*»4 
PZE TAU2t»** 
TXL TAU2»tl2*4 
PZE 12*5 »*90 



1 00001 02073 TAU2IX TXI ALT**5-4 



00006 01137 
00000 01356 
-3 00060 01356 
00113 00070 



PZE E+3+6»#6 
P2E TAU3t»*« 
7XL TAU3»»8*6 
PZE 8*7»»75 



1 00001 02073 TAU3IX TXI ALT*»5-4 



00001 01142 

00001 01230 

-3 00036 01226 

00036 00074 



PZE E+11+ltil 
PZE SIGMA1+2**1 
TXL SIGMA1»*30*1 
PZE 30*2»*30 



1 00003 02073 SI61IX TXI ALT»*5-2 

O 00002 01107 PZE lC+2*#2 
00000 00310 PZE DIMl*t** 
-3 00000 00310 0RG0M1 TXL DIM1»»0 

00144 00000 PZE 0**100 

1 00002 02071 DIM1IX TXI DIMALT**5-3 

00002 01107 PZE K+2»*2 
00000 00764 PZE DIM2**** 
'3 00000 00764 0RGDM2 TXL DIM2»*0 

00144 00000 PZE 0**100 

1 00002 02071 DIM2IX TXI DIMALT**5-3 



TXI ALTttI 

TAU2 > ARG1+L**L 
TDA»»N 
*»# FDA**K*L 

D8L*»J 
TXI ALT*»I 

TAU3 ) ARG1+L»»L 
TDA**N 

♦** FDA»*K.*L 
DBL»*J 

TXI ALT»«I 

S1GMA1* ARG1+L**L 
TDA**N 

*** FDA»*K*L 
D8L*«J 

TXI ALT»*I 

0IM1 ) ARG1+L»»L 
TDA**N 
*** FOA»»K*L 

OBL»#J 
TXI ALT»»I 

0IM2 ) ARG1+L»#L 
TDA»«N 

»** FDA»*K*L 
DBL**J 

TXI ALT»*I 



00003 OHIO PZE lC+3**3 DIM3 

00000 01440 PZE DIM3**** 
-3 00000 01440 0RGDM3 TXL DIM3*»0 

00132 00000 PZE 0**90 

1 00002 02071 DIM3IX TXI DIMALT**5-3 

END OF DRUM TABLE PARAMETERS* 



) AR61+L#.L 

TOA»*N 
*** F0A**K*L 

0BL»*J 
TXI ALT**I 

************* 



00635 





00144 





ooooo 


BS 


00636 





00000 





00000 


EC 


00637 





00000 





ooooo 

00640 


BBOX 
CIB 



COUNT AND SUFFER FOR TABLE OF FUNCTION NAMES AND DEGREES* 

00470 BK BSS 1 FORSUB COUNTER* 

00471 FORSUB BSS 100 NAMES AND DEGREES OF FUNCTIONS* 

END OF FUNCTION COUNT AND BUFFER. 
****************************** 

PARAMETERS AND BUFFER FOR COMPILED INSTRUCTION TABLE* 
PZE *»100 CIB CAPACITY (4 * 25). 

PZE »»** ENTRY COUNT » NO* WORDS IN CIB. 

PZE •*** 2S COMPLEMENT OF THE ENTRY COUNT* 

BSS 100 COMPILED INSTRUCTION BUFFER* 

END OF CIT PARAMETERS AND BUFFER. 

****************************** 



4F10208 
4F10209 
4F10210 
4F10211 
4F10212 
4F10213 
4F10214 
4F10215 
4FI0216 
4F10217 
4F10218 
4F10219 
4F1O220 
4F10221 
4F10222 
4F10223 
4F10224 
4F10225 
4F 10226 
4F10227 
4F10228 
4F10229 
4F10230 
4F10231 
4F10232 
4F10233 
4F10234 
4F10235 
4F 10236 
4F10237 
4F1Q238 
4F10239 
4F10240 
4F10241 
4F10242 
4F10243 
4F 10244 
4F 10245 

♦4F10246 
4F10247 
4F10248 
4F10249 
4F10250 
4F10251 

*4F10252 
4F10253 
4F10254 
4F10255 
4F10256 
4F10257 
4F10258 
4F10259 

♦4F10260 
4F10261 



tefV 



u 



u 



01100 
01100 
01105 
01112 
01113 
01114 
01115 
01116 
01117 
01120 

01121 '0 00001 00004 
01122 

01123 00000 00000 
01124 
01125 
01126 
01144 
01147 
01150 
01151 
01152 
01331 
01332 
01333 
01347 
01351 

01352 307400000000 

01353 
01354 

01357 00000 00000 
01360 
01361 
01362 

01363 00000 00000 

01364 00000 00010 

01365 

01366 1 00000 00000 

01367 

01370 

01371 00000 00370 

01372 00000 00000 



01373 +000000000012 

01374 +000000000077 

01375 +000000000074 

01376 +000000000073 

01377 +000000000034 

01400 +000000000013 

01401 +000000000040 



ABOVE BUFFERS AND PARAMETERS ARE USED BY 1 PRIME* 

COMMON WORKING STORAGE* 

COMMON WORKING STORAGE* 

COMMON WORKING STORAGE* 

COMMON WORKING STORAGE FOR STATE A 



ALL OF THE 
ORG 576 
ERASE BSS 5 
1C BSS 5 
1G BSS 1 
26 BSS 1 
3G BSS 1 
1H BSS 1 
2H BSS 1 
3LBAR BSS 1 
ARERAS BSS 1 
ARGCNT MZE 4**1 
ARGCTR BSS 1 
CALLNM PZE **•»** 
CHSAVE BSS 1 
DIMSAV BSS 1 
E BSS 14 
EPSM3 BSS 3 

EPS BSS 1 
E1C BSS 1 

EFN BSS 1 
F BSS 111 
FIRSTC BSS 1 
FSNAME BSS 1 
FT BSS 12 
G BSS 2 

GTAG BSS 1 
HOLCNT 8CD lHtOOOO 
I BSS 1 
LEFT BSS 3 
LENGTH PZE ****** 
NBAR BSS 1 

N2 BSS 1 
OPNWRD BSS 1 
PHI(I) PZE ****** 

RAT PZE 8**** 
RESIOU BSS 1 

SET PON »« 

SL BSS 1 
SYMBOL BSS 1 

TL PZE 31*8**** . „ 

TLINE PZE ** VARIABLE USED BY IOT* 

END OF COMMON WORKING STORAGE* BUFFERS* AND PARAMETERS* 
« »*#********************""'" 

COMMON/2-CONSTANTS USED BY SECTION ONE* 

11010) - CTEST-11 
111111 - CTEST-10 
( - CTEST-9 
• - CTEST-8 
> - CTEST-7 
s - CTEST-6 
- CTEST-5 



STORAGE USED BY ARITHMETIC* 
STORAGE USED BY ARITHMETIC* 
ARGUMENT COUNTER USED BY C30*C32* 
STORAGE USED BY ARITHMETIC* 

WORKING STORAGE USED BY ROYCNV* 
WORKING STORAGE USED BY SSOOO* 
WORKING STORAGE USED BY SSOOO* 

EPSILON - VARIABLE USED BY RAOOO* 
COMMON WORKING STORAGE* 
EXTERNAL FORMULA NUMBER (F-D* 
ASSEMBLED STATEMENT REGION* 
USED BY SSOOO *TESTFX*C3000* 
NAME OF FUNCTION* 
SOURCE PROGRAM INPUT BUFFER. 

VARIABLE USED BY IOT* RA* 
WORKING STORAGE USED BY C3300* 

STORAGE USED BY ARITHMETIC* 

STORAGE USED BY ARITHMETIC* 

ERASABLE USED BY STATE D* 

VARIABLE USED BY IOT* 

REMAINDER OF F-REGION WORD. (C0190) 

WORKING STORAGE USED BY SSOOO* 



****** 



TEN 


OCT 


12 


ENDMK 


OCT 


77 


OPEN 


OCT 


74 


COMMA 


OCT 


73 


CLOS 


OCT 


34 


EQUAL 


OCT 


13 


11Z 


OCT 


40 



4F10262 
4F102625 

4F10263 
4F10264 
4F10265 

•4F10266 
4F10267 
4F19268 
4F10269 
4F10270 
4F10271 
4F10272 
4F 10273 
4F10274 
4F10275 
4F10276 
4F10277 
4F10278 
4F 10279 
4F10280 
4F10281 
4F10282 
4F10283 
4F10284 
4F10285 
4F 10286 
4F10287 
4F10288 
4F10289 
4F10290 
4F10291 
4F10292 
4F10293 
4F10294 
4F10295 
4F10296 
4F10297 
4F10298 
4F10299 
4F10300 
4F10301 
4F10302 
4F10303 

*4F10304 
4F10305 
4F10306 
4F10307 
4F10308 
4F10309 
4F10310 
4F10311 
4F10312 
4F10313 
4F10314 



01402 ♦000000000061 

01403 ♦000000000033 

01404 ♦000000000020 

01405 +000000000054 

01406 

01406 000000000000 

01407 000000000001 

01410 000000000002 

01411 000000000003 

01412 000000000004 

01413 000000000005 

01414 000000000006 

01415 000000000007 

01416 000000000010 

01417 000000000011 

01420 +000000000014 

01421 000000000023 

01422 000000000026 

01423 000000000030 

01424 +000000000032 

01425 000000000046 

01426 +000000000052 

01427 +000000000053 

01430 +000000000060 

01431 000000000062 

01432 000000000063 

01433 000000000067 

01434 000000000071 

01435 +000000000072 

01436 +000000000100 

01437 +000000000121 

01440 +000000000140 

01441 +000000000160 

01442 +000000000777 

01443 +000000001000 

01444 000000002174 

01445 000000003074 

01446 000000003174 

01447 +000000006212 

01450 +000000006712 

01451 +000000007112 

01452 +000000077777 

01453 +000000400000 

01454 +000001000000 

01455 00001 00001 

01456 +000001000002 

01457 00002 00000 

01460 +000002000004 

01461 00003 00000 

01462 +000003077775 

01463 00006 00000 

01464 00020 00000 

01465 00021 00000 



SLASH 


OCT 


61 


POINT 


OCT 


33 


12Z 


OCT 


20 


STAR 


OCT 


54 


CTEST 


BSS 





L(0) 


BCD 


1000000 


L(l) 


BCD 


1000001 


L<2> 


BCD 


1000002 


L(3> 


BCD 


1000003 


L<4) 


BCD 


1000004 


L<5) 


BCD 


1000005 


L(6) 


BCD 


1000006 


L(7) 


BCD 


1000007 


L(8) 


BCD 


1000008 


L(9) 


BCD 


1000009 


MINUS 


OCT 


14 


L(C) 


BCD 


100000C 


L(F) 


BCD 


100000F 


L(H) 


BCD 


1 00000 H 


CHAR2 


OCT 


32 


L(0) 


BCD 


1000000 


CHAR3 


OCT 


52 


SPECOP 


OCT 


53 


BLANK. 


OCT 


60 


L(S) 


BCD 


100000S 


LCT) 


BCD 


100000T 


L(X) 


BCD 


10Q000X 


Hl\ 


BCD 


100000Z 


PM 


OCT 


72 


BIT29 


OCT 


100 


A81 


DEC 


81 


L(96) 


OCT 


140 


LU12) 


OCT 


160 


MASK3 


OCT 


777 


1£9 


OCT 


1000 


LIAU 


BCD 


10000A( 


L<H() 


BCD 


10000H ( 


L(IO 


BCD 


10000K 


SAPSYM 


OCT 


6212 


IFSYM 


OCT 


6712 


CALLER 


OCT 


7112 


MASK2 


OCT 


77777 


2E17 


OCT 


400000 


2E18 


OCT 


1000000 


DECR1 


PZE 


l»tl 


ABTAG2 


OCT 


1000002 


D2 


PZE 


• •2 


ABTAG3 


OCT 


2000004 


D3CN 


PZE 


• ♦3 


BETAD2 


OCT 


3077775 


06 


PZE 


»»6 


FSIND 


PZE 


• •16 


0EC17 


PZE 


• •17 



/ - CTEST-4 

• - CTEST-3 
+ - CTEST-2 

* - CTEST-1 

ADDRESS USED FOR INDEXING ABOVE. 



C 

F 

H 

CONSTANT USED BY CDOOO. 

(ALPHABETIC) 

CONSTANT USED BY CDOOO. 

00000$ 

000000000060 

S 

T 

X 

Z 

RECORD MARK (ILLEGAL) -CDOOO 

CONSTANT USED BY IOT» 
USED BY C0500. 
USED BY C0400. 

-ARITHMETIC* 

ADDRESS*8 

INTERNAL FLO-PT VARIABLE PREFIX. 

INTERNAL FXD-PT VARIABLE PREFIX. 



2**15-1 -ARITHMETIC. 

TAG*4 

DECREMENT* 1 

CONSTANT USED BY DRTABS. 
CONSTANT USED BY C320O. 
CONSTANT USED BY IOT. 
CONSTANT USED BY C3200. 
CONSTANT USED BY IOT. 
3*2**18+1-3) -ARITHMETIC. 
CONSTANT USED BY IOT. 



4F10315 
4F10316 
4F10317 
4F10318 
4F10319 
4F 10320 
4F10321 
4F10322 
4F10323 
4F10324 
4F10325 
4F 10326 
4F10327 
4F10328 
4F10329 
4F10330 
4F10331 
4F10332 
4F10333 
4F10334 
4F10335 
4F10336 
4F10337 
4F10338 
4F10339 
4F10340 
4F10341 
4F 10342 
4F10343 
4F10344 
4F 10345 
4F10346 
4F10347 
4F10348 
4F10349 
4F10350 
4F10351 
4F10352 
4F10353 
4F10354 
4F10355 
4F 10356 
4F10357 
4F10358 
4F10359 
4F10360 
4F10361 
4F10362 
4F10363 
4F10364 
4F10365 
4F 10366 
4F10367 
4F10368 



U 



o 



o 



01466 


00022 00000 


DEC IB 


PZE 


♦ .18 


01467 


4000032000000 


PZ 


OCT 


32000000 


01470 


+000037777600 


MASKS 


OCT 


37777600 


01471 


00040 00000 


FNIND 


PZE 


• •32 


01472 


00043 00000 


DEC35 


PZE 


♦ .35 


01473 


+000052 000000 


MZ 


OCT 


52000000 


01474 


+000200000000 


NGTBIT 


OCT 


000200000000 


01475 


00220 00000 


♦BTA 


PZE 


»»144 


01*76 


00300 00000 


BOA 


PZE 


0*0*192 


01477 


006060606060 


5BLANS 


BCD 


10 


01500 


010000000000 


E( 


BCD 


1100000 


01501 


020000000000 


K 


BCD 


1200000 


01502 


030000000000 


A( 


BCD 


1300000 


01503 


040000000000 


P( 


BCD 


1400000 


01504 


060000000000 


0( 


BCD 


1600000 


01505 


070000000000 


X( 


BCD 


1700000 


01506 


+077775077775 


BE TAD 1 


OCT 


77775077775 


01507 


+077777000000 


1BAR 


OCT 


77777000000 


01510 


+170000000000 


15P 


DEC 


15B5 


01511 


+176060606060 


PROCTR 


OCT 


176060606060 


01512 


+200000000000 


ADPLUS 


OCT 


200000000000 


01513 


217400000000 


FLOVAR 


BCD 


1A(0000 


01514 


256747740160 


FXFX 


BCD 


lEXPd 


01515 


256747740260 


FLFX 


BCD 


1EXP(2 


01516 


256747740360 


FLFL 


BCD 


IEXPJ3 


01517 


317400000000 


FIXVAR 


BCD 


11(0000 


01520 


-0 00000 00000 


MINUSO 


MZE 





01521 


-0 00002 00000 


DECMI2 


MZE 


»>2 


01522 


-130000000000 


ADSPOP 


OCT 


S30000000000 


01523 


-136000000000 


DOLSGN 


OCT 


5360COO00O00 


01524 


-140000000000 


ADSTAR 


OCT 


-140000000000 


01525 


-145400000000 


STRSTR 


OCT 


-145400000000 


01526 


606060606060 


BLANKS 


BCD 


1 


01527 


-377777700000 


MASK1 


OCT 


-377777700000 


01530 


-377777777737 


MASK4 


OCT 


-377777777737 


01531 


-377777777777 


ALL1 


OCT 


-377777777777 


01532 


212424000000 


L(ADD) 


BCD 


1ADD000 


01533 


214362000000 


L(ALS) 


BCD 


1ALS000 


01534 


214521000000 


L(ANA) 


BCD 


1ANA000 


01535 


215162000000 


L(ARS) 


BCD 


1ARS000 


01536 


226262000000 


L(BSS) 


BCD 


1BSSOO0 


01537 


232143000000 


L(CAL) 


BCD 


1CAL000 


01540 


233062000000 


L ( CHS ) 


BCD 


1CHS000 


01541 


234321000000 


UCLA) 


BCD 


1CLA000 


01542 


234344000000 


L(CLM) 


BCD 


1CLM000 


01543 


234362000000 


UCLS) 


BCD 


1CLSO0O 


01544 


234770000000 


L(CPY) 


BCD 


1CPY000 


01545 


242363000000 


LIDCT) 


BCD 


1DCT000 


01546 


242524000000 


L(DED) 


BCD 


1DED000 


01547 


246547000000 


L(DVP) 


BCD 


1DVP000 


01550 


262124000000 


UFAD1 


BCD 


1FAD000 


01551 


262447000000 


L(FDP) 


BCD 


1FDP000 


01552 


264447000000 


L(FMP) 


BCD 


1FMP000 



PLUS ZERO -CDOOO. 



MINUS ZERO -CDOOO. 



-ARITHMETIC. 



CONSTANT USED BY IOT. 
CONSTANT USED BY IOT. 
006060606060 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 

-ARITHMETIC. 
t-3(*2**18+(-3) -ARITHMETIC. 
J 2**15-1 )*2**18DECREMENT MASK. 
CONSTANT USED BY IOT. 

ADDITION SIGN -ARITHMETIC. 

AC INTERNAL FLOATING PT. VARIABLE* 



I( INTERNAL FIXED PT. VARIABLE. 



SOOOOO 

CONSTANT USED BY C32O0O 
MULTIPLICATION SIGN -ARITHMETIC* 
EXPONENTIATION SIGN -ARITHMETIC. 
606060606060 

-C2**20-U.*2**15 -ARITHMETIC. 
-ARITHMETIC. 
END OF STATEMENT WORD. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 



4F10369 
4F10370 
4F10371 
4F10372 
4F10373 
4F10374 
4F 10375 
4F10376 
4F10377 
4F10378 
4F10379 
4F10380 
4F10381 
4F10382 
4F10383 
4F10384 
4F10385 
4F10386 
4F10387 
4F10388 
4F10389 
4F10390 
4F10391 
4F10392 
4F10393 
4F10394 
4F10395 
4F10396 
4F10397 
4F10398 
4F10399 
4F10400 
4F10401 
4F10402 
4F10403 
4F10404 
4F10405 
4F10406 
4F10407 
4F10408 
4F10409 
4F10410 
4F10411 
4F10412 
4F10413 
4F10414 
4F10415 
4F1Q416 
4F10417 
4F10418 
4F10419 
4F10420 
4F10421 
4F10422 



/ 



01553 


266222000000 


L(FSB> 


BCD 


1FSB000 


01554 


304751000000 


L ( HPR ) 


BCD 


1HPR000 


01555 


432421000000 


L(LDA) 


BCD 


1LDA0O0 


01556 


432450000000 


L(LDQ) 


BCD 


1LDQ000 


01557 


434362000000 


L(LLS) 


BCD 


1LLS000 


01560 


435162000000 


LtLRS) 


BCD 


1LRS0O0 


01561 


436724000000 


L(LXD) 


BCD 


1LXD000 


01562 


444770000000 


L(MPY) 


BCD 


1MPY000 


01563 


446225000000 


L(MSE) 


BCD 


1MSE000 


01564 


465121000000 


L(ORA) 


BCD 


10RAOOO 


01565 


476225000000 


L(PSE> 


BCD 


1PSEOO0 


01566 


476724000000 


L(PXD) 


BCD 


1PXDOO0 


01567 


504751000000 


L ( QPR ) 


BCD 


1QPR000 


01570 


506724000000 


L(QXO) 


BCD 


1QXDOO0 


01571 


626321000000 


L(STA) 


BCD 


1STA000 


01572 


626346000000 


L(STO) 


BCD 


1STO000 


01573 


626350000000 


L(STO) 


BCD 


1STQ000 


01574 


626422000000 


L(SUB) 


BCD 


1SUB000 


01575 


626724000000 


L(SXD) 


BCD 


1SXD000 


01576 


633167000001 


L(TIX) 


BCD 


1TIX001 


01577 


634665000000 


L(TOV) 


BCD 


1TOVOO0 


01600 


635046000000 


L(TQO) 


BCD 


1TQOOO0 


01601 


635121000000 


L(TRA) 


BCD 


1TRAO00 


01602 


636267000000 


L(TSX) 


BCD 


1TSX000 


01603 


642621000000 


L(UFA) 


BCD 


1UFA000 



* * # * 



01604 


-0 


63400 


2 


01607 


C0150 


SXD 


C015X.2 


01605 





07400 


4 


01707 




TSX 


C0190»4 


01606 





34000 





01417 




CAS 


L(9) 


01607 


1 


00000 





01615 


C015X 


TXI 


C0151.0.** 


01610 





76100 





00000 




NOP 




01611 





07400 


2 


01655 




TSX 


C0180*2 


01612 





60100 





01113 




STO 


2G 


01613 





50000 





O1406 




CLA 


L<0) 


01614 


1 


00000 





01620 


FWA 


TXI 


C0152.0.** 


01615 





07400 


2 


01624 


C0151 


TSX 


C0160.2 


01616 





60100 





01113 




STO 


2G 


01617 





50200 





01406 




CLS 


LCO) 


01620 





60100 





01353 


C0152 


STO 


I 


01621 





50000 





01113 




CLA 


26 


01622 


-0 


53400 


2 


01607 




LXD 


C015X.2 


01623 





02000 


2 


00001 




TRA 


1»2 

END OF PROGRAM C0150. 



4F10423 
4F10424 
4F10425 
*F10426 
4F10427 
4F10428 
4F10429 
4F10430 
4F10431 
4F10432 
4F10433 
4F10434 
AF10435 
4F10436 
4F10437 
4F10438 
4F10439 
4F10440 
4F10441 
4F10442 
4F10443 
4F10444 
4F10445 
4F1Q446 
4F10447 
4F10448 

♦4F10449 
4F10450 
4F10451 
4F10452 

♦4F10453 
AF10454 

C0150.2/ CALLS=C0190*DIAG.C0180»C0160. CALLER=C0100. 4F10455 

C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC* SETS I4F10456 

• 0* AMD CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON- 4F10457 
NUMERIC. SETS I » -0* AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458 

UNTIL A »H* OR ENDMK IS MET. AND LEFT IN THE AC. 4F10459 

rnuv., SAVE THE CCXR2). 4F10460 

TEST 1ST NON-BLANK CHARACTER 4F10461 

FOR NUMERIC OR NON-NUMERIC. 4F10462 

IF NON-NUMERIC* TRANSFER. 4F10463 

IF NUMERIC. THEN 4F10464 

GO CONVERT TO BINARY. 4F10465 

SAVE NEXT NON-NUMERIC CHARACTER. 4F10466 

PREPARE TO SET I TO +0. 4F10467 

GO SET I FOR NUMERIC. 4F10468 

ASSEMBLE NON-NUMERICS IN 1G. 4F10469 

SAVE PUNCTUATION MARK. AND 4F10470 

PREPARE TO SET I TO -0. AF10471 

SET I « +0* OR -0. 4F10472 

PICKUP NEXT CHARACTER. 4F10473 

RESTORE THE C(XR2)» AND 4F10474 

RETURN TO CALLER. 4F 10475 

4F10476 



SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
CONSTANT USED BY C3200. 
CONSTANT USED BY C3200. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 

SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
SYMBOLIC OPERATION CODE. 
END OF COMMON CONSTANTS USED BY SECTION ONE. 

COMMON/3-SUBROUTINES USED BY SECTION ONE= 

• * * *************************** 



/? 



o 



o 



n 



****************************** #4Fl0477 

4F 10478 
C0160»2/ CALLS=C0190»DIA6* CALLERS*CO100»C02OO»ClOO0*C1200* 4F10479 
C150O*C3O00*C310O»C0150. 4F10480 

C0160 ASSEMBLES LEFT-ADJUSTED IN 1G» THE CHAR IN THE AC AND 4F10481 
SUCCESSIVE NB CHARS STARTIN6 IN THE MQ» UNTIL A »U* OR ENDMK4F10482 



01624 


-0 63400 2 01631 


C0160 


SXD C016Xt2 


01625 


53400 2 01406 




LXA L<0)»2 


01626 


60000 01112 




STZ 1G 


01627 


53400 4 02652 


C0161 


LXA CTESTX*4 


01630 


34000 4 01406 


C0162 


CAS CTEST»4 


01631 


1 00000 01633 


C016X 


TXI C0163»0t** 


01632 


1 00000 01642 




TXI C0165»0 


01633 


2 00001 4 01630 


C0163 


TIX C0162*4*l 


01634 


-3 00036 2 01636 




TXL C0164*2»30 


01635 


07400 4 03400 




TSX DIAG»4 


01636 


76700 2 00036 


C0164 


ALS 30 » 2 


01637 


-0 60200 01112 




ORS 1G 


01640 


07400 4 01707 




TSX C0190*4 


01641 


1 00006 2 01627 




TXI C0161»2*6 


01642 


3 00000 2 01644 


C0165 


TXH C0167»2*0 


01643 


07400 4 03400 


C0166 


TSX DIAG>4 


01644 


-3 00005 4 01643 


C0167 


TXL C0166*4»5 


01645 


60100 01115 




STO 1H 


01646 


50000 01430 




CLA BLANK 


01647 


76700 2 00036 




ALS 30t2 


01650 


-0 60200 01112 




ORS 1G 


01651 


50000 01115 




CLA 1H 


01652 


-0 53400 2 01631 




LXD C016X*2 


01653 


02000 2 00001 




TRA 1*2 

END OF PROGRAM CO 160* 

##**#*♦**»*» 



01654 


07400 4 01707 


CO 18 OX 


TSX 


C0190*4 


01655 


60100 01112 


C0180 


STO 


1G 


01656 


07400 4 01707 




TSX 


C0190»4 


01657 


34000 01417 




CAS 


L(9) 


01660 


02000 2 00001 




TRA 


1*2 


01661 


76100 00000 




NOP 




01662 


60100 01113 




STO 


2G 


01663 


50000 01112 




CLA 


1G 


01664 


76700 00002 




ALS 


2 


01665 


40000 01112 




ADD 


1G 


01666 


76700 00001 




ALS 


1 


01667 


40000 01113 




ADD 


2G 


01670 


1 76626 01655 


DCF 


TXI 


C0180»0*-F 
END OF PROGRAM C0180. 



IS MET AND LEFT IN THE AC* ALSO MARKS END OF WORD WITH A 
BLANK* IF LESS THAN 6 CHARACTERS* 

SAVE THE C(XR2)» AND 

SET XR2 TO CONTROL SHIFTING* 

CLEAR WORKING STORAGE* 

TEST 

CHARACTER 

IN THE AC 

AGAINST 

ALL PUNCTUATION* 

IF SYMBOL EXCEEDS 6 CHARACTERS* 

* GO TO THE DIAGNOSTIC* 
BUILD LEFT-ADJUSTED 
SYMBOL IN WORKING STORAGE* 

* GET NEXT NB CHARACTER IN THE AC* 
UPDATE SHIFT COUNT* AND CONTINUE* 
IF PUNCTUATION IS 1ST CHARACTER* 

* OR ILLEGAL* GO TO THE DIAGNOSTIC* 
IF LEGAL PUNCTUATION* THEN 
SAVE* AND 
ADD A BLANK 

TO SYMBOLS THAT ARE LESS 
THAN 6 CHARACTERS IN LENGTH* 
PICKUP PUNCTUATION MARK* 
RESTORE THE CCXR2)* AND 

* RETURN TO CALLER* 

****************** 

C0180»2/ CALLS=C0190»DIAG. CALLERS=C0100*C0200*C0300»C0400* 

C1000*C1100*C1200*C1400»C1500»C0150* 

C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MO TO 

BINARY* PLACES RESULT IN 1G», AND LEAVES 1ST NON-NUMERIC IN 

THE AC* 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC* 

OBTAIN 1ST NUMERIC IN THE AC* 

PLACE 1ST NUMERIC IN 1G* 

EXAMINE NEXT NON-BLANK CHARACTER* 

AND IF NON-NUMERIC* THEN 

RETURN TO CALLER* 

IF NUMERIC* THEN 

SAVE DIGIT IN 2G* 

MULTIPLY 

C(16) 

BY 

10* 

AND ADD CURRENT DIGIT* 

REPEAT PROCESS FOR NEXT CHARACTER* 



4F10483 
4F10484 
4F10485 
4F10486 
4F10487 
4F10488 
4F10489 
4F10490 
4F10491 
4F10492 
4F10493 
4F10494 
4F10495 
4F10496 
4F10497 
4F10498 
4F10499 
4F10500 
4F10501 
4F10502 
4F10503 
4F10504 
4F10505 
4F10506 
4F10507 
4F10508 
4F10509 
♦4F10510 
4F10511 
4F10512 
4F10513 
4F10514 
4F10515 
4F10516 
4F105165 
4F10517 
4F10518 
4F10519 
4F10520 
4F10521 
4F10522 
4F10523 
4F10524 
4F10525 
4F10526 
4F10527 
4F10528 
4F10529 



I,'' 1 



01671 50000 01670 C0190X CLA 

01672 62200 01614 STD 

01673 -0 63400 01724 SXD 

01674 02000 4 00001 TRA 



01675 





50000 





01374 


C0390 


CLA 


01676 


-0 


53400 


2 


01614 




LXD 


01677 


-0 


53400 


1 


01724 




LXD 


01700 


-2 


00001 


1 


01703 




TNX 


01701 


-0 


76300 





00006 


C0392 


LGL 


01702 


2 


00001 


1 


01701 




TIX 


01703 





76000 





00006 


C0393 


COM 


01704 





32000 


2 


77777 




ANS 


01705 


-0 


76300 





00044 




LGL 


01706 


-0 


60200 


2 


77777 




ORS 



***************************** 

C0190X»4/ CALLERS=CDOO0»CB000»CC0O0»C0300»C3300. 

C0190X INITIALIZES C0190 TO OBTAIN 1ST WORD OF FORMULA IN F 

DCF SET FORMULA WORD 

FWA ADDRESS « -(F-REGION ADDRESS)* 

CHCTR»0 SET CHARACTER COUNT * 0* 

1.4 * RETURN TO MAIN ROUTINE* 

END OF PROGRAM C0190X. 
****************************** 

C0390»4/ CALLERS=C0300*C3300. 

C0390 INSERTS THE CHARACTER IN THE AC INTO THE 1ST POSITION 

TO THE LEFT OF THAT DEFINED BY FWA AND XR1. 

ENDMK PREPARE TO CHANGE 

FWA* 2 THE PROPER CHARACTER 

CHCTRtl IN THE F-REGION. 

C0393*l»l ADJUST MASK 

6 TO POSITION 

C0392»l*l CHARACTER. 

INVERT MASK* AND 
-1.2 ERASE PROPER CHARACTER. 

36 ADJUST CHARACTER* AND 

-1*2 INSERT IN ERASED POSITION. 

C0390 CONTINUES BY USING C0190. 

















C0190 OBTAINS IN AC T 


01707 


-0 


63400 


1 


01723 


C0190 


SXD 


C0194»l 


01710 


-0 


53400 


1 


01724 




LXD 


CHCTR. 1 


01711 





56000 





01365 




LDQ 


RESIDU 


01712 


2 


00001 


1 


01720 


C0191 


TIX 


C0193*l»l 


01713 


-0 


53400 


1 


01614 




LXD 


FWAtl 


01714 





56000 


1 


00000 




LDQ 


0»1 


01715 


1 


77777 


1 


01716 




TXI 


C0192.1.-1 


01716 


-0 


63400 


1 


01614 


C0192 


SXD 


FWA»1 


01717 





53400 


1 


01414 




LXA 


L(6)»l 


01720 


-0. 


75400 





00000 


C0193 


PXD 


• 


01721 


-0 


76300 





00006 




LGL 


6 


01722 





34000 





01430 




CAS 


BLANK 


01723 


1 


00000 





01725 


C0194 


TXI 


C0195*0»*» 


01724 


1 


00000 





01712 


CHCTR 


TXI 


C0191»0»** 


01725 


-0 


63400 


1 


01724 


C0195 


SXD 


CHCTRtl 


01726 


-0 


60000 





01365 




STQ 


RESIDU 


01727 


-0 


53400 


1 


01723 




LXD 


CO 194*1 


01730 





02000 


4 


00001 




TRA 


1*4 

END OF PROGRAM C0190 
*********** 



* *4F10530 
4F10531 
4F10532 
F. 4F10533 
4F10534 
4F10535 
4F10536 
4F10537 
4F10538 
*4F10539 
4F10540 
4F10541 
4F10542 
4F10543 
4F10544 
4F10545 
4F10546 
4F10547 
4F10548 
4F10549 
4F10550 
4F10551 
4F10552 
4F10553 
4F10554 
4F10555 
C0190»4/ CALLERS=CDOOO»CBOOO»CCOOO.C0100*C0200»C0300»C0400» 4F10556 
C0900*CIOOO*C1100*C1200»C1400*C1500»C1600»C3000»C3100»C3200» 4F10557 
C3300*C3400»C0150*C0160*C0180*SSOOO*ROYCNV»RSC»LPR. 4F10558 

NEXT NON-BLANK CHARACTER OF FORMULA. 4F10559 
SAVE THE C(XR1)» AND 4F10560 

SET XR1 * CHARACTER COUNT. 4F10561 

PICK UP ANY REMAINING CHARACTERS. 4F10562 
IF NONEt 4F10563 

PICK UP NEXT FORMULA 4F10564 

WORD FROM F-REGION* 4F10565 

AND INCREASE 4F10566 

FORMULA WORD ADDRESS BY 1. 4F10567 

RESET XR1 FOR 6 NEW CHARACTERS. 4F10568 
EXAMINE 4F10569 

NEXT CHARACTER 4F10570 

AND COMPARE WITH A BLANK. 4F10571 

IF BLANK* 4F10572 

GO EXAMINE NEXT CHARACTER. 4F10573 

IF NOT BLANK* RESET CHAR COUNT* 4F10574 
SAVE ANY REMAINING CHARACTERS* 4F10575 
RESTORE THE C<XR1)» AND 4F10576 

* RETURN TO MAIN ROUTINE. 4F10577 

4F10578 
****************** *4F10579 

4F10580 
CIT00»4/ CALLERS=C0200»C0400»C0900*C1000*C1100»C1300*C1600* 4F10581 
C3200»RDC»WBT*RBT*WRD»BRW»EFT*LPR*CMA»EMK* INPUT (OUTPUT)* 4F10582 
ETMSWfLTMSW) »LIB.VRA(VRD) • 4F10583 



// 



/< C 



U 



u 



n 



CITOO MAKES ENTRIES IN THE COMPILED INSTRUCTION TABLE. WHEN 
THE BUFFER IS FULL IT IS WRITTEN AS A RECORD ONTO TAPE 3. 



01731 
01732 
01733 
01734 
01735 
01736 
01737 
01740 
01741 
01742 
01743 
01744 
01745 
01746 
01747 
01750 
01751 
01752 
01753 
01754 
01755 
01756 
01757 
01760 
01761 
01762 
01763 
01764 
01765 
01766 
01767 
01770 



63400 
63400 
60000 
53400 
50000 
40200 
10000 
76600 
73400 
70000 
77777 
00001 
00001 
76600 
53400 
77777 
50000 
62100 
50000 
60100 
77777 
00001 
63400 
75400 
76000 
40000 
73400 
63400 
56000 
53400 
534O0 
02000 



01102 
01101 
01150 
00637 
00635 
00636 
01747 
00223 
00000 
00640 
01744 
01745 
01742 
00333 
01412 
01751 
00000 
01753 
00000 
00640 
01756 
01750 
00637 
02032 
00006 
01454 
02031 
00636 
01150 
01101 
01102 
00001 



CITOO SXD CITXR2»2 

SXD ClTXRltl 

STQ CITMQR 

LXD BB0X»2 

CLA BS 

SUB EC 

TNZ CIT04 

WRS C1TTAP 

PAX tl 
CIT01 CPY CIBtl 

TXI CIT02,1»-1 
CIT02 TXI CIT03»2»1 
CIT03 TXH CITQl»2»l 

IOD 
CIT04 LXA L(4) »1 
CIT05 TXI CIT05+1»4»~1 

CLA 0#4 

STA CIT06 
CIT06 CLA ** 

STO CIB, 2 

TXI CIT07*2*-1 
CIT07 TIX CIT05,1»1 

SXD BB0Xt2 
DMSR99 PXD DMSR05+1»2 

COM 

ADD 2E18 
DMSR98 PDX DMSR05,2 

SXD EC»2 

LDQ CITMQR 

LXD CITXR1,1 

LXD CITXR2»2 

TRA lt4 

END OF PROGRAM CITOO* 



4F10584 
4F10585 
4F10586 
4F10587 
4F10588 



SAVE THE CCXR2). 
SAVE THE CURD. 
SAVE THE CfMQRU 
SET XR2 = 2S COMPL OF N0-WRDS-ENTD.4F 10589 
COMPARE BLOCK SIZE 4 "? 59 ? 

WITH ENTRY COUNT. 4F10591 

IF BLOCK IS NOT FULL*GO MAKE ENTRY.4F 10592 
PREPARE TO WRITE BLOCK ON CIT TAPE.4F10593 
SET XR1 = 0, AND 4F10594 

COPY SUCCESSIVE ^MJf — 

WORDS OF BLOCK 4 ^?!?t 

AND CONTINUE 4F10597 

UNTIL XR2 = 0. ?-???? 

WHEN DONE, *"° 5 ** 

SET XR1 « ENTRY SIZE. 4F10600 

SET XR4 = -(ADDR OF NEXT ENTRY WRD)4F1060l 
AND PICK UP ADDRESS OF NEXT ENTRY 4F10602 
TO SET NEXT ADDRESS. 4F10603 

MOVE ENTRY *l l ° b °t 

INTO CIB BUFFER* 4F10605 

AND COUNT -1 FOR EACH WORD ENTERED. 4F10606 



WHEN DONE, 

SAVE THE C(XR2>» AND 
COMPUTE THE 
REAL NUMBER 
OF WORDS ENTERED 
IN CIB BUFFER* AND 
SAVE IN EC. 
RESTORE THE C(MQR)» 
RESTORE THE CtXRD* 
RESTORE THE C(XR2), AND 
* EXIT TO MAIN ROUTINE (5TH WRD CSJ. 

****************** 



01771 
01772 
01773 
01774 

01775 
01776 
01777 
02000 
02001 
02002 
02003 
02004 



•0 63400 4 01774 
-0 53400 4 00452 

50000 00453 

1 00000 02000 



63400 
53400 
50000 
62100 
50000 
62100 
50000 
00000 



01774 
00457 
00460 
01104 
01760 
02041 
02065 
02014 



DIM1SR SXD DMSROO, 4 

LXD DIMlIX-3,4 

CLA 0RGDM1 
DMSROO TXI DMSR01»0,** 

DIM2SR= ENTRY POINT FOR 
DIM2SR SXD DMSROO, 4 

LXD DIM2IX-3.4 

CLA 0RGDM2 
0MSR01 STA DRMADR 

CLA DMSR99 

STA DMSR15 

CAL DMCN12 
DMSR11 TXI DMSR02,0*** 



4F10607 
4F10608 
4F10609 
4F10610 
4F10611 
4F10612 
4F10613 
4F10614 
4F10615 
4F10616 
4F10617 
4F10618 
#4F10619 
4F10620 
4F10621 
4F10622 
4F10623 
4F10624 
4F10625 



DIM.SR*4/ CALLS=DIAG. CALLERS=C1200,SS000»CMA. 

DIM.SR SEARCHS THE DIMENSION TABLES. ENTRANCE IS TO DIM1SR* 

DIM2SR, OR DIM3SR ACCORDING TO THE DIMENSION. 

0IM1SR= ENTRY POINT FOR 1 DIMENSION TABLE. 

SAVE THE C(XR4) FOR RETURN* 

SET XR4 * NUMBER OF ENTRIES IN DIM14F10626 
AND PICK UP 1ST ADDRESS OF DIM1 TO 4F10627 
60 SET DRUM ADDRESS. 4F10628 

DIMENSION TABLE. 4F10629 

SAVE THE C(XR4> FOR RETURN, 4F10630 
SET XR4 * NUMBER OF ENTRIES IN DIM24F10631 
AND PICK UP 1ST ADDRESS OF DIM2 TO 4F10632 



SET DRUM ADDRESS. 

SET LOOP ADDRESS TO 

DMSR05+1 FOR DIM1 AND DIM2. 

(STZ D3> 

GO SET OP FOR DIM1 AND DIM2. 



4F10633 
4F10634 
4F10635 
4F10636 
4F10637 



-T -> X - 



02005 
02006 
02007 
02010 
02011 
02012 
02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 
02024 
02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 
02042 
02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 
02063 
02064 

02065 
02066 
02067 
02070 



63400 
53400 
50000 
62100 
50000 
62100 
50000 
60200 
60200 
00000 
63400 
53400 
63400 
53400 
76200 
50000 
46000 
70000 
04000 
70000 
OO000 
70000 
34000 
07400 
1 00000 
70000 
04000 
70000 
00001 
00000 
70000 
00000 
70000 
00001 
53400 
02000 
50000 
36100 
36100 
76000 
36100 
76000 
10000 
53400 
00001 
07400 
53400 
02000 



01774 
00464 
00465 
01104 
01763 
02041 
02066 
02031 
02044 
02047 
02004 
01413 
02035 
02004 
00303 
01130 
01104 
01100 
02043 
01101 
01102 
01103 
01100 
03400 
02051 
01100 
02043 
01101 
00000 
02047 
01101 
01102 
01103 
02026 
01774 
00001 
01100 
01101 
01102 
00006 
01103 
00006 
02063 
02035 
02021 
03400 
01774 
00002 



DIM3SR 



DMSR02 



DMSR14 
DMSR13 



DMSR04 



DMSR05 



DMSR12 



DMSR15 

DMSR06 
DMSR07 



DMSR08 
DMSR09 



DMSR10 



60000 01102 DMCN12 

70000 01102 DMCN3 

456351000000 ENT 

477125000000 NZE 



DIM3SR= ENTRY 
SXD DMSR00t4 
LXD DIM3lX-3*4 
CLA 0RGDM3 
STA DRMADR 
CLA DMSR98 
STA DMSR15 
CAL 0MCN3 
SLW DMSR05 
SLW DMSR07 
TXL 0MSR08»4»0 
SXD DMSR11»4 
LXA L(5)»4 
SXD DMSR12»4 
LXD DMSR11»4 
RDR 3 
CLA E+2 
LDA DRMADR 
CPY DRSYM 
TLQ DMSR06 
CPY D12 
PZE D3 
CPY DRCKSM 
CAS DRSYM 
TSX DIAG»4 
TXI DMSR09»0»»* 
CPY DRSYM 
TLQ DMSR06 
CPY D12 
TIX ***4»1 
TXI DMSR08»0 
CPY D12 
PZE 03 
CPY DRCKSM 
TIX DMSR04*4»1 
LXD DMSR00»4 
TRA 1»4 
CAL DRSYM 
ACL D12 
ACL D3 
COM 

ACL DRCKSM 
COM 

TZE DMSR10 
LXD DMSR12»4 
TIX DMSR13»4*1 
TSX DIAG.4 
LXD DMSR00»4 
TRA 2»4 

STZ D3 
CPY D3 
BCD 1NTR000 
BCD 1PZE000 



POINT FOR 3 DIMENSION TABLE. ?£}S!£?S 

SAVE THE CCXR4) FOR RETURN* 4F10639 
SET XR4 « NUMBER OF ENTRIES IN DIM34F10640 
AND PICK UP 1ST ADDRESS OF DIM3 TO 4F10641 



4F10642 
4F 10643 
4F10644 
4F10645 
4F10646 
4F10647 
4F10648 
4F10649 
4F10650 
4F10651 
4F10652 
4F 10653 
4F10654 
4F10655 
4F10656 



SET DRUM ADDRESS* 

SET LOOP ADDRESS TO 

DMSR05 FOR DIM3. 

<CPY D3J 

SET OP COOES ACCORDING 

TO DIMENSION. 

IF TABLE IS EMPTY* 60 OUT. 

SAVE ENTRY COUNT IN CASE OF ERROR. 

SET ERROR COUNTER FOR 5 ATTEMPTS. 

SAVE ERROR COUNTER* AND 

RESET ENTRY COUNT. 

SELECT DRUM. 

GET NAME OF VARIABLE. 

LOAD CURRENT DRUM ADDRESS* AND 

COPY DRUM SYMBOL. ^ , 

COMPARE WITH NAME OF VARIABLE* AND 4F10657 

IF NOT LESS* COPY Nl AND N2. 4F10658 

(DIM1 AND DIM2 * STZ . DIM3 = CPYW4F10659 

COPY CHECKSUM. 4F10660 

COMPARE DRUM SYMBOL WITH NAME OF V.4F10661 

GO TO DIAGNOSTIC - MACHINE ERROR. 4F10662 

IF NOT EQUAL* THEN 

CONTINUE 

PROCESS 

UNTIL 

TABLE 

IS EXHAUSTED. 

PASS OVER ENTRY 

(DIM1 AND DIM2 * STZ* DIM3 = CPY). 

AND CHECKSUM* AND 

REPEAT LOOP* 

RESTORE THE C(XR4)» AND 

TAKE NOT FOUND EXIT. 

COMPUTE A 

NEW 

LOGICAL CHECKSUM 

FOR ENTRY* AND 

COMPARE WITH 

DRUM CHECKSUM. 

IF NOT EQUAL* THEN 

REPEAT ATTEMPT* 

UNLESS PROCESS 

FAILED 5 TIMES IN READING DRUM. 

RESTORE THE CtXR4)» AND 

TAKE FOUND EXIT TO MAIN ROUTINE. 



CONSTANT USED BY DIM.SR. 
CONSTANT USED BY DIM.SR. 
VARIABLE USED BY 10 AND FL« 
VARIABLE USED BY FL* 



4F10663 
4F10664 
4F10665 
4F 10666 
4F10667 
4F10668 
4F10669 
4F10670 
4F10671 
4F10672 
4F 10673 
4F10674 
4F10675 
4F10676 
4F10677 
4F10678 
4F10679 
4F10680 
4F10681 
4F10682 
4F10683 
4F10684 
4F10685 
4F10686 
4F10687 
4F10688 
4F10689 
4F10690 
4F10691 



OV: 



U 



CJ 



ENO OF PROGRAM DIM.SR. 
#♦*»#*#*********» 



• **•••••'••••• 



02071 -0 50000 00415 

02072 1 00000 02074 



DRTAB5I»4)/ CALLS»RDRX.DIA6» CALLERS*O200*SS000*R0YCNV*CMA» 

VRAIVRDI. 

ORTABS IS CALLED BY TSX •♦..IX»4 -WHERE ..♦. IS THE NAME OF 
THE DRUM TABLE REFERRED TO. DRTABS MAKES ENTRIES IN THE DRUM 
TABLES* AND ALSO SEARCHES THE DRUM TABLES FOR INFORMATION* 
DIMALT* ENTRY POINT FOR DIMENSION TABLES. 
DiMALT CAL TXLOP PICK UP SWITCH CONTROL* 

TXI DRTABS*0 AND GO SET SWITCH FOR DIM TABLES. 

ALT* ENTRY POINT FOR ALL OTHER DRUM TABLES. 



02073 





50000 





00422 


ALT 


02074 





63000 





02135 


DRTABS 


02075 





50000 


4 


00000 




02076 


-0 


63400 


1 


02535 




02077 


-0 


63400 


2 


02173 




Q2100 


-0 


63400 


4 


02215 




02101 


-0 


60000 





02357 




02102 





40000 





01407 




02103 





62100 





02107 




02104 





40200 





01412 




02105 





62100 





02213 




02106 





53400 


1 


01413 




02107 


-0 


50000 


1 


00000 


MOVE 


02110 





60200 


1 


02365 




02111 


2 


00001 


1 


02107 




02112 





50200 





02360 




02113 





62100 





02221 




02114 





40000 





01407 




02115 





62100 





02200 




02116 





62100 





02202 




02117 





77100 





00021 




02120 





40100 





02526 




02121 





62100 





02530 




02122 





62100 





02555 




02123 


-0 


50000 





02362 




02124 





62200 





02235 




02125 





63000 





02530 




02126 





63000 





02152 




02127 





63000 





02210 




02130 





50OO0 





02533 




02131 





62100 





02222 




02132 





50000 





02361 




02133 


-0 


53400 


2 


02361 




02134 


-0 


63400 


2 


02146 




02135 


-3 


00000 





02145 


DIMSW 


02136 


-3 


00000 


2 


02150 




02137 


-0 


53400 


1 


02360 




0214O 


-0 


63400 


2 


02223 




02141 


-0 


63400 


2 


02143 




02142 


-2 


00001 


1 


02235 


ADD02 


02143 


1 


00000 


2 


02142 


ADDOl 


02144 


-0 


53400 


2 


02362 


BUFFM1 



CLA TXHOP 

STP DIMSW 

CLA 0*4 

SXD XR1»1 

SXD XR2»2 

SXD XR4t4 

STQ MQ 

ADD LCD 

STA MOVE 

SUB L(4) 

STA UPDATE 

LXA L(5)*l 

CAL **»i 

SLW TEMP»1 

TIX M0VE»1*1 

CLS NAR 

STA TRY 

ADD L(l) 

STA ESUM1 

STA ESUM2 

ARS 17 

ADM BIAS 

STA JUMP1 

STA JUMP2 

CAL FDA 

STO COMPR 

STP JUMP1 

STP SW 

STP RX4 

CLA LBUF 

STA BUFL 

CLA TDA 

LXD TDA #2 

SXD BUFF+1»2 

TXL BUFF.O 

TXL XERR01+1.2.0 

LXD NARfl 

SXD NC»2 

SXD ADDOl* 2 

TNX C0MPR»1»1 

TXI ADD02»2»** 

LXD FDA»2 



PICK UP SWITCH CONTROL* 

SET SWITCH. 

GET CALLER {TSX ••♦♦IX*4) 

SAVE THE CtXRD* 

SAVE THE C(XR2)» 

SAVE THE CCXR4)* AND 

SAVE THE CCMQR). 

PREPARE TO MOVE PARAMETERS 

INTO WORKING STORAGE. 

PREPARE TO UPDATE 

PERMANENT PARAMETER. 

MOVE 5 WORDS 

U«#*IX+1) 

OF PARAMETERS 

INTO WORKING STORAGE* 

INITIALIZE 

ALL 

GENERAL 

INSTRUCTIONS* 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

IF DIM TABLE* SKIP SEARCH. 

SKIP IF TABLE IS EMPTY. 



COMPUTES <N*L). 
(N) 



IN AC. 



4F10692 
♦4F10693 
4F10694 
4F10695 
4F10696 
4F10697 
4F10698 
4F10699 
4F10700 
4F10701 
4F 10702 
4F10703 
4F10704 
4F10705 
4F1G706 
4F10707 
4F10708 
4F10709 
4F10710 
4F10711 
4F10712 
4F10713 
4F10714 
4F10715 
4F10716 
4F10T17 
4F10718 
4F10719 
4F10720 
4F10721 
4F10722 
4F10723 
4F10724 
4F10725 
4F10726 
4F10727 
4F10728 
4F10729 
4F10730 
4F10731 
4F10732 
4F 10733 
4F10734 
4F10735 
4F10736 
4F10737 
4F10738 
4F10739 
4F10740 
4F10741 
4F 10742 
4F10743 
4F10744 
4F10745 



(r!t- 





02145 


-0 


53400 


1 


02363 


BUFF 


LXD 


DBLtl 




02146 


2 


00000 


1 


02150 




TIX 


BUFF+3»1»** 





02147 


1 


00000 





02256 


XERR01 


TXI 


WHICH»0 




02150 


-0 


53400 


1 


02364 




LXD 


DI»1 




02151 





76600 


1 


00305 




WDR 


5»1 





02152 


-3 


00000 





02174 


sw 


TXL 


EBLK.O 




02153 


-3 


00000 


2 


02156 




TXL 


AD%04»2»0 




023T54 


1 


00001 


2 


02155 




TXI 


ADE/03.2.1 




02155 


-2 


00062 


2 


02163 


ADD03 


TNX 


ADD05.2.50 




02156 





60000 





02365 


AD004 


STZ 


DUMP 




02157 





50000 





02361 




CLA 


TDA 




02160 





62100 





02362 




STA 


FDA 




02161 





40000 





01407 




ADD 


L(l) 




02162 





62100 





02361 




STA 


TDA 




02163 


-0 


50000 





02365 


AD005 


CAL 


DUMP 




02164 





36100 





01347 




ACL 


G 




02165 





60200 





02365 




5LW 


DUMP 




02166 





46000 





02362 




LDA 


FDA 




02167 





70000 





02365 




CPY 


DUMP 




02170 





76600 


1 


00305 




WDR 


5.1 




02171 





46000 





02361 




LDA 


TDA 




02172 





70000 





01347 




CPY 


G 




02173 


1 


00000 





02205 


XR2 


TXI 


NOWIN.O.** 




02174 


-0 


75400 





00000 


EBLK 


PXD 


»0 




02175 


-0 


53400 


2 


02360 




LXD 


NAR»2 




02176 





46000 





02361 




LDA 


TDA 




02177 


-2 


00001 


2 


02202 




TNX 


ESUM2.2.1 




02200 


-0 


70000 


2 


00000 


ESUM1 


CAD 


**#2 




02201 


2 


00001 


2 


02200 




TIX 


ESUM1.2.1 




02202 


-0 


70000 





00000 


ESUM2 


CAD 


#* 




02203 





60200 





02365 




SLW 


DUMP 




02204 





70000 





02365 




CPY 


DUMP 




02205 


-0 


50000 





02360 


NOW IN 


CAL 


NAR 




02206 





77100 





00022 




ARS 


18 




02207 





40000 





01455 




ADD 


DECR1 




02210 


-3 


00000 





02212 


RX4 


TXL 


RX4+2.0.** 




02211 





40200 





01407 




SUB 


L(l) 




02212 





40100 





02361 




ADM 


TDA 




02213 





60100 





00000 


UPDATE 


STO 


»* 




02214 


-0 


53400 


2 


02361 




LXD 


TDA, 2 




02215 


1 


00000 





02247 


XR4 


TXI 


OUT.O.** 




02216 


-0 


53400 


4 


02223 


NXBLK 


LXD 


NC.4 




02217 


-0 


53400 


2 


02362 




LXD 


FDA>2 




02220 


-0 


53400 


1 


02360 


NEW 


LXD 


NAR.l 




02221 





50000 


1 


00000 


TRY 


CLA 


**»1 




02222 





34000 


2 


00000 


BUFL 


CAS 


**»2 




02223 


1 


00000 





02225 


NC 


TXI 


NC+2.0.** 




02224 


1 


77777 


2 


02242 




TXI 


YEA»2»-1 




02225 


-2 


00001 


4 


02144 




TNX 


BUFFMlt4.1 




02226 


-0 


63400 


1 


02227 




SXD 


NC+4tl 




02227 


2 


00000 


2 


02220 




TIX 


NEW.2»** 




02230 


-0 


63400 


4 


02223 




SXD 


NC»4 




02231 


-0 


50000 





02363 




CAL 


DBL 




02232 





40100 





02362 




ADM 


FDA 



\h) TEST FOR TABLE OVERFLOW* 

60 FIND OUT WHICH TABLE OVERFLOWED 



ENTRY SUM*TXL» BLOCK SUM^TXH. 
SKIP IF TABLE IS EMPTY. 

SKIP IF BLOCK IS NOT YET FULL. 
START NEW BLOCK CHECKSUM. 
CHANGE CHECKSUM ADDRESS. 

SET ENTRY ADDR * CHECKSUM ADDR +1. 



ADD NEW FLOCON TO 
CHECK® "4 FOR THIS BLOCK. 

WRITE BLOCK CHECKSUM ON DRUM. 



WRITE NEW FLOCON ON DRUM. 

GO UPDATE FLOCON PARAMETER. 

FOR ALL TABLES EXCEPT FLOCON* 

(L) 

NEXT DRUM ENTRY ADDRESS. 

IF L * 1» 

(ARGI+L-ll WRITE NEW 

ENTRY ON DRUM. 

(ARG1+L-1) 

COMPUTE AND 

WRITE CHECKSUM FOR NEW ENTRY. 

UPDATE PERMANENT 

PARAMETERS FOR ENTRY 

JUST ADDED TO TABLE. 

IF TABLE WAS FLOCON. 

READJUST. 

N*N+1»TDA=TDA+(L+1> OR (LU 

(....IX-3) 

L(N) 

GET TAG AND EXIT. 

LIK*L)»K=K. 

L(L) 

(ARG1+L) 

(BUFR OR CTABL) 

NOT FOUND. 

K*L * K*L-1. 

N * N-l OR ITEM NOT IN TABLE. 

K « K-l. 

SAVE CURRENT VALUE OF N» 

AND GET NEW BLOCK. 



4F10746 
4F10747 
•4F10748 
4F10749 
4F10750 
4F10751 
4F10752 
4F10753 
4F10754 
4F10755 
4F10756 
4F 10757 
4F10758 
4F10759 
4F10760 
4F10761 
4F10762 
4F10763 
4F10764 
4F10765 
4F10766 
4F10767 
4F10768 
4FI0769 
4F10770 
4F10771 
4F10772 
4F10773 
4F 10774 
4F10775 
4F10776 
4F10777 
4F10778 
4F10779 
4F 10780 
4F10781 
4F10782 
4F10783 
4F10784 
4F10785 
4F10786 
4F10787 
4F10788 
4F10789 
4F10790 
4F10791 
4F10792 
4F10793 
4F10794 
4F10795 
4F10796 
4F 10797 
4F10798 
4F10799 



/ 



u 



o 



n 



02233 
02234 
02235 
02236 
02237 
02240 
02241 
02242 
02243 
02244 
02245 
02246 
02247 
02250 
02251 
02252 
02253 
02254 
02255 
02256 
02257 
02260 
02261 
02262 
02263 
02264 
02265 
02266 
02267 
02270 
02271 
02272 
02273 



62100 
-0 53400 

2 00000 
-0 63400 
-0 63400 

07400 

1 00000 

2 00001 
-0 53400 
-0 63400 



2 00000 

53400 

-0 75400 

77100 

-0 53400 

-0 53400 

-0 53400 

56000 

O 02000 

-0 53400 

50000 

-0 32000 

40200 

53400 4 

40200 

10000 

00001 

07400 

-0 75400 

76000 

40000 

73400 

00000 




-0 

1 



02366 
02367 
02370 
02371 



02274 00000 



-0 S3400 1 

-0 75400 1 

60100 

02000 4 



02362 
02241 
02237 
02362 
02241 
02520 
02216 
02221 
02361 
02245 
02247 
01406 
00000 
00022 
02173 
02215 
02535 
02357 
00001 
02215 
00000 
01452 
02274 
01417 
01413 
02267 
02263 
03400 
00000 
00006 
01454 
00000 
03400 

00412 
02357 
02357 
02360 
02361 
02362 
02363 
02364 
02365 
02365 



00030 
00000 
01105 
00001 



COMPR 



NTL 
YEA 



OUT 



STA FDA 

LXO NTL»2 

TIX C0MPR+2»2»»* 

SXO F0A»2 

SXD NTL.2 

TSX R0RXt4 

TXI NXBLK.O»** 

TIX TRY»ltl 

LXO TDA»2 

SXO YEA+3.4 

TIX 0UT.2.** 

LXA L(0)«2 

PXD »2 

ARS 18 

LXO XR2»2 

LXD XR4#4 

LXD XRlfl 

LDQ MQ 

TRA 1.4 

LXO XR4.4 

CLA 0*4 

ANA MASK2 

SUB CONX 

LXA L(91»4 
COMPUT SUB L(5) 

T2E WHICHX 

TIX COMPUT »4»1 

TSX 01 AG » 4 
WHICHX PXD »4 

COM 

ADD 2E18 

PDX »4 

TXI DIAG»0 



WHICH 



CONX 

BUFR 

MQ 

NAR 

TDA 

FDA 

DBL 

D! 

TEMP 

DUMP 



GET I FN 



PZE FXCNIX-5 

BES 50 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 1 

BSS 

BSS 1 

END OF PROGRAM DRTABS. 



4F10800 
4F10801 
(K*D 4F10802 

K»L « (N*L)M00 K*L IF N*L IS 4F10803 
LESS THAN K*L. OTHERWISE K*L » K*L.4F10804 
60 READ NEXT BLOCK INTO BUFFER. 4F10805 
< N*L ,N*L-K*L .N*L-2*K*L » • • . < N»L > MOD 4F 10806 
K»L)« TEST NEXT WORD OF ARG. L-L-1.4F10807 



<NJ 

COMPUTE TAG. 

EXIT WITH TAG IN THE AC. 

(TAG « NUMBER OF ENTRIES 

WHICH PRECEED THE ENTRY 

WHICH EQUALS THE ARGUMENT. 

RESTORE THE CCXR1*XR2»XR4) • 

RESTORE THE C(MQR)# AND 

RETURN TO MAIN ROUTINE* 

GET ALPHA BARt AND 

AND PICK UP ALPHA (TSX ...NIX»4). 

BLANK ALL BUT ...NIX. 

{.♦♦NIX> - IADDR OF FXCNIX-5 )• 

SET XR4 FOR 9 TABLES. 

COMPUTE WHICH 

TABLE OVERFLOWED. 

IF TABLE IS NOT FOUND. 

GO TO DIAGNOSTIC. 

OTHERWISE* 

CONVERT 2S COMPLEMENT 

OF NUMBER* 

PLACE IN XR4» AND 

GO TO DIAGNOSTIC. 

CONSTANT USED BY DRTABS. 
DRUM TABLE BUFFER. 

WORKING STORAGE USED BY DRTABS. 

WORKING STORAGE USED BY DRTABS. 

WORKING STORAGE USED BY DRTABS. 

WORKING STORAGE USED BY DRTABS. 

WORKING STORAGE USED BY DRTABS. 

WORKING STORAGE USED BY DRTABS. 



4F10808 
4F10809 
4F10810 
4F10811 
4F10812 
4F10813 
4F10814 
4F10815 
4F10816 
4F10817 
4F10818 
4F10819 
4F10820 
4F10821 
4F10822 
4F10823 
4F10824 
4F10825 
4F10826 
4F 10827 
4F 10828 
4F10829 
4F10630 
4F10831 
4F10832 
4F10833 
4F10834 
4F10835 
4F10836 
4F10837 
4F10838 
4F10839 
4F10840 
4F10841 



INDEXING ADDRESS FOR ABOVE -DRTABS.4F10842 
WORKING STORAGE USED BY DRTABS. 



#»*•••*•••»•»■**•** 



6ETIFNt4/ CALLERS=C0100.C0200»C1000*C1100.C1600.C3200. 
GETIFN PLACES THE INTERNAL FORMULA NUMBER IN AC AND IN 



1C. 



LXD 
PXD 
STO 
TRA 



EIFNOtl 
• 1 
1C 
1»4 
END OF PROGRAM GETIFN. 



PLACE THE INTERNAL FORMULA 
NUMBER IN XR1. IN THE DECREMENT 
OF THE AC* AND IN 1C. THEN 
RETURN TO CALLER. 



4F10843 
4F10844 
*4F10845 
4F 10846 
4F10847 
4F10848 
4F10849 
4F10850 
4F10851 
4F10852 
4F10853 



(/'> 



*********#****************** 



02372 


-0 


50000 





00030 


JIF 


CAL 


EIFNO 


02373 





40000 





01454 




ADO 


01 


02374 





62200 





00030 




STD 


EIFNO 
GIF = 


02375 


-0 


50000 





00030 


GIF 


CAL 


EIFNO 


02376 


-0 


32000 





01507 




ANA 


1BAR 


02377 





60200 





01367 


L(SL) 


SLW 


SL 


02400 





62200 





01371 


LITL) 


STD 


TL 


02401 





02000 


4 


00001 




TRA 


1»4 
END 

* * * 


02402 





02000 





03440 
02403 




TRA 
BSS 


STATEA 
28 



* * »4F10854 
4F10855 

JIF«6IFH4/ CALLERS=RDC*EFT*LPR*SPC*CMA>EMK»INPUT(OUTPUT)* 4F10856 
VRACVRDI #C32©0. 4F10857 

JIF ■ ENTRY POINT USED BY RDC.LPR»SPC*CMA»EMK*VRA{VRD) »C3200.4F10858 

INCREASE THE 
INTERNAL FORMULA NUMBER 
BY 1* 
ENTRY POINT USED BY EFT* INPUTCOUTPUT ) • 

PICKUP I FN. 
CLEAR SL* AND 

PLACE IFN IN THE DECREMENTS 
OF SL AND TL. 
« EXIT TO CALLER. 



END OF PROGRAM J IF ( GIF U 
********** 



* * * * ************* 



RETURN FROM DIAGNOSTIC 
NOT USED* 



RA0OO»4/ CALLERS=LPR*ARITH. 
RAOOO COMPUTES RELATIVE ADDRESS. 



02437 


-0 


63400 


4 


01100 


RAOOO 


SXD 


RAXR4»4 


02440 





60000 





01147 




STZ 


EPS 


02441 





50000 





01125 




CLA 


DIMSAV 


02442 





73400 


4 


01132 


ED2 


PAX 


E+4*4 


02443 


-3 


00002 


4 


02445 




TXL 


ED1»4»2 


02444 





40000 





01407 




ADD 


L(l) 


02445 





40100 





02442 


EDI 


ADM 


ED2 


02446 





62100 





02447 




STA 


ED3 


02447 





50000 


4 


00000 


EDS 


CLA 


**»4 


02450 





56000 





01454 




LDQ 


Dl 


02451 





10000 





02454 




TZE 


ED4 


02452 


-0 


60000 





01147 




STQ 


EPS 


02453 





56000 





01406 




LDQ 


L(0) 


02454 


-0 


600O0 


4 


01147 


ED4 


STQ 


EPS»4 


02455 


2 


00001 


4 


02447 




TIX 


ED3.4tl 


02456 





50000 





01454 




CLA 


Dl 


02457 





53400 


4 


01125 




LXA 


DIMSAV.4 


02460 


-3 


00001 


4 


02511 




TXL 


1D1*4»1 


02461 





56000 





01141 




LDQ 


E+ll 


02462 





60000 





01141 




STZ 


E+ll 


02463 


-0 


62000 





01141 




SLQ 


E+ll 


02464 


-0 


76300 





00022 




LGL 


18 


02465 


-0 


60000 





01361 




STQ 


N2 


02466 





56000 





01134 




LDQ 


E+6 


02467 





50000 





01146 




CLA 


EPS-1 


02470 


-3 


00002 


4 


02503 




TXL 


2D1*4.2 


02471 





40200 





01142 




SUB 


E+12 


02472 





60100 





01351 




STO 


GTAG 


02473 





56000 





01136 




LDQ 


E+8 


02474 





60000 





01136 




STZ 


E+8 


02475 


-0 


62000 





01136 




SLQ 


E+8 



SAVE THE CfXR4) FOR RETURN. 

CLEAR EPSILON (WORKING STORAGE). 

EXAMINE THE 

DIMENSION COUNT* AND 

IF 3 DIMENSION* 

INCREASE IT 1. 

THEN SET 

ED3 ADDRESS TO 

EXAMINE SUCCESSIVE 

SUBSCRIPT 

VARIABLES. AND 

ACCORDINGLY SET 

EPSILON AND 

EPSILON SUB I 

TO 1 OR TO 0. WHEN DONE* 



4F10859 
4F10860 
4F10861 
4F10862 
4F10863 
4F10864 
4F10865 
4F 10866 
4F 10867 
4F10868 
♦4F10869 
4F10870 
4F10873 
4F 10874 
4F10901 
4F10908 
4F10909 
4F10910 
4F10911 
4F10912 
4F10913 
4F10914 
4F10915 
4F10916 
4F10917 
4F10918 
4F10919 
4F10920 
4F10921 
4F10922 
4F10923 
4F10924 
4F10925 



IF 1 DIMENSION* PICKUP DECREMENT 1*4F10926 



AND GO SUBTRACT ADDEND 1 

IF 2 OR 3 DIMENSION* THEN 

PICKUP ADDENDS 1 AND 2* 

CLEAR E+ll* AND 

RESTORE ADDEND 1 TO E+ll. 

ADJUST AND PLACE 

ADDEND 2 IN N2. 

AND* IF 2 DIMENSION 

PICKUP EPSILON SUB 1* 

AND GO SUBTRACT ADDEND 2. 

IF 3 DIMENSION* SET GTAG 

TO EPSILON SUB 1 - ADDEND 3, 

PICKUP DIMENSIONS 1 AND 2* 

CLEAR E+8* AND 

RESTORE DIMENSION 1 TO E+8* 



4F10927 
4F10928 
4F10929 
4F10930 
4F10931 
4F10932 
4F10933 
4F10934 
4F10935 
4F10936 
4F10937 
4F10938 
4F10939 
4F10940 
4F10941 



u 



o 



TO 



02476 


-0 


76300 


00022 




LGL 


18 


02477 





20000 


01351 




MPY 


GTAG 


02500 





76700 


00021 




ALS 


17 


02501 





40000 


01145 




ADD 


EPS-2 


02502 





56000 


01136 




LOO 


£+8 


02503 





40200 


01361 


2D1 


SUB 


N2 


02504 





60100 


01351 




STO 


GTAG 


02505 





20000 


01351 




MPY 


GTAG 


02506 





76700 


00021 




ALS 


17 


02507 





40000 4 


01147 




ADO 


EPS* 4 


02510 





40000 


01147 




ADD 


EPS 


02511 





40200 


01141 


101 


SUB 


E+ll 


02512 





60100 


01351 




STO 


GTAG 


02513 


-0 


50000 


01126 




CAL 


E 


02514 





77100 


00030 




ARS 


24 


02515 





62100 


01351 




STA 


GTAG 


02516 


-0 


53400 4 


01100 




LXO 


RAXR4t4 


02517 





02000 4 


00001 




TRA 


1*4 
END OF PROGRAM RAOOO 

RDRX. 4/ CALLS=DIAG* C 
RDRX READS A BLOCK OF 


02520 





53400 1 


01413 


RDRX 


LXA 


DRMERC»1 


02521 


-0 


53400 2 


02364 


REP 


LXO 


DI»2 


02522 


3 


00000 2 


02524 




TXH 


BIAS-2*2*0 


02523 





07400 4 


03400 




TSX 


DIAG*4 


02524 





76200 2 


00305 




RDR 


5*2 


02525 


-0 


53400 2 


02362 




LXO 


FDA* 2 


02526 


-0 


75400 


02554 


BIAS 


PXO 


ETSUM »0 


02527 





46000 


02362 




LOA 


FDA 


02530 


-3 


00000 


OOOOO 


JUMP1 


TXL 


*# 


02531 


-0 


70000 


02365 




CAD 


DUMP 


02532 





76000 


00006 




COM 




02533 


-0 


70000 2 


02357 


LBUF 


CAD 


BUFR*2 


02534 


2 


00001 2 


02533 




TIX 


LBUF»2*1 


02535 


1 


ooooo 


02562 


XR1 


TXI 


PROVE #0*** 


02536 





70000 2 


02357 




CPY 


BUFR*2 


02537 


-2 


00001 2 


02564 




TNX 


ERR*2*1 


02540 





70000 2 


02357 




CPY 


BUFR*2 


02541 


-2 


00001 2 


02564 




TNX 


ERR»2*1 


02542 





70000 2 


02357 




CPY 


BUFR*2 


02543 


-2 


00001 2 


02564 




TNX 


ERR»2»1 


02544 





70000 2 


02357 




CPY 


BUFR*2 


02545 


-2 


00001 2 


02564 




TNX 


ERR*2»1 


02546 





70000 2 


02357 




CPY 


BUFR»2 


02547 


-2 


00001 2 


02564 




TNX 


ERR*2»1 


02550 





70000 2 


02357 




CPY 


BUFFU2 


02551 


-2 


00001 2 


02564 




TNX 


ERR*2*1 


02552 





70000 2 


02357 




CPY 


8UFR*2 


02553 





76100 


OOOOO 




NOP 




02554 


-0 


70000 


02365 


ETSUM 


CAD 


DUMP 


02555 


2 


00001 2 


OOOOO 


JUMP 2 


TIX 


***2*1 


02556 


-0 


53400 2 


02362 


RDRXCR 


LXO 


FDA #2 



ADJUST* AND MULTIPLY 
DIMENSION 2 TIMES GTAG* 
THEN ADD 
EPSILOM SUB 2 
TO THE PRODUCT* AND 
SUBTRACT ADDEND 2* 
MULTIPLY 
THE RESULT 
TIMES 

DIMENSION 1* AND ADD IN EPSILON 
SUB I AND EPSILON* 
SUBTRACT ADDEND 1* 
AND PLACE THE RESULT 
IN THE DECREMENT OF GTAGt 
WTH I-TAUTAG 
IN THE ADDRESS* 
RESTORE THE CCXR4I* AND 
* EXIT TO CALLER* 



CALLER=DRTABS* 
OF DRUM ENTRIES INTO 50 WORD BUFR* 

SET FOR 5 ATTEMPTS TO READ DRUM* 
SET XR2 * (5-DRUM NUMBER)* 
IF NOT GREATER THAN 2ER0# 
» GO TO DIAGNOSTIC* 
SELECT CURRENT DRUM* 
SET XR2 » NO* OF WORDS TO COPY* 
CLEAR THE AC* 

DRUM ORIGIN OF CURRENT BLOCK* 
|ETSUM-2*L1 TXL*ENTRY»TXH*BLOCK* 
READ 

FLOCON BLOCK 
ANO COMPUTE 
LOGICAL CHECKSUM* 
GO TEST CHECKSUM* 
COPY LOOP 
FOR ALL 
TABLES 
EXCEPT 
FLOCON* 
X 
X 
X 
X 
X 
X 
X 
X 
X 

SUM CHECKSUMS* 

(ETSUM-2*L) TEST END OF BLOCK* 
COMPUTE 



4F 10942 
4F 10943 
4F 10944 
4F 10945 
4F 10946 
4F 10947 
4F10948 
4F10949 
4F10950 
4F10951 
4F10952 
4F10953 
4F 10954 
4F 10955 
4F10956 
4F10957 
4F10958 
4F10959 
4F10960 
#4F10961 
4F 10962 
4F10963 
4F10964 
4F10965 
4F10966 
4F10967 
4F10968 
4F 10969 
4F 10970 
4F10971 
4F10972 
4F10973 
4F10974 
4F10975 
4F10976 
4F10977 
4F10978 
4F10979 
4F10980 
4F10981 
4F10982 
4F10983 
4F 10984 
4F10985 
4F 10986 
4F10987 
4F10988 
4F10989 
4F 10990 
4F10991 
4F10992 
4F10993 
4F10994 
4F10995 



/ 



02557 


76000 00006 




COM 




HEM 


4F10996 


02560 


36100 2 02357 




ACL BUFR»2 




LOGICAL 


4F10997 


02561 


2 00001 2 02560 




TIX RDRXCR+2*2#1 




CHECKSUM » AND 


4F10998 


02562 


76000 00006 


PROVE 


COM 




IF CHECKSUMS COMPARE 


4F10999 


02563 


10000 4 00001 




T2E 1*4 




* RETURN TO MAIN ROUTINE* 


4F11000 


02564 


2 00001 1 02521 


ERR 


TIX REP»1»1 




OTHERWISE* REPEAT UP TO 5 TIMES. 


4F11001 


02565 


07400 4 03400 




TSX DIAG.4 

END OF PROGRAM 


RDRXt 


* FAILED 5 TIMES IN READING DRUM, 


4F11002 
4F11003 








******** 


* * * 


******************* 


♦4F11004 
4F11005 








SR6DCltl/ CALLS: 


=DIAG* 


CALLERS=CA00O*SS0O0* 


4F11006 








SR6DC1 CONVERTS 


UP TO 


6 BCD DIGITS TO THEIR BINARY EQUIV* 


4F11007 


02566 


-0 63^00 2 02574 


SR6DC1 


SXD SR6XR2»2 




SAVE THE C(XR2)» AND 


4F11008 


02567 


53400 2 01414 




LXA L(6) .2 




SET TO COUNT 6 CHARACTERS* 


4F11009 


02570 


60000 01101 




ST2 SR6WRK 




INITIALIZE OUTPUT CELL TO 0. 


4F11010 


02571 


-0 75400 00000 


SR6DC2 


PXD »0 




OBTAIN NEXT CHARACTER 


4F11011 


02572 


-0 76300 00006 




LGL 6 




IN AC AND 


4F11012 


02573 


34000 01430 




CAS ABLANK 




TEST FOR BLANK. 


4F11013 


02574 


1 0OQ0O 02576 


SR6XR2 


TXI SR6DC3»0*** 




IF NOT BLANK » 


4F11014 


02575 


1 77777 02610 


ENDWRD 


TXI SR6DC4»Q»-1 




(DECR= END OF PROBLEM INDICATOR) 


4F11015 


02576 


34000 01417 


SR60C3 


CAS L<9) 




TEST FOR NUMERIC* 


4F11016 


02577 


07400 4 03400 




TSX DIAG»4 




* IF NON-NUMERIC - GO TO DIAGNOSTIC4 


> 4F11017 


02600 


76100 00000 


NOP 


NOP 




IF NUMERIC* 


4F11018 


02601 


60100 01102 




STO SR6WRK+1 




SAVE DIGIT* AND 


4F11019 


02602 


50000 01101 




CLA SR6WRK 




MULTIPLY PREVIOUS PARTIAL 


4F11020 


02603 


76700 00002 




ALS 2 




RESULT BY 10. 


4F11021 


02604 


40000 01101 




ADO SR6WRK 




AND ADD IN 


4F11022 


02605 


76700 00001 




ALS 1 




CURRENT DIGIT* SAVING 


4F11023 


02606 


40000 01102 




ADO SR6WRK+1 




NEW PARTIAL RESULT* 


4F11024 


02607 


60100 01101 




STO SR6WRK 




THEN ADJUST COUNT* AND 


4F11025 


02610 


2 00001 2 02571 


SR6DC4 


TIX SR6DC2*2*1 




WHEN 6 CHARS HAVE BEEN TREATED* 


4F11026 


02611 


50000 01101 




CLA SR6WRK 




LEAVE OUTPUT IN AC* 


4F11027 


02612 


-0 53400 2 02574 




LXD SR6XR2»2 




RESTORE THE C<XR2>» AND 


4F11028 


02613 


02000 1 00001 


TRA 


TRA 1*1 




* EXIT TO MAIN ROUTINE* 


4F11029 








END OF PROGRAM 


SR6DC1 


• 


4F11030 








******** 


* * ♦ 


******************* 


*4F11031 



4F11032 
SS00O»4/ CALLS=C0190»DIAG,SR6DC1»DIM*SR»DRTABS*TETOO»TESTFX* 4F11033 
CALLERS=ARITH.LPR»C0200. 4F11034 

SSOOO SCANS SUBSCRIPT COMBINATIONS AND MAKES TABLE ENTRIES* 4F11035 

02614 -0 63400 2 02731 SSOOO SXD SXR2»2 SAVE CIXR2)* 4F11036 

02615 -0 63400 1 02730 SXD SXR1»1 SAVE CURD* 4F11037 

02616 -0 63400 4 02732 SXD SXR4»4 SAVE CCXR4)* AND 4F11038 

02617 60000 01100 STZ DIMCTR SET DIMCTR * 0. 4F11039 

02620 53400 4 01414 LXA L(6)*4 INITIALIZE 4F11040 

02621 -0 63400 4 02726 SXD SBS2*4 FOR EACH SUBSCRIPT MEMBER* 4F11041 

02622 -0 50000 00422 CAL TXHOP PICK UP TXH OP* AND 4F11042 

02623 63000 02776 STP SBC6 SET OP 4F11043 

02624 63000 02777 STP SBC8 SWITCHES* 4FH044 

02625 -0 50000 00415 CAL TXLOP PICK UP TXL OP* AND 4F11045 

02626 63000 03014 STP SBC4 SET OP SWITCH* 4F11046 

02627 53400 3 01414 SSOOl LXA L(6)»3 SET FOR 6 CHARACTERS OF MULTIPLIER.4F11047 

02630 60000 01370 STZ SYMBOL CLEAR WORKING STORAGE. 4F11048 

02631 07400 4 01707 TSX C0190.4 * GET FIRST NON BLANK CHAR IN THE AC.4F11049 



u 



u 



02632 
02633 
02634 
02635 
02636 
02637 
02640 
02641 
02642 
02643 
02644 
02645 
02646 
02647 
02650 
02651 
02652 
02653 
02654 
02655 
02656 
02657 
02660 
02661 
02662 
02663 
02664 
02665 
02666 
02667 
02670 
02671 
02672 
02673 
02674 
02675 
02676 
02677 
02700 
02701 
02702 
02703 
02704 
02705 
02706 
02707 
02710 
02711 
02712 
02713 
02714 
02715 
02716 
02717 



34000 

1 00000 
76100 
60100 
76700 

-0 60200 



00006 
77777 
07400 
53400 
34000 
00000 
02000 
00001 
34000 
00000 
76100 
00000 
00000 
07400 
07400 
-0 76300 

60200 
-0 53400 

1 00001 
-0 63400 

50200 

-0 12000 

07400 

60100 

50000 

40200 

-0 12000 

07400 

-0 50000 

77100 

•0 53400 

60200 

60000 

53400 

60000 

07400 

53400 

34000 

00000 

02000 

00001 

-3 00005 

60100 

76700 
•3 00000 
-0 60200 

1 00006 
1 77777 



01417 
02704 
00000 
01331 
00044 
01370 
02641 
02642 
01707 
02652 
01406 
02647 
02733 
02644 
01417 
02655 
00012 
02636 
02720 
03242 
4 03400 
00036 
01365 
01724^ 
02663 
01724 
02776 
02667 
03400 
02776 
01331 
01373 
02674 
03400 
01370 
00052 
02726 
01137 
01145 
01414 
01370 
01707 
02652 
01406 
02710 
02733 
02705 
02713 
01331 
00044 
02720 
01370 
02717 
02703 



CAS L(9> 

TXI SS0045.0 

NOP 

STO FIRSTC 

550012 ALS 36*2 
ORS SYMBOL 

TXI SS0013*2»6 

550013 TXI SS0014»1»-1 

550014 TSX CO 190* 4 
LXA CTESTX»4 

550015 CAS CTEST»4 
TXI SS0016*0 
TRA SUBTRt4 

550016 TIX SS0015*4»1 
CAS L(9) 

TXI SS0017*0 
CTESTX NOP CTEST-ENDMK. 
TXH SS0012*1*0 
TXI STOP49»0 

550017 TSX TESTFX+1»1 
TSX DIAG»4 
LGL 30 

SLW RESIDU 
LXD CHCTRf4 
TXI SS0018*4*1 

550018 SXD CHCTR*4 
SBX CLS SBC6 

TMI SBX1 
TSX DIAG»4 
SBX1 STO SBC6 

CLA FIRSTC 
SUB L(10) 
TMI SBX2 
TSX DIAG»4 
SBX2 CAL SYMBOL 
ARS 42*2 
LXD SBS2#4 
SLW E+9»4 
STZ E+15t4 

55003 LXA L(6)»3 
STZ SYMBOL 

55004 TSX C0190»4 
SS0045 LXA CTESTX#4 

55005 CAS CTEST»4 
TXI SS006»0 
TRA SUBTR»4 

55006 TIX SS005*4*1 
TXL SSO08*l»5 
STO FIRSTC 

55008 ALS 36*2 

55009 TXL STOP49*1»0 
ORS SYMBOL 

TXI SS007»2*6 

55007 TXI SS004»lt-l 



COMPARE IT WITH 9. 

RETURN TO EXPLICIT CODING. 

IF NUMERIC* 

SAVE RIGHT-ADJUSTED DIGIT* ANO 

LEFT-ADJUST DIGIT TO 

BUILD SYMBOL* 

UPDATE SHIFT DECREMENT* AND 

UPDATE COUNT OF CHARS COLLECTED. 

GET NEXT NB CHARACTER IN THE AC. 



4F11050 
4F11051 
4F11052 
4F11053 
4F11054 
4F11055 
4F11056 
4F11057 
4F11058 



SET XR4 * NO. OF PUNCTUATION MARKS.4F11059 



TEST THIS CHARACTER AGAINST 

ALL PUNCTUATION. 

IF EQUALITY IS FOUND* TRANSFER. 

IF NOT FOUND TO BE PUNCTUATION* 

TEST FOR NUMERIC. 

AND IF 

FOUND TO BE NUMERIC* 

CONTINUE BUILDING SYMBOL. BUT IF 

SEVENTH CHAR* GO TO DIAGNOSTIC. 

GO TEST FOR FIXED POINT VARIABLE. 



4F11060 
4F11061 
4F11062 
4F11063 
4F 11064 
4F11065 
4F11066 
4F11067 
4F11068 
4F 11069 



NOT FIXED POINT —GO TO DIAGN0STIC.4F11070 



RESTORE FIXED POINT VARIABLE 

TO RESIDU* AND 

RESET CHARACTER COUNTER 

TO BEGIN PROCESSING 

SUBSCRIPT MULTIPLIER. 

TEST FOR 

PREVIOUS MULTIPLIER. 

DOUBLE MULTIPLIER FOR SUBSCRIPT. 

RESET MULTIPLIER SWITCH. 

TEST 

MULTIPLIER 

FOR CONSTANT. 

SUBS-MULTIPLIER NOT A CONSTANT. 

ADJUST MULTIPLIER 

TO LOW ORDER POSITION. 

GET STORING TAG* 

AND STORE MULTIPLIER. 

SET ADDEND « 0. *.,„„« 

SET FOR 6 CHARS OF VAR1ABLE/ADDEND.4F11089 

CLEAR WORKING STORAGE. 4F 11090 

60 GET NEXT NB CHARACTER IN THE AC.4F11091 



4F11071 
4F11072 
4F11073 
4F11074 
4F11075 
4F11076 
4F11077 
4F11078 
4F11079 
4F11080 
4F11081 
4F11082 
4F11083 
4F11084 
4F11085 
4F11086 
4F11087 
4F11088 



COMPARE CHARACTER 

TO ALL 

PUNCTUATION. 

IF EQUALITY IS FOUND* TRANSFER. 

IF NOT FOUND TO BE PUNCTUATION* 

IF 1ST CHARACTER OF VARIABLE OR 

ADDEND* SAVE FOR LATER TESTS. 

POSITION EACH CHARACTER. BUT 

ON 7TH CHARACTER* GO TO STOP. 

BUILD SYMBOL. , m 

UPDATE EFFECTIVE ADDRESS OF SHIFT. 4F11102 

UPDATE FOR ANOTHER CHAR COLLECTED. 4F11103 



4F11092 
4F11093 
4F11094 
4F11095 
4F11096 
4F11097 
4F11098 
4F11099 
4F11100 
4F11101 



f',7 





02720 





07400 


4 


03400 


ST0P49 


TSX 


DIAG*4 

SUBTR/ CONTROL 


D 


G2?2I 


1 


00000 





02722 




TXI 


ISC*0 




02722 





07400 


4 


03400 


ISC 


TSX 


DIAG»4 


D 


02723 


1 


00000 





02772 




TXI 


SBC»0 





02724 


1 


00000 





02770 




TXI 


SBR*0 





02725 


1 


00000 





02722 




TXI 


ISCtO 




02726 


1 


00000 





02733 


SBS2 


TXI 


SBM.G*** 


D 


02727 


1 


00000 





02722 




TXI 


I SCO 




02730 


1 


00000 





02722 


SXR1 


TXI 


ISC*Q»** 




02731 


1 


00000 





02734 


SXR2 


TXI 


SBP*0»*» 




02732 


1 


00000 





02664 
02733 


SXR4 
SUBTR 


TXI 
BSS 


SBX*0»** 





02733 


-0 


76000 





00003 


SBM 


SSM 






02734 





76000 





00000 


SBP 


CLM 






02735 


-0 


53400 


4 


02726 




LXD 


SBS2»4 




02736 





60100 


4 


01145 




STO 


E+15»4 




02737 





50200 





02777 




CLS 


SBC8 




02740 


-0 


12000 





02742 




TMI 


SBP1 




02741 





07400 


4 


03400 




TSX 


DIAG*4 




02742 





60100 





02777 


SBP1 


STO 


SBC8 




02743 





07400 


1 


03241 


,■- 


TSX 


TESTFX*! 




02744 





07400 


4 


03400 




TSX 


DIAG,4 




02745 


-0 


53400 


4 


02726 




LXD 


SBS2»4 




02746 





50200 





02776 




CLS 


SBC6 




02747 





12000 





02754 




TPL 


SBP2 




02750 





50000 





01407 




CLA 


L(l) 




02751 





60100 


4 


01137 




STO 


E+9*4 


D 


02752 


1 


00000 





02755 




TXI 


SBP4»0 




02753 





50200 





02776 


SBC1 


CLS 


SBC6 




02754 





60100 





02776 


SBP2 


STO 


SBC6 




02755 


-0 


50000 





01370 


SBP4 


CAL 


SYMBOL 




02756 


3 


00044 


2 


02762 




TXH 


SBP41»2*36 




02757 


-0 


50000 





01430 




CAL 


BLANK 




02760 





76700 


2 


00044 




ALS 


36,2 




02761 


-0 


50100 





01370 




ORA 


SYMBOL 




02762 





60200 


4 


01140 


SBP41 


SLW 


E+10»4 




02763 





07400 


1 


03241 




TSX 


TESTFX.l 




02764 





07400 


4 


03400 




TSX 


DIAG»4 




02765 





50000 





02777 




CLA 


SBC8 




02766 


-0 


12000 





02701 




TMI 


SS003 





02767 


1 


00000 





03012 




TXI 


SBC7»0 




02770 





50200 





03014 


SBR 


CLS 


SBC4 




02771 





60100 





03014 




STO 


SBC4 




02772 


-0 


50000 





01100 


SBC 


CAL 


DIMCTR 




02773 





40000 





01407 




ADD 


L(l) 




02774 





62100 





01100 




STA 


DIMCTR 




02775 


-0 


53400 


4 


02726 




LXD 


SBS2»4 





02776 


3 


00000 





02753 


SBC6 


TXH 


SBC1»0 





02777 


3 


00000 





03016 


SBC8 


TXH 


SBC2»0 




03000 





50000 





01407 




CLA 


L(U 




03001 





60100 


4 


01137 




STO 


E+9»4 




03002 





60000 


4 


01145 




STZ 


E+15»4 




03003 





50000 





01331 




CLA 


FIRSTC 



♦ 60 TO DIAGNOSTIC ON 7TH CHARACTER 
TRANSFERS FOR SUBSCRIPT SCAN= 

EMK. (ILLEGAL IN LIST SUBSCRIPT). 

* { {ILLEGAL IN LIST SUBSCRIPT). 



{ILLEGAL IN LIST SUBSCRIPT). 
•♦SUBSCRIPT ELEMENT COUNTER. 
(ILLEGAL IN LIST SUBSCRIPT). 
(ILLEGAL IN LIST SUBSCRIPT). 



INDEXING ADDRESS FOR ABOVE LIST. 

MINUS ADDEND. 

PLUS ADDEND. 

GET STORING TAG* AND 

STORE SIGN OF ADDEND. 

TEST SWITCH 

FOR PREVIOUS ADDEND. 

DOUBLE ADDEND FOR SUBSCRIPT. 

RESET ADDEND SWITCH. 

GO TO TEST FOR FIXED POINT* 

NOT FIXED POINT — GO TO DIAGN0ST1 

GET STORING TAG* AND 

TEST SWITCH 

FOR PREVIOUS MULTIPLIER. 

IF NONE* 

SET MULTIPLIER 

TO It AND CONTINUE. 

RESET MULTIPLIER 

OP SWITCH. 

IF VARIABLE SUBSCRIPT, 

ADD A BLANK 

IF LESS 

THAN 6 

CHARACTERS* AND 

PLACE IN E-REGION. 

GO TO TEST FOR FIXED POINT. 

NOT FIXED POINT —GO TO DIAGNOSTI 

IF THERE IS AN ADDEND. 

GO COLLECT* OTHERWISE 

GO UPDATE STORING TAG. 

SET SWITCH 

FOR CLOSING PARENTHESIS. 

UPDATE 

DIMENSION COUNTER 

BY 1. 

GET STORING TAG. 

SWITCH-IF NO MULTIPLIER* AND 

SWITCH-IF NO ADDEND* THEN 

SET 

MULTIPLIER " 1. 
SET ADDEND * 0. 
TEST FOR 



• 4F11104 
4F11105 
4F11106 
4F11107 
4F11108 
4F11109 
4F11110 
4F11111 
4F11112 
4F11113 
4F11114 
4F11115 
4F11116 
4F11117 
4F11118 
4F11119 
4F11120 
4F11121 
4F11122 
4F11123 
4F11124 
4F11125 

C.4F11126 
4F11127 
4F11128 
4F11129 
4F11130 
4F11131 
4F11132 
4F11133 
4F11134 
4F11135 
4F11136 
4F11137 
4F11138 
4F11139 
4F11140 
4F11141 

C.4F11142 
4F11143 
4F11144 
4F11145 
4F11146 
4F11147 
4F11148 
4F11149 
4F11150 
4F11151 
4FU152 
4F11153 
4F11154 
4F11155 
4F11156 
4F11157 



u 



o 



n 





03004 





40200 





01373 




SUB 


L(10) 






03005 





12000 





02755 




TPL 


SBP4 






03006 





60000 


4 


01140 




STZ 


E+10>4 






03007 


-0 


50000 





01370 


SBC9 


CAL 


SYMBOL 






03010 





77100 


2 


00052 




ARS 


42*2 






03011 


-0 


60200 


4 


01145 




ORS 


E+15»4 






03012 


-2 


00002 


4 


03024 


SBC 7 


TNX 


SBC3»4*2 






03013 


-0 


63400 


4 


02726 




SXO 


SBS2t4 







03014 


-3 


00000 





02627 


SBC4 


TXL 


SS001»0 







03015 


1 


00000 





03030 




TXI 


SAOOO »0 






03016 





50200 





02777 


SBC2 


CLS 


SBC 8 






03017 





60100 





02777 




STO 


SBC8 






03020 





50200 





01373 




CLS 


L(10) 






03021 





40000 





01331 




ADD 


FIRSTC 






03022 


-0 


12000 





03007 




TMI 


SBC9 


* 




03023 





07400 


4 


03400 




TSX 


DIAG»4 




03024 





50200 





03014 


SBC3 


CLS 


SBC4 






03025 


-0 


12000 





03030 




TMI 


SAOOO 






03026 





07400 


4 


03400 




TSX 


DIAG»4 


# 


















CSAOOG* ENTRY POINT USED t 




03027 


-o 


63400 


4 


02732 


CSAOOO 


SXD 


SXR4»4 






03030 





50000 





01100 


SAOOO 


CLA 


DIMCTR 






03031 





60100 





01125 




STO 


DIMSAV 






03032 





76700 





00041 




ALS 


33 






03033 





60100 





01126 




STO 


UJ 






03034 





50000 





011^1 




CLA 


E+ll 






03035 





60100 





01142 




STO 


E+12 






03036 





50000 





01137 




CLA 


E+9 






03037 





60100 





01141 




STO 


E+ll 






03040 





50000 





01410 




CLA 


L(2) 






03041 





34000 





01100 




CAS 


DIMCTR 




D 


03042 


1 


00000 





03174 




TXI 


100000*0 




D 


03043 


1 


00000 





03131 




TXI 


2D0000»0 






03044 





53400 


4 


01414 


3D0O00 


LXA 


L(6)»4 






03045 





56000 


4 


01137 


3D0001 


LDQ 


E+9*4 






03046 





07400 


1 


02566 




TSX 


SR6DC1»1 


# 




03047 





60100 


4 


01137 




STO 


E+9«4 






03050 


2 


00002 


4 


03045 




TIX 


300001*4*2 






03051 





53400 


4 


01411 




LXA 


L(3>»4 






03052 





50000 


4 


01144 


3D0002 


CLA 


E+14»4 






03053 





60200 





01347 




SLW 


G 






03054 





56000 





01347 




LDO 


G 


JL 




03055 





07400 


1 


02566 




TSX 


SR6DC1»1 






03056 





56000 


4 


01144 




LDO 


E+14»4 






03057 





16200 





03061 




TOP 


3D0040 






03060 


-0 


50100 





01453 




ORA 


2E17 






03061 





60100 


4 


01144 


3D0040 


STO 


E+14»4 






03062 


2 


00001 


4 


03052 




TIX 


3D0002*4»1 


♦ 




03063 





07400 


4 


02005 




TSX 


DIM3SR#4 


* 




03064 





07400 


4 


03400 




TSX 


DIAG*4 




03065 





50000 





01131 


3D0060 


CLA 


E+3 






03066 





76700 





00022 




ALS 


18 






03067 





40000 





01133 




ADD 


E+5 






03070 





60100 





01131 




STO 


E+3 





CONSTANT OR VARIABLE* 
IF CONSTANT* THEN 
SET VARIABLE * 0. 
ADJUST 
CONSTANT 

TO LOW ORDER POSITION. 
UPDATE STORING TAG 
BY -2* AND SAVE. 

SWITCH-REPEAT FOR NEXT SUB-COMB. 
GO MAKE TABLE ENTRIES AND GET TAG. 
RESET ADDEND 
OP SWITCH. 
TEST 
ADDEND 

FOR CONSTANT. 

SUBSCRIPT ADDEND NOT A CONSTANT. 
AFTER SCANNING 3 SUBSCRIPTS* 
GO MAKE TABLE ENTRIES AND GET TAG. 
GO TO DIAG - NO ) AFTER 3RD SUBS. 
JY C0200 (GO TO ROUTINE). 
SAVE CIXR4) FOR RETURN TO C0200. 
SAVE 

THE CONTENTS OF DIMCTR. 
POSITION AND 
STORE I TAG. 
MOVE SUBSCRIPT ADDENDS 
INTO POSITION 
FOR FOLLOWING 
PROGRAM. 
EXAMINE DIMCTR 
TO DETERMINE 
WHETHER DIMENSION OF 
VARIABLE IS 1* 2* OR 3. 
PREPARE TO PICK UP 3 COEFFICIENTS. 
CONVERT THEM FROM BCD TO 31 NARY 
IN E+3*5*7» AND 
STORE BACK IN E+3»5*7. 
WHEN DONE* PREPARE 
TO PICK UP 3 ADDENDS. 
CONVERT ADDENDS (BCD TO BINARY J = 
STRIP OFF 
SIGN* 

CONVERT ADDENDS IN E+ll»12»13« 
PUT SIGN IN S-BIT OF MQ» AND 
IF PLUS— SKIP NEXT* 
IF MINUS— OR SIGN INTO BIT 18* 
AND STORE BACK INTO E+ll»12*13. 
WHEN DONE* 

GO SEARCH DIM3 TABLE. 
— ERROR. ..NOT ON DRUM. 
REFORMATIZE E-STRING « 
PACK TOGETHER COEFFICIENTS 1 AND 2 
AND STORE THEM 
IN E+3. 



4F11158 

4F11159 

4F11160 

4F11161 

4F11162 

4F11163 

4F11164 

4F11165 

4F1U66 

4F11167 

4F11168 

4F11169 

4F11170 

4F11171 

4F11172 

4F11173 

4F11174 

4F11175 

4F11176 

4F11177 

4F11178 

4F11179 

4F11180 

4F11181 

4F11182 

4F11183 

4F11184 

4F11185 

4R11186 

4F11187 

4F11188 

4F11189 

4F11190 

4F11191 

4F11192 

4F11193 

4F11194 

4F11195 

4F11196 

4F11197 

4F11198 

4F11199 

4F11200 

4F11201 

4F11202 

4F11203 

4F11204 

4FU205 

4F11206 

4F11207 

4F11208 

4F11209 

4F11210 

4F11211 



03071 


.0 


50000 


01132 




CLA 


E+4 


03072* 





6010© 


01133 




STO 


E+5 


Q3073 





50000. 


01135 




CLA 


E+7 ' 


03074 





76700 


00022 




ALS 


18 


03075 





60100 «0 


01132 




STO 


E+4 


03076 





50000 P 


01136 




CLA 


£+8 


03077 





60100 


01135 




STO 


E+7 


03100 





50000 


01101 




CLA 


D12 


03101 





60100 


01136 




STO 


E+8 


03102 


-0 


50000 


01141 




CAL 


E+ll 


03103 





76700 


00022 




ALS 


18 


03104 


-0 


50100 


01142 




OR A 


E+12 


03105 





60200 


01141 




SLW 


E+ll 


03106 


-0 


50000 


01143 




CAL 


E+13 


03107 





76700 


00022 




ALS 


18 


03110 





60200 


01142 




SLW 


E+12 


03111 





07400 4 


00443 




TSX 


TAU3IX.4 


03112 





767£0 


00030 




ALS 


24 


03113 


-0 


60200 


01126 




ORS 


E 


03114 


-0 


50000 


01135 




CAL 


E+7 


03115 


-0 


50100 


01134 




ORA 


E+6 


03116 


-0 


50100 


01133 


3D0340 


ORA 


E+5 


03117 





10000 


03216 


3D0350 


TZE 


NOTAG 


03120 


-0 


50000 


00030 


FTG0O0 


CAL 


EIFNO 


03121 


-0 


32000 


01527 




ANA 


MASK1 


03122 





60200 


01347 




SLW 


G 


03123 


-0 


50000 


01126 




CAL 


E 


03124 





77100 


00030 




ARS 


24 


03125 


-0 


60200 


01347 




ORS 


G 


03126 





07400 1 


03321 




TSX 


TETOO.l 


03127 





00000 


00004 




P2E 


4 


03130 


1 


00000 


03220 




TXI 


SAEXIT»0 


03131 





53400 4 


01412 


2D0000 


LXA 


L(4) »4 


03132 





56000 4 


01135 


2D0001 


LDQ 


E+7.4 


03133 





07400 1 


02566 




TSX 


SR6DC1.1 


03134 





60100 4 


01135 




STO 


E+7.4 


03135 


2 


00002 4 


03132 




TIX 


2D0001.4.2 


03136 





53400 4 


01410 




LXA 


L(2)»4 


03137 





50000 4 


01143 


2D0002 


CLA 


E+13 .4 


03140 





60200 


01347 




SLW 


G 


03141 





56000 


01347 




LDQ 


G 


03142 





07400 1 


02566 




TSX 


SR6DC1»1 


03143 





56000 4 


01143 




LDQ 


E+13. 4 


03144 





16200 


03146 




TOP 


2D0040 


03145 


-0 


50100 


01453 




ORA 


2E17 


03146 





60100 4 


01143 


2D0040 


STO 


E+13. 4 


03147 


2 


00001 4 


03137 




TIX 


2D0002.4.1 


03150 





07400 4 


01775 




TSX 


DIM2SR»4 


03151 





07400 4 


03400 




TSX 


DIAG.4 


03152 





50000 


01131 


2D0060 


CLA 


E+3 


03153 





76700 


00022 




ALS 


18 


03154 





40000 


01133 




ADD 


E+5 


03155 





60100 


01131 




STO 


E+3 


03156 





50000 


01134 




CLA 


E+6 



u 



MOVE SUBSCRIPT 1 

TO E+5 J 

AND MOVE 

COEFFICIENT 3 

INTO E+4, 

MOVE SUBSCRIPT 3 INTO E+7» 

NEXT TO SUBSCRIPT 2 IN E+6. 

MOVE DIMENSIONS 1 AND 2 

INTO E+8* 

PACK TOGETHER 

ADDENDS 1 *AND 2 

AND 

STORE THEM IN E+ll. 

MOVE 

ADDEND 3 

INTO E+12. 

GO SEARCH TAU3 TABLE* 

POSITION TAU3 TAG* AND 

PLACE TAU3 TAG IN TAG WORD. 

COMBINE 

SUBSCRIPTS 3.2. AND It 

AND IF THEY ARE ALL ZERO. 

— DON.T ENTER FORTAG. 

ENTER FORTAG* 

BRING UP ALPHA (INTFORMNO) 

AND STORE IN G. 

BRING UP TAUTAG FOR I* 

ADJUST* AND 

PLACE IN G WITH ALPHA. THEN 

ENTER INTO FORTAG TABLE 

CTET TABLE 4). 

GO TO EXIT. 

THEN PICKUP AND 

CONVERT COEFFICIENTS 

(BCD TO BINARY! . 

AND STORE BACK IN E+3 AND E+5. 

WHEN DONE. 

PREPARE TO 

PICKUP THE TWO ADDENDS. 

STRIP OFF 

THEIR SIGNS* 

CONVERT THEM FROM BCD TO BINARY. 

PUT SIGN IN S-3IT OF MQ. AND 

IF PLUS— SKIP NEXT. 

IF MINUS — OR SIGN INTO BIT 18. 

AND STORE BACK IN E+ll AND E+12. 

WHEN DONE. 

GO SEARCH DIM2 TABLE. 

—ERROR.. .NOT OX DRUM. 

REFORMATIZE E-STRING - 

PACK TOGETHER 

COEFFICIENTS 1 AND 2. 

AND STORE THEM IN E+3. 

MOVE SUBSCRIPT 2 INTO E+5 



4F11212 
4F11213 
4F11214 
4F11215 
4F11216 
4F11217 
4F11218 
4F11219 
4F11220 
4F11221 
4F11222 
4F 11223 
4F 11224 
4F11225 
4F 11226 
4F 11227 
4F11228 
4F 11229 
4F11230 
4F11231 
4F11232 
4F 11233 
4F 11234 
4F11235 
4R 11236 
4F11237 
4F11238 
4F 11239 
4FU240 
4F11241 
4F 11242 
4F11243 
4F 11244 
4F 11245 
4F11246 
4F 11247 
4F 11248 
4F11249 
4F11250 
4F11251 
4F11252 
4F11253 
4F11254 
4F11255 
4F 11256 
4F11257 
4F11258 
4F 11259 
4F11260 
4F11261 
4F11262 
4F11263 
4F 11264 
4F11265 



U 



03157 
03160 
03161 
03162 
03163 
03164 
03165 
03166 
03167 
03170 
03171 
03172 
03173 
03174 
03175 
03176 
03177 
03200 
03201 
03202 
03203 
03204 
03205 
03206 
03207 
03210 
03211 
03212 
03213 
03214 
03215 
03216 
03217 
03220 
03221 
03222 
03223 



03224 
03225 
03226 
03227 
03230 
03231 
03232 
03233 
03234 
03235 
03236 
03237 



60100 
50000 
32000 
60100 
50000 
76700 
50100 
60200 
07400 
76700 
60200 
50000 
00000 
56000 
07400 
76700 
60100 
50000 
60200 
56000 
07400 
56000 
16200 
50100 
76700 
60200 
07400 
76700 
60200 
50000 
1 00000 
50000 
60200 
53400 
53400 
53400 
02000 



53400 
56000 
75400 
76300 
40200 
10000 
00006 
00001 
02000 
56000 
76300 
60200 



01133 
01101 
01527 
01134 
01141 
00022 
01142 
01141 
00436 
00030 
01126 
01132 
03116 
01131 
02566 
00022 
01131 
01141 
01347 
01347 
02566 
01141 
03207 
01453 
00022 
01141 
00431 
0003 
01126 
01132 
03117 
01471 
01126 
02730 
02731 
02732 
00001 



01414 
01112 
00000 
00006 
01430 
03235 
03233 
03226 
00001 
01526 
00044 
01112 



100000 



1D0001 



NOTAG 
SAEXIT 



SUBXOO 
SUBX01 

SUBX02 
SUBX03 



STO 
CLA 
ANA 
STO 
CAL 
ALS 
OR A 
SLW 
TSX 
ALS 
ORS 
CAL 
TXI 
LDQ 
TSX 
ALS 
STO 
CLA 
SLW 
LDQ 
TSX 
LDQ 
TQP 
ORA 
ALS 
SLW 
TSX 
ALS 
ORS 
CAL 
TXI 
CAL 
ORS 
LXD 
LXD 
LXD 
TRA 



LXA 
LDQ 
PXD 
LGL 
SUB 
TZE 
TXI 
TIX 
TRA 
LDQ 
LGL 
ORS 



E+5 

D12 

MASK1 

E+6 

E+ll 

18 

E+12 

E+ll 

TAU2IX*4 

24 

E 

E+4 

3D0340tO 

E + 3 

SR6DC1»1 

18 

E+3 

E + ll 

G 

G 

SR6DC1*1 

E+ll 

1D0001 

2E17 

18 

E+ll 

TAUlIXf4 

24 

E 

E+4 

3DO350*0 

FNIND 

E 

SXR1»1 

SXR2*2 

SXR4t4 

1»4 

END OF PROGRAM SSOOO* 
************ 



(NEXT TO SUBSCRIPT 1 IN E+U. 

OBTAIN 

DIMENSION 1* AND MOVE IT 

INTO E+6. 

PACK TOGETHER 

ADDENDS 1 AND 2* 

AND STORE THEM 

IN E+ll. 

* GO SEARCH TAU2 TABLE* 
POSITION TAU2 TAG* AND 
PLACE TAU2 TAG IN TAG WORD* 
COMBINE SUBSCRIPTS 1 AND 2* AND 
GO TO FORTAG SECTION* 

PICKUP AND CONVERT COEFFICIENTS 

* (BCD TO BINARY)* AND 
THEN ADJUST THEM* 

AND STORE THEM BACK IN E+3* 
PICKUP ADDEND* 
STRIP OFF SIGN* 
CONVERT ADDEND 

* (BCD TO BINARY)* AND THEN 
PUT SIGN IN S-BIT OF MQ» AND 
IF PLUS — SKIP NEXT* 

IF MINUS — OR SIGN INTO BIT 18* 
THEN ADJUST AND STORE 
BACK INTO E+ll. 

* GO SEARCH TAU1 TABLE* 
POSITION TAU1 TAG* AND 
PLACE TAU1 TAG IN TAG WORD* 
TAKE SUBSCRIPT* AND 

GO TO FORTAG SECTION* 
POSITION SIGMA1 TAG* AND 
PLACE SIGMA1 TAG IN TAG WORD* 
RESTORE THE C(XR1)» 
RESTORE THE C(XR2) » 
RESTORE THE C(XR4)» AND 

* EXIT TO MAIN ROUTINE* 

****************** 



SUBXOO 

SUBXOO 

L<6)*3 

1G 

• 

6 

BLANK 

SUBX03 

SUBX02 

SUBX01 

1*4 

BLANKS 

36*1 

1G 



•4/ CALLERS=C3000*C33Q0. 
ADDS BLANKS TO THE NAMES OF SUBROUTINES* 

PREPARE TO COUNT CHARS AND SHIFTS* 
PICKUP SUBROUTINE NAME* 
CLEAR THE AC* AND 
SEARCH FOR A BLANK 
CHARACTER IN THIS NAME* 
IF NOT BLANK* THEN 
UPDATE SHIFT COUNT* AND 
CONTINUE UNTIL 6 CHARS ARE COUNTED 
* RETURN TO CALLER AFTER 6TH CHAR* 
IF LESS THAN 6 CHARAC T ERS IN NAME. 
SHIFT ENOUGH BLANKS INTO THE AC* 
AND FILL OUT NAME WITH BLANKS* 



♦ 1*6 
»2»1 



4F11266 
4F11267 
4F11268 
4F11269 
4F11270 
4F11271 
4F11272 
4F11273 
4F11274 
4F11275 
4F11276 
4F11277 
4F11278 
4F11279 
4F11280 
4F11281 
4F11282 
4F11283 
4F11284 
4F11285 
4F11286 
4F11287 
4F11288 
4F11289 
4F11290 
4F11291 
4F11292 
4F11293 
4F11294 
4F11295 
4F11296 
4F11297 
4F11298 
4F11299 
4F11300 
4F11301 
4F11302 
4F11303 

*4F11304 
4F11305 
4F11306 
4F11307 
4F11308 
4F11309 
4F11310 
4F11311 
4F11312 
4F11313 
4F11314 

•4F11315 
4F11316 
4F11317 
4F11318 
4F11319 



03240 02000 4 00001 



TRA 



1,4 

END OF PROGRAM SUBXOO. 
*************** 



* RETURN TO CALLER* 



*************** 



03241 


-0 50000 01331 


TESTFX 


CAL F1RSTC 


03242 


34000 01423 




CAS L(H) 


03243 


34000 01425 




CAS L(0) 

TRA 1»1 * 


03244 


02000 1 00001 




03245 


02000 1 00001 




TRA 1*1 * 


03246 


02000 1 00002 




TRA 2»1 * 
END OF PROGRAM TESTFX. 
************* 



TESTFX, 1/ CALLERS=SSOOO»C3000»IFFIX. 

TESTFX TESTS FOR FIXED OR FLOATING POINT VARIABLES. 



4F11320 
4F11321 
♦4F11322 
4F11323 
4F11324 
4F11325 
4F11326 
4F11327 



COMPARE FIRST CHARACTER 

WITH H. -,,„■,« 

IF GREATER THAN H» COMPARE WITH 0. 4F11328 
IF NOT GREATER THAN H» LESS THAN C4F11329 
THEN TAKE FLOATING POINT EXIT. 4F11330 
OTHERWISE, TAKE FIXED POINT EXIT. 4F11331 

4F1133Z 
♦4F11333 
4F11334 
T ES T...WCALLS ! DIA G .CALLERS=C0100,C0200,C0300,CO,00 : Ci r 



***************** 



03247 





34000 





01376 


TESTAO 


CAS 


03250 





02000 





03252 




TRA 


03251 





02000 


4 


00001 




TRA 


03252 





40200 





01374 


TESTA1 


SUB 


03253 





10000 


4 


00001 




TZE 


03254 





07400 


4 


03400 




TSX 


03255 





34000 





01376 


TESTBO 


CAS 


03256 





02000 





03260 




TRA 


03257 





02000 


4 


00001 




TRA 


03260 





40200 





01377 


TESTB1 


SUB 


03261 





10000 


4 


00001 




1 £.£. 


03262 





07400 


4 


03400 




TSX 


03263 





34000 





01375 


TESTCO 


CAS 


03264 





02000 





03266 




TRA 


03265 





02000 


4 


00001 




TRA 


03266 





40200 





01374 


TESTC1 


SUB 


03267 





10000 


4 


00001 




TZE 


03270 





07400 


4 


03400 




TSX 


03271 





34000 





01374 


TEST DO 


CAS 


03272 





07400 


4 


03400 


ERR77P 


TSX 


03273 





02000 


4 


00001 




TRA 


03274 





07400 


4 


03400 




TSX 


03275 





34000 





01375 


TESTEO 


CAS 


03276 





02000 





03300 




TRA 


03277 





02000 


4 


00001 




TRA 


03300 





07400 


4 


03400 


TESTE1 


TSX 


03301 





34000 





01377 


TESTFO 


CAS 


03302 





02000 





03304 




TRA 


03303 





02000 


4 


00001 




TRA 


03304 





07400 


4 


03400 


TESTF1 


TSX 



TEST..***/ LALua=uiftvj« v.«uuli\j-vui«w»>.vi.-»'<.--- -- 

C1100»C1200tC1400fC1500tC1600»C3000,C3100»C3200tC3400»LPR. 

TEST.. TESTS THE CHARACTER IN THE AC (30-35 J. 

TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK. 

COMMA 

TESTA1 . _„ 

1#4 * RETURN TO CALLER. 

1,4 * RETURN TO CALLER. 

0IA6.4 * ERROR — GO TO DIAGNOSTIC. 

TEST CHARACTER IN THE AC FOR COMMA OR CLOSED PARENTHESIS. 

COMMA 

J" TB1 * RETURN TO CALLER. 

, / « DCTMDW TQ CALLER. 

£JaG,4 * ERROR — GO TO DIAGNOSTIC. 

TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS OR ENDMARK. 

OPEN 

1# 4 * RETURN TO CALLER. 

ENDMK 

1.4 * RETURN TO CALLER. 

5 IA G,4 * E RR0R — G0 T0 DIAGNOSTIC. 

TEST CHARACTER IN THE AC FOR ENDMARK. 

D?aG^4 * MACHINE ERROR, GO TO DIAGNOSTIC. 

1,4 * RETURN TO CALLER. 

SIJg.4 * E* R0R — 60 T0 DIAGNOSTIC. 

TEST CHARACTER IN THE AC FOR OPEN PARENTHESIS. 

OPEN 

!,4 * RETURN TO CALLER. 

51 AG, 4 * ERROR — GO TO DIAGNOSTIC. 

TEST CHARACTER IN THE AC FOR CLOSED PARENTHESIS. 

CLOS 

l^f TF1 * RETURN TO CALLER. 

5JaG,4 * E RR R — G0 T0 DIAGNOSTIC. 



4F11336 

4F11337 

4F11338 

4F11339 

4F11340 

4F11341 

4F11342 

4F11343 

4F11344 

4F11345 

4F11346 

4F11347 

4F11348 

4F11349 

4F11350 

4F11351 

4F11352 

4F11353 

4F11354 

4F11355 

4F11356 

4F11357 

4F11358 

4F11359 

4F11360 

4F11361 

4F11362 

4F11363 

4F11364 

4F11365 

4F11366 

4F11367 

4F11368 

4F11369 

4F11370 

4F11371 

4F11372 

4F11373 



u 



u 



03305 





34000 





01376 


TESTGO 


CAS 


03306 





02000 





03310 




TRA 


03307 





02000 


4 


00001 




TRA 


03310 





07400 


4 


03400 


TESTG1 


TSX 


03311 





34000 





01417 


TESTHO 


CAS 


03312 





02000 


4 


00001 




TRA 


03313 





76100 





00000 




NOP 


03314 





07400 


4 


03400 




TSX 


03315 





34000 





01417 


TESTIO 


CAS 


03316 





07400 


4 


03400 




TSX 


03317 





02000 


4 


00001 




TRA 


03320 





02000 


4 


00001 




TRA 



03321 


-0 


63400 


2 


01100 TETOO 


SXD 


TETXR2»2 


03322 


-0 


63400 


4 


01101 


SXD 


TETXR4.4 


03323 


-0 


60000 





01103 


STQ 


TETMOR 


03324 





50000 


1 


00001 


CLA 


1*1 


03325 





76700 





00001 


ALS 


1 


03326 





40000 


1 


00001 


ADD 


1«1 


03327 





76000 





00006 


COM 




03330 





40000 





01407 


ADD 


L(l) 


03331 





73400 


2 


00000 


PAX 


• 2 


03332 





50000 


2 


00322 


CLA 


INTET*2 


03333 





77100 





00022 


ARS 


18 


03334 





60100 





01102 


STO 


TETWRK 


03335 





50000 


2 


00324 


CLA 


INTET+2.2 


03336 





77100 





00022 


ARS 


18 


03337 





40200 





01102 


SUB 


TETWRK 


03340 


-0 


10000 





03356 


TN2 


TET03 


03341 





62200 


2 


00324 


STD 


INTET+2.2 


03342 





76600 





00224 TET01 


WRS 


TABTAP 


03343 





53400 


4 


01102 


LXA 


TETWRK »4 


03344 





50000 





01102 


CLA 


TETWRK 


03345 





40000 


2 


O0322 


ADD 


INTET.2 


03346 





62100 





03350 


STA 


TET02 


03347 





70000 


1 


00001 


CPY 


1*1 


03350 





70000 


4 


00000 TET02 


CPY 


**»4 


03351 


2 


00001 


4 


03350 


TIX 


TET02.4.1 


03352 





76600 





00333 


IOD 




03353 





50000 


2 


00324 


CLA 


INTET+2.2 


03354 





40000 





01407 


ADD 


L(l) 


03355 





62100 


2 


00324 


STA 


INTET+2>2 


03356 





50000 


2 


00324 TET03 


CLA 


INTET+2#2 


03357 





77100 





00022 


ARS 


18 


03360 





40000 


2 


00322 


ADD 


INTET»2 



TEST CHARACTER IN THE AC FOR COMMA* 

COMMA 

TESTG1 

lfi¥ * RETURN TO CALLER* 

D IAG»4 * ERROR — GO TO DIAGNOSTIC. 

TEST CHARACTER IN THE AC FOR NON-NUMERIC. 

L<9) 

lt4 * RETURN TO CALLER. 

DIAG.4 * ERROR — GO TO DIAGNOSTIC 

TEST CHARACTER IN THE AC FOR NUMERIC. 

d11g»4 * ERROR — GO TO DIAGNOSTIC. 

l fk * RETURN TO CALLER. 

l $k * RETURN TO CALLER. 

END OF PROGRAM TEST... ^ ^ * * * *. * 

* * * *************************** 

TETOO. 1/ CALLERS=CAOOO«CCOOO»C0100.C0200*C0300»C1300.C1400» 
C150O.C3000»C3100»SSO00»FOR»SPC.CMA,EMK.LlB.VRA{VRDU 
TETOO MAKES ENTRIES IN THE TAPE TABLES. WHEN A BUFFER IS 
FULL IT IS WRITTEN AS A RECORD ONTO TAPE 4. 

SAVE THE CtXR2)» 

SAVE THE C(XR4)» AND 

SAVE THE C(MQR). 

COMPUTE TABLE NUMBER 

TIKES 3 

AND 

PLACE THE 2S COMPLEMENT 

OP THIS 

IN XR2. 

OBTAIN THE CURRENT 

B (BUFFER CAPACITY) ♦ 

AND SAVE IT. THEN 

GET P (PORTION OF BUFFER FULL)» 

AND 

COMPARE TO B* 

IF BUFFER IS FULL. 

SET P * 0# AND 

PREPARE TO WRITE BLOCK ON TABTAP. 

SET XR4 « BLOCK SIZE (B). 

ADD BLOCK SIZE TO 

ORIGIN OF CURRENT BLOCK (0) » 

AND SET ADDRESS OF COPY LOOP (0+B 

COPY TABLE NUM FOR IDENTIFICATION 

WRITE BLOCK ONTO 

TABLE TAPE. AND 

WHEN DONE, 

INCREASE C (BLOCK COUNT) 

BY 1 FOR 

BLOCK JUST WRITTEN ON TABLE TAPE. 

ADD P (PORTION OF BUFFER FULL) 

TO (ORIGIN OF CURRENT TABLE 

BUFFER) TO SET 



4F11374 
4F11375 
4F11376 
4F11377 
4F11378 
4F11379 
4F11380 
4F11381 
4F11382 
4F11383 
4F11384 
4F11385 
4F11386 
4F11387 
4F11388 
4F11389 
*4F11390 
4F11391 
4F11392 
4FU393 
4F11394 
4F11395 
4F11396 
4F11397 
4F11398 
4F11399 
4F11400 
4F11401 
4F11402 
4F11403 
4F11404 
4F11405 
4F11406 
4F11407 
4F11408 
4F11409 
4F11410 
4F11411 
4F11412 
4F11413 
4F11414 
4F11415 
4F11416 
).4F11417 
. 4F11418 
4F11419 
4F11420 
4F11421 
4F11422 
4F11423 
4F11424 
4F11425 
4F11426 
4F11427 



03361 





62100 





03371 




03362 





50000 


2 


00323 




03363 





62100 





03370 




03364 


-0 


73400 


4 


00000 




03363 





40000 


2 


00324 




03366 





62200 


2 


00324 




03367 


-0 


53400 


2 


01406 




03370 





50000 


2 


00000 


TET04 


03371 





60100 


2 


00000 


TET05 


03372 


1 


77777 


2 


03373 




03373 


2 


00001 


4 


03370 


TET06 


03374 





56000 





01103 




03375 


-0 


53400 


2 


01100 




03376 


-0 


53400 


4 


01101 




03377 





02000 


1 


00002 





STA TET05 
CLA INTET+1»2 
STA TET04 
PDX .4 

ADD INTET+2»2 
STD INTET+2.2 
LXD L(0)»2 
CLA **»2 
STO **»2 
TXI TETQ6»2»-1 
TIX TET04»4#1 
LDQ TETMQR 
LXD TETXR2*2 
LXD TETXR4»4 
TRA 2»1 

END OF PROGRAM TETOQ. 
************ 



ADDRESS OF ENTRY LOOP (P+0). ^IWtll 
OBTAIN CURRENT A (ENTRY ADDRESS) f 4F11429 
AND SET ADDRESS OF ENTRY LOOP. 4F11430 
SET XR4 * E (ENTRY LENGTH IN WRDS) .4F11431 
INCREASE P BY E TO ACCOUNT 4F11432 

FOR FOLLOWING ENTRY. 4F11433 

SET XR2 * 0. THEN 4F11434 

MOVE THE CURRENT ENTRY 4FU435 

INTO THE CURRENT TABLE BUFFER* AND 4F11436 



WHEN 

DONE* 

RESTORE ORIGINAL C(MQR)» 

RESTORE ORIGINAL C(XR2)» 

RESTORE ORIGINAL CIXR4)» AND 

EXIT TO MAIN ROUTINE. 

***************** 



03400 1 00000 00004 DIAG 



4F11437 
4F11438 
4F11439 
4F11440 
4F11441 
4F11442 
4F11443 
♦4F11444 
4F11445 

DIAGNOSTIC CALLERS*CDOOO*CBOOO»CCOOO*CA100»C0200#C0300»C0900»4F11446 
C1000»C1200tC3000tC3100»C3200»C3400»C0150tC0160»C0180#TEST*.*4F11447 
SR6DC1»DRTABS,RDRX.DIM.SR»SS000«R0YCNV,RDC.RSC.LPR*EQS.RPR» 4F11448 

CMA»EMK»BEGCTYPUVRA(VRD). 

(CAOOO ALSO CALLS THE DIAGNOSTIC AFTER ALL STATEMENTS HAVE 
BEEN PROCESSED. IF THERE HAVE BEEN NO PREVIOUS CALLS TO 
THE DIAGNOSTIC DURING SECTION ONE* THEN 1PRIME IS CALLED.) 
TXI 4>0 * GO GET THE DIAGNOSTIC. 

END OF DIAGNOSTIC CALLERS. 
************************* 



* * * * * 



03401 


=0 


63400 


4 


03437 


Fu. riwu 


SXD 


FLTR05»4 


03402 





50000 





00030 




CLA 


EIFNO 


03403 





62100 





02067 




STA 


ENT 


03404 





77100 





00022 




ARS 


18 


03405 





62100 





02070 




STA 


NZE 


03406 


-0 


53400 


4 


01122 




LXD 


ARGCTR»4 


03407 


-3 


00000 


4 


03413 




TXL 


FLTR01.4. 


03410 





60000 





01107 




STZ 


1C+2 


03411 





50200 





01454 




CLS 


2E18 


03412 





02000 





03423 




TRA 


FLTR03 


03413 





50000 





00365 


FLTR01 


CLA 


SBDFCN 


03414 


-0 


10000 





03420 




TN2 


FLTR02 


03415 





60000 





01107 




STZ 


1C+2 


03416 





60000 





OHIO 




STZ 


1C+3 


03417 





02000 





03424 




TRA 


FLTR04 


03420 





50000 





01523 


FLTR02 


CLA 


DOLSGN 


03421 





60100 





01107 




STO 


1C+2 


03422 





50000 





01457 




CLA 


D2 


03423 





60100 





OHIO 


FLTR03 


STO 


1C+3 


03424 





07400 


4 


01731 


FLTR04 


TSX 


CI TOO .4 


03425 





00000 





01406 




PZE 


L(0) 


03426 





00000 





02067 




PZE 


ENT 


03427 





00000 





01510 




PZE 


15P 


03430 





00000 





01457 




PZE 


02 



4F11449 
4F11450 
4F11451 
4F11452 
4F11453 
4F11454 
♦4F11455 
4F11456 
4F 11457 
4F114571 



ROUTINE TO COMPILE FLOW TRACING INSTRUCTIONS. 
SAVE CALLING TAG. 

GET LAST INTERNAL AND EXTERNAL FORMULA N0S.4FH4572 
PLACE LAST EFN IN DEC OF NTR INSTRUCTION. 4F1 14573 

4F1 14574 

PLACE LAST I FN IN DEC OF PZE 



IS THIS AN FN FUNCTION* NO SKIP. 
SET ADDRESS TO -1 

IS THIS A MAIN PROGRAM OR SUBPROGRAM* 
SKIP ON SUBPROGRAM 
SET ADDRESS TO 



SET ADDRESS TO $+2 



SET RELATIVE ADDRESS WORD OF CIT. 



COMPILE 



NTR *+2*0»EFN 



4F114575 
4F114576 
4F114577 
4F114578 
4F114579 
4F11457A 
4FH457B 
4FH457C 
4F11457D 
4F11457E 
4F11457F 
4F11457G 
4F11457H 
4F11457I 
4F11457J 
4F11457X 
4F11457L 
4F11457M 
4F11457N 
4F1 14570 



■U 



(J 



03431 
03432 
03433 
03434 
03435 
03436 
03437 



07400 4 01731 
00000 01406 
00000 02070 
00000 01107 

00000 OHIO 
-0 53400 4 03437 

1 00000 01731 FLTR05 



TSX CIT00»4 

PZE LIO) 

PZE NZE 

PZE 1C+2 

PZE 1C+3 

LXD FLTR05*4 

TXI CIT0O»Q»** 



4F11457P 
COMPILE PZE ALPHA*0»IFN 4F11457Q 

WHERE ALPHA IS FOR MAIN PROGRAMt $+2 FOR 4F11457R 
SUBPROGRAM* OR -1 FOR FN FUNCTION IN EITHER4F11457S 



MAIN OR SUBPROGRAM. 



GO COMPILE 



LXD MC*4 OR 7(TYPE=»4 



00471 



END OF THE COMMON PART OF SECTION ONE* 
****************************** 

SECTION 1 / INITIALIZATION = 
ORG FORSUB 

INITIALIZATION OCCUPIES FORSUB BUFFER AND IS WRITTEN OVER 
BY FORSUB ENTRIES IF THERE ARE ANY FORTRAN FUNCTIONS IN THE 
PROGRAM* 
****************************** 



00471 





53400 


1 


00504 


CLDROO 


00472 





76600 


1 


00305 


CLDR01 


00473 


-0 


53400 


2 


00504 




00474 





70000 





00505 


CLDR03 


00475 


2 


00001 


2 


00474 




00476 


2 


00001 


1 


00472 




00477 





77200 





00222 




00500 





77200 





00223 




00501 





77200 





00224 




00502 





07400 


4 


05702 


DMWR99 


00503 





02000 





03440 





PART 1 / 
LXA CLDR07*! 
WRS 197*1 
LXD CLDR07»2 
CPY CLDR08 
TIX CLDR03*2*i 
TIX CLDR01»1»1 
REW 146 
REW 147 
REW 148 

TSX CA100*4 * 

TRA CA010 * 

END OF INITIALIZATION / PART 2. 

************************ 



4F11457T 

4F11457U 

4F11457V 

4F11457W 

4F11458 

4F11459 

4F11460 

♦4F11461 
AF11462 
4F11463 
4F11465 
4F11466 
4F11467 
4F11468 

*4F11469 
4F11470 
4F11471 
4F11472 
4F11473 
4F11474 
4F11475 
4F11476 
4F11477 
4F11478 
4F11479 
4F11480 



00504 04000 00004 CLDR07 

00505 00000 00000 CLDR08 



CLEAR DRUMS 1*2*3*4* AND REWIND TAPES 2*3*4 = 

CLEAR DRUMS 1*2*3*4 TO +0. 

X 

X 

X 

X 

X 

REWIND WORKING TAPES 2»3*4. 

X 

X 

GO TO SUBROUTINE TO LOAD FT REGION.4F11540 

GO BEGIN STATE A OF SECTION ONE. 4F11541 

4F11542 
♦4F11543 
4F11544 
4F11545 
4F11548 
4F11549 
4F11552 
*4F11553 
4F11554 
4F11555 
4F11556 
4F11558 
4F11559 
4F11560 
4F11561 



****** 



PART 3 / VARIABLES AND CONSTANTS USED BY INI TI ALIZAT ION= 
PZE 4**2048 CONSTANT FOR CLEARING DRUMS* 

PZE CONSTANT FOR CLEARING -DRUMS. 

END OF INITIALIZATION / PART 3. 

*********** •>***#************•** 



SECTION 1 / STATEA * 



NAME FUNCTION 

PART 1 / ASSEMBLE AND CLASSIFY ALL STATEMENTS= 

CAOOO ASSEMBLE STATEMENT. 

COOOO SCAN FOR HOLLERITH AND ILLEGAL CHS.4FH562 

CBOOO CLASSIFY*ARITHMETIC/N0N-ARITHMETIC.4F11563 

CCOOO CLASSIFY=WHICH NON-ARITHMETIC. 4FU564 

PART 2 / PROCESS CONTROL AND SPECIFICATION STATEMENTS* 4F11565 

C0100 _ DO. 4F11566 

C0200 GO TO. 4F 11567 

C0300 IF. 4F11568 



C0400 IF tSENSE SWITCH. 4 £H?£2 

C0500 IF fSENSE LIGHT. 4F11570 

C06OO IF DIVIDE CHECK. 4F11571 

C0700 IF AC OVERFLOW. 4F11572 

C0800 IF MQ OVERFLOW. 4F11573 

C0900 PAUSE. 4F1I574 

ClOOO ASSIGN. 4F1I575 

CHOO SENSE LIGHT. 4F11576 

C1200 DIMENSION. 4F11577 

C1300 STOP. 4F11578 

C140O FREQUENCY. 4F11579 

C1500 EQUIVALENCE. 4F11580 

C160O CONTINUE. 4F11581 

C30OOK35O0) SUBROUTINE / FUNCTION. 4F11582 

C3100 COMMON. 4F11583 

C3200 RETURN. 4F11584 

C3300 CALL* 4F11585 

C3400 END. 4F11586 

PART 3 / PROCESS INPUT-OUTPUT STATEMENTS* 4F11587 

RDC READ CARD. 4F11588 

RIT READ INPUT TAPE. 4F11589 

RDP PRINT. 4F11590 

W OT WRITE OUTPUT TAPE. 4F11591 

PDC PUNCH. 4F11592 

W8T WRITE TAPE. 4F11593 

RBT READ TAPE. 4F11594 

W R0 WRITE DRUM. 4F11595 

ROD READ DRUM. 4F11596 

EFT END FILE. 4FU597 

RUN REWIND. 4F11S98 

BSP BACKSPACE. 4F11599 

FOR FORMAT. 4F 11600 

RSC RESET AND SCAN. 4F11601 

LISTR CONTROL FOR LIST SCAN. 4F11602 

L p R LEFT PARENTHESIS IN LIST SCAN. 4F11603 

E QS EQUAL SIGN IN LIST SCAN. 4F11604 

SPCTR CONTROL FOR SPECIFICATION SCAN. 4F11605 

SPC SUBSCRIPT SPECIFICATIONS. 4F11606 

RPR RIGHT PARENTHESIS IN LIST SCAN. 4F11607 

CMA COMMA IN LIST SCAN. 4F11608 

E KK ENDMARK IN LIST SCAN. 4F11609 

PART 4 / SUBROUTINES USED BY STATE A» 4F11610 

BEGCTYP)#4 BEGINNING SCAN AND TYPE TEST. 4F11611 

BEGTR CONTROL FOR BEGINNING SCAN. 4FU612 

BRW#4 BINARY READ OR WRITE COMPILER. 4F11613 

BSS*2 COMPILES" IFN BSS 0. 4F11614 

CA100*4 READ SOURCE PROGRAM TAPE. 4F11615 

CC500#* SCAN DICTIONARY. 4F11616 

ETM(LTM)SW#4 IF SW=NOP» COMPILES ETM(LTM). SL=0.4F11617 

IFFIXtl SETS UP FORVAR OR FORVAL ENTRY. 4F11618 

IN(0UT)PUT#2 COMPILES CAL *• AND XIT (LEV). 4F11619 

• IB,1 MAKES CLOSUB ENTRYt COMPILES CIT. 4FH620 

VRACVRD)»A MAKES FORVARt FIXCON* CIT ENTRIES. 4F11621 

PART 5 / CONSTANTS AND VARIABLES USED BY STATE A. 4F11622 



1.1 



o 



u 



DIC 

T 



DICTIONARY. 
TRANSFER TABLE* 



03440 
03441 
03442 
03443 
03444 
03445 
03446 
03447 
03450 
03451 
03452 
03453 
03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 
03472 
03473 
03474 
03475 
03476 
03477 
03500 
03501 



53400 
00000 
53400 
00001 
63400 
50000 
77100 
60200 
53400 
53400 



56000 



00001 
00001 
07400 
50000 
32000 
10000 
40200 
10000 
50000 
34000 
02000 
00001 
56000 
60000 
50000 
34000 
02000 
02000 
76500 
07400 
62100 
07400 



-0 60000 1 



03440 
03440 



02575 
03400 
00030 
03444 
00030 
01333 
00006 
01151 
01670 
01400 
01347 
00000 
03455 
03452 
05702 
01333 
01374 
03464 
01430 
03451 
01526 
77777 
03470 
03465 
01531 
00000 
01151 
01477 
03476 
03503 
00043 
02566 
00030 
03321 



OR 6 A 
STATEA 

CA010 
CA013 



CA018 
CA019 



CA020 



CA021 
CA022 



CA023 



CA015 



THE FOLLOWING CONVENTIONS ARE USED IN THIS LISTING* 

** IN THE ADDRESS* TAG. OR DECREMENT OF AN INSTRUCTION 

INDICATES THAT THIS FIELD WILL BE MODIFIED BY THE PROGRAM, 

* IN COL/36 INDICATES THE INSTRUCTION IS A TRANSFER OUT OF 

THIS LOGICAL BLOCK OR SUBROUTINE. 

C IN COL/34 INDICATES THE INSTRUCTION WAS CORRECTED* 

P IN COL/32 INDICATES THE INSTRUCTION WAS INSERTED (PATCHU 

•a***************************** 



ORG 
BSS 



LXD 
TXL 
LXD 
TXI 
SXD 
CAL 
ARS 
SLW 
LXD 
LXA 
LDQ 
STQ 
TIX 
TIX 
TSX 
CAL 
ANA 
TZE 
SUB 
TNZ 
CLA 
CAS 
TRA 
TXI 
LDQ 
STQ 
CAL 
CAS 
TRA 
TRA 
LRS 
TSX 
STA 
TSX 



STATEA/1-ASSEMBLE AND CLASSIFY ALL STATEMENTS' 
1824 * * » « * * 



CAOOO/ CALLS=CA100#SR6DC1»TETOO»DIAG« 



# * * * * 



4F 11623 
4F11624 
4F11625 
4F11626 
4F11627 
4F11628 
4F11629 
4F11630 
4F11631 
4F11632 
4F116?* 
4F116. 

*4F11635 
4F11636 
4F11637 
4F11638 

*4FU639 
4F 11640 
4F11641 



CAOOO ASSEMBLES STATEMENT 

ENDWRD>4 

DIAG»4»0 

EIFNO.l 

CA013*1#1 

EIFN0*1 

FT 

6 

F-l 

DCF»1 

L(ll)»2 

FT+12.2 

0*1 

CA020*1»1 

CA019»2»1 

CA100»4 

FT 

L(63) 

CA021 

ABLANK 

CA018 

BLANKS 

-1*1 

CA023 

CA022»1* 1 

360NES 

0*1 

F-l 

5BLANS 

CA015 

CDOOO 

35 

SR6DC1>1 

EIFNO 

TETOO*1 



IN THE F-REGION AND ASSIGNS AN IFN.4F11642 
IF THE FINAL STATEMENT HAS BEEN 4F11643 
PROCESSED* THEN GO CALL DIAGN0STIC.4F11644 



KEEP INTERNAL FORMULA NUMBER 

(DECR PART OF EIFNO) 

UP TO DATE BY ADDING 1* 

OBTAIN HOLLERITH CODED 5-DIGIT 

EXTERNAL FORMULA NO IN ACC* 

AND RETAIN IN F-01* 

INITIALIZE INDEX A TO COMPL OF F* 

SET UP LOOP FOR 11 CYCLES* 

MOVE WORD FROM REGION FT 

TO REGION F. 

KEEP F-REGION ADDRESS UP-TO-DATE* 

TEST END OF LOOP* 

GO READ NEXT NON-BLANK CARD* 

TEST RIGHTMOST CHARACTER OF 

FIRST WORD FOR CONTINUATION MARK* 

IF ZERO OR BLANK* 

DISCONTINUE READING* 

OTHERWISE CONTINUE* 

BEGIN SCANNING REGION F BACKWARDS 

TO FIND FIRST NON BLANK WORD* 

NOT BLANK* 

BLANK* SO CONTINUE SCAN. 

PLACE BINARY ONES IN FIRST WORD 

FOLLOWING RIGHTMOST NONBLANK WORD* 4FH668 

PICK UP EXTERNAL FORMULA NUMBER AND4F11669 



4F11645 
4F11646 
4F11647 
4F11648 
4F11649 
4F11650 
4F11651 
4F11652 
4F11653 
4F11654 
4F11655 
4F11656 
4F11657 
4F11658 
4K11659 
4F 11660 
4F11661 
4F11662 
4F11663 
4F11664 
4F11665 
4F11666 
4F11667 



COMPARE WITH /O 

NOT COMPARE* 

TAKE EXTFORMNO* IF ANY* AND 

GO TO CONVERSION SUBROUTINE AND 

RETURN HERE WITH RESULT IN ACC* 

STORE RESULT IN ADDRESS OF EIFNO* 

GO TO PROGRAM TET TO ENTER EIFNO 



4F11670 
4F11671 
4F11672 
4F11673 
4F11674 
4F11675 
4F11676 



03502 00000 00000 



PZE 





03503 





07400 


4 


01671 


CD000 


TSX 




03504 





07400 


1 


03534 


CD001 


TSX 




03505 





34000 





01376 




CAS 





03506 


1 


00000 





03510 




TXI 





03507 


1 


00000 





03512 




TXI 




03510 





40200 





01375 


C0002 


SUB 




03511 


-0 


10000 





03504 




TNZ 




03512 





07400 


1 


03534 


CD003 


TSX 




03513 





40200 





01373 




SUB 




03514 





12000 





03504 




TPL 




03515 





07400 


1 


03534 


CD004 


TSX 




03516 





34000 





01417 




CAS 





03517 


1 


00000 





03522 




TXI 


D 


03520 


1 


00000 





03515 




TXI 


D 


03521 


1 


00000 





03515 




TXI 




03522 





34000 





01423 


CD005 


CAS 





03523 


1 


00000 





03505 




TXI 





03524 


1 


00000 





03526 




TXI 


D 


03525 


1 


00000 





03505 




TXI 




03526 





07400 


4 


01707 


CD700 


TSX 




03527 





34000 





01374 




CAS 





03530 


1 


00000 





03532 




TXI 


D 


03531 


1 


00000 





03616 




TXI 




03532 





07400 


1 


03543 


CD701 


TSX 





03533 


1 


00000 





03526 




TXI 




03534 





07400 


4 


01707 


CD900 


TSX 




03535 





34000 





01374 




CAS 





03536 


1 


ooooo 





03540 




TXI 


D 


03537 


1 


00000 





03562 




TXI 




03540 





34000 





01427 


CD800 


CAS 





03541 


1 


00000 





03546 




TXI 




03542 





07400 


4 


03400 




TSX 




03543 





34000 





01435 


CO 6 00 


CAS 




03544 





02000 


1 


00001 




TRA 




03545 





07400 


4 


03400 




TSX 




03546 





34000 





01426 


CD601 


CAS 




03547 





02000 


1 


00001 




TRA 




03550 





07400 


4 


03400 




TSX 




03551 





34000 





01424 




CAS 




03552 





02000 


1 


00001 




TRA 




©3553 





07400 


4 


03400 




TSX 




03554 





34000 





01420 




CAS 




03555 





02000 


1 


00001 




TRA 




03556 





07400 


4 


03400 




TSX 




03557 





40200 





01373 




SUB 




03560 


-0 


10000 


1 


00001 




TNZ 




03561 





07400 


4 


03400 




TSX 



END OF PROGRAM CAOOO. 

CDOOO/ CALLS=C0190X»C0190* 
CDOOO SCANS FOR HOLLERITH 
C0190X*4 * 

CD900»1 * 

COMMA 
CD002»0 
CD0Q3»0 
OPEN 
CD001 

CD900*1 * 

L(10) 
CD001 
CD9Q0»1 
L(9) 
CD005»0 
CD 004*0 
CD004»0 
L(H) 

CD001+1»0 
CD700»0 
CD001+1»0 
C0190»4 
ENDMK 
CD701»0 
CC0OO»O 
CD6Q0*1 
CD7Q0»0 
C0190*4 
ENDMK 
CD800»0 
CBOOO*0 
SPECOP 
CD601*0 
DIAG»4 
PM 
1*1 

DIAGt4 
CHAR 3 
1*1 

DIAGt4 
CHAR 2 
1*1 

0IAG»4 
MINUS 
1*1 

DIAGf4 
TEN 
1*1 

DIAG»4 
END OF PROGRAM CDOOO* 



INTO TABLE TEIFNO (TABLE 0)# 
*♦*#■»•**•******•*' 



4F11677 
4F11679 
♦4F11679 
4F11680 
4F11681 
4F11682 
4F11683 



DIAG. 

AND ILLEGAL CHARACTERS* 

SET SCAN TO PICK UP 1ST CHARACTER. 

IF NOT ENDMARK OR ILLEGAL CHARACTER4F11684 

SCAN 4FU685 

F0R 4F11686 

HOLLERITH *£Hf!l 

SPECIFICATION 4F11688 

WHICH 4F11689 

CAN BE* 4F11690 

, N H 4FU691 

OR * ( N H. 4F11692 

IF NOT ENDMARK. OR ILLEGAL CHARACTER4FU693 



CONTINUE SCAN. 

N 

IS 

A 

FIXED 

POINT 

INTEGER. 

X 

GO GET NEXT NONBLANK CHARACTER* 

AND IF ENDMARK* 

THEN SKIP 

TO NON-ARITHMETIC CLASSIFICATION. 

SINCE HOLLERITH HAS BEEN FOUND* 

THEN $ IS LEGAL IN FORMAT TEXT. 

OBTAIN NEXT NONBLANK CHARACTER* 

AND IF NOT 

ENDMARK* THEN SKIP 

EXIT TO ARITH/NON-ARITH SCAN. 

CHECK FOR $ 

WHICH* UNLESS HOLLERITH* IS AN 

ERROR — GO TO DIAGNOSTIC. 

CHECK FOR RECORD MARK 

WHICH IS AN 

ERROR — GO TO DIAGNOSTIC. 

CHECK FOR MINUS ZERO 

WHICH IS AN 

ERROR — GO TO DIAGNOSTIC 

CHECK FOR PLUS ZERO 

WHICH IS AN 

ERROR — 60 TO DIAGNOSTIC 

CHECK FOR MINUS SIGN 

WHICH IS AN 

ERROR — GO TO DIAGNOSTIC 

CHECK FOR TEN 

WHICH IS AN 

ERROR — 60 TO DIAGNOSTIC 



4F11694 
4F11695 
4F11696 
4F11697 
4F11698 
4F11699 
4F11700 
4F11701 
4F11702 
4F11703 
4F11704 
4F11705 
4F11706 
4F11707 
4F11708 
4F11709 
4F11710 
4F11711 
4F11712 
4F11713 
4F11714 
4F11715 
4F11716 
4F11717 
4F11718 
4F 11719 
4F11720 
4F11721 
4F11722 
4F11723 
4F11724 
4F11725 
4F11726 
4F11727 
4F11728 
4F11729 
4F11730 



rf 



u 



u 



********* 



********* 



********* 



03616 
03617 
03620 
03621 
03622 
03623 
03624 
03625 
03626 
03627 
03630 
03631 
03632 
03633 
03634 
03635 
03636 



60000 
53400 
07400 
07400 
34000 
02000 
07400 
00000 
07400 
34000 
00000 
00000 
60100 
60000 
07400 
56000 
40200 



01113 CC000 

01406 

01671 CC001 

05743 

01374 

03272 

03400 

03632 

05743 CC002 

01374 

03272 

03644 

01105 CC004 

01106 

01707 

01106 

01105 



* * * *4F11731 
4F11732 

4F11733 





03562 


53400 


1 


01407 


CBOOO 


LXA 




03563 


07400 


4 


01671 




TSX 




03564 


07400 


4 


01707 


CB001 


TSX 




03565 


34000 





01400 




CAS 


D 


03566 


1 00000 





03570 




TXI 





03567 


1 00000 





03601 




TXI 




03570 


34000 





01375 


CB005 


CAS 


D 


03571 


1 00000 





03573 




TXI 




03572 


1 00001 


1 


03564 




TXI 




03573 


34000 





01377 


CB006 


CAS 


D 


03574 


1 00000 





03576 




TXI 


D 


03575 


1 00000 





03614 




TXI 




03576 


40200 





01374 


CB007 


SUB 




03577 


-0 10000 





03564 




TNZ 





03600 


1 00000 





03616 




TXI 




03601 


2 OO001 


1 


03616 


CB200 


TIX 




03602 


07400 


4 


01707 


CB201 


TSX 




03603 


34000 





01375 




CAS 





03604 


1 00000 





03606 




TXI 





03605 


1 00000 





06323 




TXI 




03606 


34000 





01376 


CB205 


CAS 


D 


03607 


1 00000 





03611 




TXI 





03610 


1 OOOOC 





03616 




TXI 




03611 


40200 





01374 


CB206 


SUB 




03612 


-0 10000 





03602 




TNZ 





03613 


1 00000 





06323 




TXI 




03614 


2 00001 


1 


03564 


CB500 


TIX 




03615 


07400 


4 


03400 




TSX 



L(l)*l 

C0190X*4 

C0190»4 

AEQUAL 

CB005»0 

CB200»0 

ALPAR 

CB006»0 

CB001*1#1 

ARPAR 

CB007»0 

CB500»0 

ENDMK 

C8001 

CCQ00»0 

CC000»1*1 

C0190*4 

ALPAR 

CB205»0 

ARITH*0 

ACOMMA 

C8206*0 

CCOOO*0 

ENDMK 

CB201 

ARITHtO 

CB001»1»1 

DIAG»4 

END OF PROGRAM CBOOO. 
************ 



SET XR1 TO COUNT PARENTHESES* 4F11735 

RESET CHCTR AND FWA TO BEGIN SCAN. 4F11736 

EXAMINE NEXT NON-BLANK CHARACTER. 4F1X737 

IF AN EQUAL SIGN* 

THEN 

GO TEST PAREN-COUNT. 

IF A LEFT PARENTHESIS* 

THEN 

UPDATE PAREN-COUNT BY 1. 

IF A RIGHT PARENTHESIS* 

THEN 

GO TEST PAREN-COUNT. 

IF NOT ENDMARK* THEN 

GO EXAMINE NEXT CHARACTER. 

OTHERWISE, GO TO DIC LOOK-UP. 

IF EQUAL WAS WOT WITHIN PARENS* 

THEN EXAMINE NEXT CHARACTER. 

IF LEFT PARENTHESIS* 

THEN 

THIS IS AN ARITHMETIC FORMULA. 

IF A COMMA* 

THEN 

GO TO NON-ARITHMETIC DIC LOOK-UP. 

IF NOT ENDMARK* THEN 

GO EXAMINE NEXT CHARACTER. 

THIS IS AN ARITHMETIC FORMULA. 

IF PAREN-COUNT DOES NOT BALANCE* 

ERROR-iO TO DIAGNOSTIC ROUTINE. 



* * * 



************** 



CCOOO/ CALLS*CC50O»CO190X.DIAG*C0190»TETO0. „„-._ 
CCOOO CLASSIFIES STATEMENT AS TO WHICH NON-ARITHMETIC. 



STZ 

LXA 
TSX 
TSX 
CAS 
TRA 
TSX 
TXI 
TSX 
CAS 
TXI 
TXI 
STO 
STQ 
TSX 
LDQ 
SUB 



2G 

L<0)*3 

C0190X*4 

CC500>4 

ENDMK 

ERR77P 

DIAG*4 

CC 004*0 

CC500.4 

ENDMK 

ERR77P»0 

CC007»0 

1C 

1C+1 

C0190»4 

1C+1 

1C 



4F11738 
4F11739 
4F11740 
4F11741 
4F11742 
4F11743 
4F11744 
4F11745 
4F11746 
4F11747 
4F11748 
4F11749 
4F11750 
4F11751 
4F11752 
4F11753 
4F117f-4 
4F11755 
4F11756 
*F11757 
4F11758 
4F11759 
4F11760 
4F11761 
4F11762 
4F11763 
♦4F11764 
4F11765 
4F11766 
4F11767 
4F11768 
4F11769 



SET DICTIONARY WORD TAG* AND 

CHARACTER COUNT AND ENTRY COUNT. ie „„ n 

RESET CHCTR AND FWA TO BEGIN SCAN. *F11770 

EXAMINE NEXT DICTIONARY CHARACTER. 4F11771 



TEST FOR CONSECUTIVE ENDMARKS. 
MACHINE ERROR* GO TO DIAGNOSTIC. 
ERROR * NOT FOUND IN DICTIONARY. 
GO BEGIN COMPARISON. 
EXAMINE NEXT DICTIONARY CHARACTER. 
TEST FOR END OF DIC ENTRY. 
MACHINE ERROR, GO TO DIAGNOSTIC. 
IF END OF ENTRY* LOOK NO FURTHER. 
OTHERWISE, SAVE CHARACTER 
AND REMAINDER OF DICTIONARY WORD. 
GO GET NEXT FORMULA CHARACTER* 
AND RESTORE DICTIONARY WORD. 
IF CHARACTERS ARE EQUAL* 



4F11772 
4F11773 
4F11774 
4F11775 
4F11776 
4F11777 
4F11778 
4F11779 
4F11780 
4F11781 
4F11782 
4F11783 
4F11784 



03637 


10000 c 


03626 




TZE 


CC002 


03640 


07400 4 


05743 


CC005 


TSX 


CC500*4 


03641 


40200 


01374 




SUB 


ENDMK 


03642 


-0 10000 


03640 




TNZ 


CC005 


03643 


1 77777 1 


03620 




TXI 


CC0Q1»1*-1 


03644 


50000 1 


06246 


CC007 


CLA 


T.l 


03645 


12000 1 


06246 




TPL 


T»l 


03646 


-0 63400 1 


01107 




SXD 


1C*-2»1 


03647 


07400 1 


03321 




TSX 


TETOO»l 


03650 


00000 


00016 




PZE 


14 


03651 


-0 53400 1 


01107 




LXD 


1C+2»1 


03652 


02000 1 


06246 


CC008 


TRA 


T»l 

END OF PROGRAM CCQOO. 
************ 



THEN GO COMPARE NEXT CHARACTERS. 

* OTHERWISE, EXAMINE NEXT DIC CHAR. 
CONTINUE UNTIL AN ENDMARK IS 
FOUNDt THEN 

COUNT ENTRY* AND BEGIN AGAIN. 
IF THE CURRENT STATEMENT IS 
OF THE NON-EXECUTABLE TYPE* 
THEN 

* GO ENTER EIFNO IN THE 
NONEXC TABLE. 
AND THEN 

* TAKE INDICATED TRANSFER. 

STATEA/2-PR0CESS CONTROL AND SPECIFICATION STATEMENTS* 

****************************** 

C0100/ CALLS=GETIFN*C0190»TEST».»C0180*C0160»C0150*TETOO. 
C0100 PROCESSES DO STATEMENTS. 



03653 





07400 


4 


02366 C0100 


TSX 


GETIFN»4 


03654 





07400 


4 


01707 


TSX 


C0190»4 


03655 





07400 


4 


03315 


TSX 


TESTIQ»4 


03656 





07400 


2 


01655 


TSX 


C0180»2 


03657 





60100 





01113 


STO 


2G 


03660 





50000 





01112 


CLA 


1G 


03661 





62100 





01105 


STA 


1C 


03662 





50000 





01113 


CLA 


2G 


03663 





07400 


2 


01624 


TSX 


C016O*2 


A ** £ £ A 

V3W* 


V 


50000 


W 


01112 


CLA 




03665 





60100 





01106 


STO 


1C+1 


03666 





07400 


2 


01604 


TSX 


C0150#2 


03667 





50000 





01112 


CLA 


1G 


03670 





60100 





01107 


STO 


1C+2 


03671 


-0 


50000 





01353 


CAL 


I 


03672 





77100 





00022 


ARS 


18 


03673 


-0 


60200 





01105 


ORS 


1C 


03674 





07400 


2 


01604 


TSX 


C0150*2 


03675 





07400 


4 


03247 


TSX 


TESTA0»4 


03676 


-0 


10000 





03701 


TNZ 


C0113 


03677 


-0 


77300 





00037 


RQL 


31 


03700 


-0 


60000 





01365 


STQ 


RESIDU 


03701 





50000 





01112 C0113 


CLA 


1G 


03702 





60100 





OHIO 


STO 


1C+3 


03703 


-0 


50000 





01353 


CAL 


I 


03704 





77100 





00023 


ARS 


19 


03705 


-0 


60200 





01105 


ORS 


1C 


03706 





07400 


2 


01604 


TSX 


C015O»2 


03707 





07400 


4 


03271 


TSX 


TESTD0t4 


03710 





50000 





01112 


CLA 


1G 


03711 





60100 





01111 


STO 


1C+4 


03712 


-0 


50000 





01353 


CAL 


I 


03713 





77100 





00024 


ARS 


20 



4F11785 
4F11786 
4F11787 
4F11788 
4F11789 
4F11790 
4FU791 
4F11792 
4F11793 
4F11794 
4F11795 
4F11796 
4F11797 
*4F11798 
4F11799 
4F11800 
4F11801 
♦4F11602 
4F11803 
4F11804 
4F11805 
♦GET INTERNAL FORMULA NUMBER IN 1C. 4F11806 

* OBTAIN 1ST NON-BLANK CHARACTER 4F11807 

* WHICH SHOULD BE NUMERIC. 4FH808 

* OBTAIN IN 1G THE BIN EQU1V OF 8ETA.4FH809 
SAVE THE 1ST CHAR OF SUBSCRIPT. 4F11810 
TAKE CONVERTED RESULT FOR BETA 4F11811 
AND STORE IN ADDR OF 1C. 4F11812 
1C IS NOW COMPLETE EXCEPT FOR TAG. 4FH813 

4F11814 
4FH815 
4F11816 
4F11817 
4F11818 
4F11S19 
4F11820 
4F11821 
4F11822 
4F11823 
4F11824 
4F11825 
4F11826 
4F11827 
4F1182G 
4F11829 
4F11830 
4F11831 
4FH832 
4F11833 
4F11834 
4F11835 
4F11836 
4F11837 
4F11838 



* OBTAIN IN 1G THE SUBSCRIPT. 
STORE SUBSCRIPT 
IN 1C+1. 

* OBTAIN IN 1G THE PROPER Nl. 
STORE Nl 
IN 1C+2. 

OBTAIN I IN LOGICAL ACC AND 
STORE IN POS 18 OF 1C 
IF NUMERIC* OR 1 IF NOi^NUMERlC. 

* OBTAIN IN 1G THE PROPER N2. 

* TEST THE AC FOR COMMA OR ENDMARK. 
IF ENDMARK* THEN 
CREATE ONE IN MQ FOR N3 
AND PLACE IN RESIDU. 
STORE N2 
IN 1C+3. 

OBTAIN I IN LOG ACC AND 
STORE IN POS 19 OF 1C 
IF NUMERIC* OR 1 IF NON-NUMERIC. 

* OBTAIN IN 16 THE PROPER N3. 

* THE AC SHOULD CONTAIN AN ENDMARK. 
STORE N3 
IN 1C+4* 

OBTAIN I IN LOG ACC AND 
STORE IN POS 20 OF 1C 



A 



u 



u 



03714 -0 60200 01105 

03715 07400 1 03321 

03716 00000 00001 

03717 1 00000 03440 



ORS 1C 

TSX TET00,1 

PZ.E 1 

TXI CA010»0 

END OF PROGRAM COlOO. 
*********** 

C0200/ CALLS=GETIFN»Dl 
CI TOO*SSOGO i CSAOOO ) « 
C0200 PROCESSES GO TO 



IF NUMERIC, OR 1 IF NON-NUMERIC* 

* GO TO TET PROGRAM TO ENTER 
101C+l»*»lC+4 IN TOO TABLE 1. 

* EXIT TO PROCESS NEXT STATEMENT. 

******************* 
AG*TEST..»C0190,C0180»TET00»C0160» 





03720 





07400 


4 


02366 


C0200 


TSX 


GETIFN»4 




03721 





60100 





01107 




STO 


1C+2 




03722 





O7400 


4 


01707 




TSX 


C0190.4 




03723 





340C0 





01417 




CAS 


L(9) 


D 


03724 


1 


00000 





03733 




1X1 


C0205»0 




03725 





76100 





OOOOO 




NOP 






03726 





07400 


2 


01655 




TSX 


C018Q*2 




03727 





07400 


4 


03271 




TSX 


TESTD0,4 




03730 





50000 





01112 




CLA 


1G 




03731 





60100 





01106 




STO 


1C+1 


D 


03732 


1 


00000 





04030 




TXI 


C0202»0 




03733 





34000 





01375 


C0205 


CAS 


ALPAR 





03734 


1 


OOOOO 





03736 




TXI 


C0210,0 


D 


03735 


1 


00000 





03746 




TXI 


C0212»0 




03736 





07400 


2 


01624 


C0210 


TSX 


C0160»2 




0373? 





07400 


4 


03305 




TSX 


TE5T6G#4 




03740 





50000 





01112 




CLA 


1G 




03741 





60100 





OHIO 




STO 


1C+3 




03742 





07400 


4 


01707 




TSX 


C0190,4 




03743 





07400 


4 


03275 




TSX 


TESTE0*4 




03744 





50000 





01407 




CLA 


L(l) 




03745 





02000 





03747 




TRA 


C0213 




03746 





50000 





01410 


C0212 


CLA 


L(2) 




03747 





62100 





01105 


C0213 


STA 


1C 




03750 


-0 


53400 


2 


04032 




LXD 


CTRAD, 2 




03751 


-0 


75400 


2 


OOOOO 




PXD 


»2 




03752 





60100 





01106 




STO 


1C+1 




03753 





07400 


4 


01707 


C0215 


TSX 


C0190»4 




03754 





07400 


2 


01655 




TSX 


C0180,2 




03755 





60100 





01113 




STO 


2G 




03756 





07400 


1 


03321 




TSX 


TET00*1 




03757 





OOOOO 





00003 




PZE 


3 




03760 


-0 


53400 


2 


04032 




LXD 


CTRAD»2 




03761 


2 


00001 


2 


03762 




TIX 


C0216,2»l 




03762 


-0 


63400 


2 


04032 


C0216 


SXD 


CTRAD»2 




03763 





50000 





01113 




CLA 


2G 




03764 





07400 


4 


03255 




TSX 


TESTBC4 




03765 


-0 


10000 





03753 




TN2 


C0215 




03766 





50000 





04032 




CLA 


CTRAD 




03767 





77100 





00022 




ARS 


18 




03770 





62100 





01106 




STA 


1C+1 




03771 





50000 





01105 




CLA 


1C 




03772 





76000 





00001 




L8T 






03773 





02000 





04004 




TRA 


C0220 



STATEMENTS. 

* GET INTERNAL FORMULA NUMBER IN 1C 
AND IN 1C+2. 

* OBTAIN IN ACC NEXT NB CHARACTER 
AND COMPARE IT WITH 9. 
IF NON-NUMERIC. GO COMPARE WITH (• 
IF NUMERIC* THEN 

* OBTAIN IN 1G THE BINARY EQUV SETA. 

* THE AC SHOULD CONTAIN AN ENDMARK. 
STORE BETA IN 1C+1 TO CONSTRUCT 
THE 2ND WORD OF TIFGO TABLE ENTRY. 
GO TO ENTER 101C+1 INTO TIFGO. 
TEST CHARACTER FOR ALPHABETIC. 
IF NOT ALPHABETIC* THEN 
THIS IS TYPEs GO TO ( ) » I* 

* TYPE" GO TO N»<)»SO OBTAIN IN lG^N 

* WHICH SHOULD BE FOLLOWED BY COMMA. 



4F11839 
4F11840 
4F11841 
4F11842 
4F11843 
♦4F11844 
4FH845 
4FH846 
4F11847 
4F11848 
4F11849 
4F11850 
4F11851 
4F11852 
4F11853 
4F11854 
4F11855 
4FU856 
4F11857 
4F11858 
4F11859 
4F11860 
4F11861 
4F11862 
4F11863 
4F11864 



SAVE THE SYMBOL N IN 1C+3 
FOR COMPILED INSTRUCTION. 

* OBTAIN IN ACC NEXT NB CHARACTER, 

* WHICH SHOULD BE A LPAREN. 
PREPARE TO SET ADDRESS PART OF 1C 
TO 1 TO INDICATE CLASS OF TRANSFER 
PREPARE TO SET ADDR OF 1C TO 2. 
STORE 1 OR 2 IN ADDR OF 1C. 
OBTAIN 250-(NO. TRAD ENTRIES), AND 
PLACE IN THE DECREMENT OF THE AC 
AND STORE IN 1C+1. 

» OBTAIN IN ACC NEXT NB CHAR. 

* OBTAIN IN 1G THE BIN EQU OF BETA. 
SAVE CHAR IN ACC. 

* GO TO ENTER 1G 

INTO TRAD TABLE (TABLE 3). 

REDUCE COUNTER 

CTRAD 

BY 1* 

RESTORE CHAR TO ACC. 

* TEST FOR COMMA OR RPAREN. 
IF RIGHT PARENTHESIS, THEN 
OBTAIN IN ADDR OF ACC 250-NO. OF 
ENTRIES IN TRAD TABLE, AND STORE 
IN ADDR OF 1C+1. 

OBTAIN 1C IN ACC 

AND TEST LOW ORDER BIT* 

THIS IS A TYPE GO TO (),I FORMULA. 



4F11865 
4F11866 
4F11867 
4F11868 
4F11869 
.4F11870 
4F11871 
4F11872 
4F11873 
4F11874 
4F11875 
4F11876 
4F11877 
4F11878 
4F11879 
4FH880 
4F11681 
4F11882 
4F11883 
4F11884 
4F11885 
4F11886 
4F 11887 
4FU888 
4F11889 
4F11890 
4F11891 
4F11892 



03774 





07400 


4 


01707 


TSX 


C0190»4 


03775 





07400 


4 


03271 


TSX 


TESTD0f4 


03776 





07400 


4 


01731 


TSX 


CIT00»4 


03777 





00000 





01107 


PZE 


1C+2 


0400 





00000 





01601 


P2E 


L(TRA) 


04001 





00000 





OHIO 


PZE 


1C+3 


04002 





00000 





01406 


PZE 


L(0) 


04003° 





02000 





04030 


TRA 


C0202 


04004 





07400 


4 


01707 C0220 


TSX 


C0190»4 


04005 





07400 


4 


03305 


TSX 


TESTG0»4 


04006 





07400 


4 


01707 


TSX 


C0190>4 


04007 





07400 


2 


01624 


TSX 


CG160»2 


04010 





07400 


4 


03271 


TSX 


TESTD0»4 


04011 





50000 





01407 


CLA 


L(l) 


04012 





60100 





01131 


STO 


E+3 


04013 





60100 





01100 


STO 


DIMCTR 


04014 





50000 





01112 


CLA 


1G 


04015 





60100 





01132 


STO 


E+4 


04016 





60000 





01137 


STZ 


E+9 


04017 





07400 


4 


03027 


TSX 


CSA000»4 


04020 





50000 





01126 


CLA 


E 


04021 





7710G 





00030 


ARS 


24 


04022 





60100 





01113 


STO 


2G 


04023 





07400 


4 


01731 


TSX 


CIT00*4 


04024 





00000 





01107 


PZE 


1C + 2 


04025 





00000 





01601 


PZE 


L(TRA) 


04026 





00000 





01406 


PZE 


L(0> 


04027 





00000 





01113 


PZE 


2G 

C0200= ENTRY PO 


04030 





07400 


1 


03321 C0202 


TSX 


TET00»1 


04031 




00000 




00002 


PZE 


2 


040.32 


1 


00372 





03440 CTRAD 


TXI 


CA01O»O*250 

END OF PROGRAM 
******** 

C0300/ CALLS=CO 

STATES* 

C0300 PROCESSES 


04033 


-0 


53400 


4 


00030 C0300 


LXD 


EIFN0»4 


04034 


-0 


75400 


4 


00000 


PXD 


»4 


04035 


-0 


76000 





00003 


SSM 




04036 





60100 





01105 


STO 


1C 


04037 





07400 


4 


01671 


TSX 


C0190X»4 


04040 





07400 


4 


01707 


TSX 


C0190#4 


04041 





56000 





01433 


LDQ 


L(X) 


04042 





07400 


4 


01675 


TSX 


C0390#4 


04043 





56000 





01373 


LDQ 


L(IO) 


04044 





07400 


4 


01675 


TSX 


C0390>4 


04045 





07400 


4 


03275 


TSX 


TESTE0.4 


04046 





56000 





01400 


LDQ 


AEQUAL 


04047 





07400 


4 


01675 


TSX 


C0390.4 


04050 





53400 


2 


01407 


LXA 


L(l)#2 


04051 





02000 





04053 


TRA 


*+2 


04052 





07400 


4 


01707 C0302 


TSX 


C0190»4 



* OBTAIN NEXT NB CHAR AND 

* TEST FOR ENDMK. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
WORD 1 — DECR* INTFORMNO (LOCATION) 
WORD 2 — TRAOOO (OP AND DECR) 

WORD 3 — VARIABLE N {ADDRESS) 

WORD 4—000000 (REL ADDR AND TAG). 

GO TO ENTER 1C*1C+1 INTO TIFGO. 

* EXAMINE NEXT NB CHARACTER* 

* WHICH SHOULD BE A COMMA* 

* OBTAIN IN ACC NEXT NB CHARs AND 

* OBTAIN IN 1G THE FXD-PT. VARIABLEf 

* WHICH SHOULD BE FOLLOWED BY ENDMK* 
PREPARE PROPER FORM OF SUBSCRIPT 
COMBINATION AS 

INPUT TO SUBSCRIPT ANALYSIS= 
E+3 * 1ST COEFFICIENT* 
E+': * 1ST SUBSCRIPT VARIABLE* 
£+9 » ADDEND OF SUBSCRIPT* 

* DIMCTR * DIMENSION OF VARIABLE* 
OUTPUT FROM CSA IS FOUND IN 

E « I — TAUTAG (GENERAL TAG) 1-11. 
ADJUST AND SAVE FOR COMP* INSTR. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
WORD 1— DECR-I NTFORMNO { LOCAT I ON ) 
WORD 2— TRAOOO COP AND DECR) 
WORD 3 — 000000 (ADDRESS) 

WORD 4 — ADDR = TAUTAG FOR I 
INT USED BY C0400*C1000. 

* GO TO TET TO ENTER 1C AND1C+1 
|j4jq JIFGO TABLE C TABLE 2)* 

* EXIT TO PROCESS NEXT STATEMENT* 

C0200. 
********************** 

19OX»C019O«C039O*TEST.**DIAG,C0180»TETO0» 

IF STATEMENTS. 

PLACE THE CURRENT INTERNAL FORMULA 
NUMBER IN THE DECREMENT OF 1C 
WITH SIGN SET TO MINUS 
FOR FUTURE TIFGO ENTRY. 

* SET CHCTR AND FWA TO BEGIN SCAN. 

* OBTAIN IN AC THE 1ST NB CHAR (I). 
REPLACE THE CHARACTER I 

* WITH THE CHARACTER X. 
REPLACE THE CHARACTER F 

* WITH THE CHARACTER 001010. 

* IF NOT LPAREN — THEN ERROR. 
REPLACE THE CHARACTER LPAREN 

* WITH THE CHARACTER EQUAL. 

SET XR2 FOR COUNTING PARENTHESES. 

* MAKE SURE THAT NEXT NB CHARACTER 



4F11893 
4F11894 
4F11895 
4F11896 
4F11897 
4F11898 
4F11899 
4F11900 
4F11901 
4F11902 
4F11903 
4F11904 
4F11905 
4F11906 
4F11907 
4FH908 
4F11909 
4F11910 
4F11911 
4F11912 
4F11913 
4FU914 
4F11915 
4F11916 
4F11917 
4F11918 
4F11919 
4F11920 
4FH921 
4F11922 
4F11923 
4F11924 
4F11925 
*4F11926 
4F11927 
4F11928 
4F11929 
4F11930 
4F11931 
4F11932 
4F11933 
4F11934 
4F11935 
4F11936 
4F11937 
4F11938 
4F11939 
4F11940 
4F11941 
4F11942 
4F11943 
4F11944 
4F11945 
4F11946 



1 



,7s 



U 



u 



0*053 
0*054 
0*055 
0*056 
0*057 
0*060 
0*061 
0*062 
0*063 
0*06* 
0*065 
0*066 
0*067 
0*070 
0*071 
0*072 
0*073 
0*07* 
0*075 
0*076 
0*077 
0*100 
0*101 
0*102 
0*103 
0*10* 
0*105 



0*106 
0*107 
0*110 

0*111 
0*112 
0*113 
0*11* 
0*115 
0*116 
0*117 
0*120 
0*121 

0*122 
0*123 
0*12* 
0*125 
0*126 
0*127 
0*130 
0*131 



3*000 
02000 
07*00 
3*000 
00000 
00001 
*0200 
10000 
00001 
56000 
07*00 
07*00 
07*00 
50000 
62100 
07*00 
07*00 
07*00 
50000 
76700 
60100 
07*00 
07*00 
07*00 
50000 
62100 
00000 



0137* 

03272 

03*00 

01375 

0*061 

0*052 

01377 C0303 

0*052 

0*052 

0137* 

01675 

01655 

03305 

01112 

01105 

01707 

01655 

03305 

01112 

00022 

01106 

01707 

01655 

03271 

01112 

01106 

06323 



50000 01**1 C0*00 
60100 01115 
50000 01565 



60100 
07*00 
07*00 
07*00 
50000 
60100 
50000 
*0000 
76700 

60100 
53*00 
75*00 
62200 
60100 
07*00 
07*00 
07*00 



01116 C0*01 

01707 

01655 

03301 

01*11 

01105 

01112 

01115 

00022 

OHIO C0*02 

00030 

00000 

01105 

01107 

01707 

01655 

03305 



CAS ENDMK 
TRA ERR77P 
TSX DIAGt* 
CAS ALPAR 
TXI C0303#0 
TXI C0302*2*l 
SUB ARPAR 
TN2 C0302 
TIX C0302»2»l 
LDQ ENDMK 
TSX C0390** 
TSX C0180»2 
TSX TESTGO** 
CLA 1G 
STA 1C 
TSX C019Q** 
TSX C0180*2 
TSX TESTGO** 
CLA 1G 
ALS 18 
STO lOl 
TSX C0190»* 
TSX C0180»2 
TSX TESTDO** 
CLA 1G 
STA 1C+1 
TXI ARlTH*0 

END OF PROGRAM 
******** 



C0300. 

* * * * 



C0*00/ CALLS=C0 
C0*00 PROCESSES 

CLA L(112) 

STO 1H 

CLA L(PSE) 

rQiiQia ENTRY PO 

STO 2H 

TSX C0190** 

TSX C0180»2 

TSX TESTFO** 

CLA L<3) 

STO 1C 

CLA 1G 

ADD 1H 

ALS 18 

C0*02= ENTRY PO 
STO 1C+3 
LXD EIFNOt* 
PXD »* 
STD 1C 
STO 1C+2 
TSX C019O** 
TSX CQ180»2 
TSX TESTGOt* 



IS NOT AN ENDMARK. 4 £H 94 I 

MACHINE ERROR*. 60 TO DIAGNOSTIC. *FH9*8 
PROGRAM ERROR* GO TO DIAGNOSTIC. *F119*9 
IF IT IS A LPAREN* *FH950 

THEN ADD 1 TO PAREN COUNT* AND *FH951 
GO EXAMINE NEXT CHARACTER. *FH952 

IF IT IS A RPAREN* *FH953 

THEN TEST PAREN COUNT* AND IF IT *FH95* 
CAN NOT 8E REDUCED, MATE IS FOUND* *F11955 
SO REPLACE THE CHARACTER RPAREN 4F11956 
WITH THE CHARACTER ENDMK. 4FH957 

BINARY EQUIVALENT OF BETA 1. *FH958 
THIS SHOULD BE FOLLOWED BY A C0MMA.*FI1959 
MOVE BETA1 4F11960 

TO ADDRESS OF 1C. *FH961 

AND PROCEED TO FORM *FH962 

THE BINARY EQUIVALENT OF BETA 2* *FH963 
THIS SHOULD BE FOLLOWED BY A COMMA. *F1 196* 
MOVE BETA2 *FH965 

TO DECR PART *FH966 

OF 1C+1. *F11967 

AND PROCEED TO FORM *F11968 

THE BINARY EQUIVALENT OF BETA 3. *FH969 
THIS SHOULD BE FOLLOWED BY ENDMARK.*FU970 
MOVE BETA3 *FH971 

TO ADDRESS OF 1C+1. *FH972 

EXIT TO ARITH FOR FINAL PROCESSING. *FH973 

*F1197* 
***************** **F11975 

*F11976 
*F11977 
*F11978 
*F11979 
*F11980 
4F11981 
*F11982 
4F11983 
*F1198* 
*F11985 



190»C0180*TEST..*CIT00»C0200. 
IF (SENSE SWITCH STATEMENTS. 
FOR SENSE SWITCH 
SET 1H TO 112* AND PREPARE TO 
SET 2H TO PSE. 

TNT HSFrt RV rQ5Q0* 

SET 2H FOR SENSE SWITCH OR LIGHT. 
* PROCEED TO FORM THE BINARY 

EQUIVALENT OF SW OR SL NUMBER. 



THIS SHOULD BE FOLLOWED BY RPAREN. *FH986 



STORE 3 

IN ADDRESS OF 1C. 
ADD THE PROPER INCREMENT TO THE 
NUMBER OF SENSE SWITCH OR LIGHT* 
AND ADJUST TO THE DECREMENT. 
INT USED BY C0600. 

SET 1C+3 FOR CIT ENTRY. 



*F11987 
*F11988 
*F11989 
*FH990 
*F11991 
*F11992 
*F11993 



PLACE THE CURRENT INTERNAL FORMULA *FH99* 
NUMBER IN THE DECREMENT OF *FH995 

1C FOR FUTURE TIFGO ENTRY* AND *FH996 
1C+2 FOR FUTURE CIT ENTRY. *FH997 

PROCEED TO FORM THE BINARY *FH998 
EQUIVALENT OF BETA 1* *FH999 

WHICH SHOULD BE FOLLOWED BY COMMA. *F12000 



->,} 



04132 





50000 


01112 


CLA 


16 




04133 





76700 


00022 


ALS 


18 




04134 





60100 


01106 


STO 


1C+1 




04135 





07400 4 


01707 


TSX 


C0190»4 


* 


04136 





07400 2 


01655 


TSX 


C0180»2 


* 


04137 





07400 4 


03271 


TSX 


TESTD0*4 


* 


04140 





50000 


01112 


CLA 


1G 




04141 





62100 


01106 


STA 


K+l 




04142 





07400 4 


01731 


TSX 


CIT00*4 


* 


04143 





00000 


01107 


PZE 


1C+2 




04144 





00000 


01116 


PZE 


2H 




04145 





00000 


01406 


P2E 


L(0) 




04146 





00000 


OHIO 


PZE 


1C+3 




04147 


1 


00000 


04030 


TXI 


C0202»0 

END OF PROGRAM C0400. 
************ 


* 
* 



BRING UP* 

ADJUST AND 

STORE BETA1 IN DECR OF 1C+1. 

PROCEED TO FORM THE BINARY 

EQUIVALENT OF BETA 2f 



4F12001 
4FI2002 
4F12003 
4F12004 
4F12005 



04150 50000 01440 C0500 

04151 60100 01115 

04152 50000 01563 

04153 02000 04111 



04154 50000 01545 C0600 

04155 60100 01116 

04156 50000 01412 

04157 60100 01105 C0601 

04160 -0 75400 00000 

04161 02000 04122 



04162 50000 01577 C0700 

04163 60100 01116 C0701 

04164 50000 01413 

04165 02000 04157 



04166 50000 01600 C0800 

04167 02000 04163 



C0500/ USES=C0400. 

C0500 PROCESSES IF (SENSE LIGHT STATEMENTS. 



CLA L(96) 
STO 1H 
CLA L(MSE) 
TRA C0401 

END OF PROGRAM C0500. 
************ 



WHICH SHOULD BE FOLLOWED BY ENDMK. 4F12006 
BRING UP AND 4F12007 

STORE BETA2 IN ADDR OF 1C+1. 4F12008 
GO MAKE THE FOLLOWING CIT ENTRY* 4F12009 
W0RD1 — DECR ' INTFORMNO (LOCATION) 4F12010 
W0RD2 — PSE#MSE»DCT»T0V*0R TQO. 4F12011 
W0RD3 — 000000 (ADDRESS) 4F12012 

W0RD4 — DECR=SS OR SL NO. * OR 0000004F12013 
MAKE TIFGO ENTRY* AND RETURN TO CA.4F12014 

4F12015 
***************** *4F12016 

4F12017 
4F12018 
4F12019 
4F12020 
4F12021 
4F12022 



C0600/ USES=C0400. 

C0600 PROCESSES IF DIVIDE CHECK STATEMENTS. 
CLA L(DCT) 
STO 2H 



STORE 96 IN 
1H AND 

OBTAIN (MSEOOO) IN ACC. 
* AND CONTINUE BY USING PROGRAM C04. 4F12023 

4F12024 
****************** *4F12025 

4F12026 
4F12027 
4F12028 
4F12029 
4F12030 



STORE (DCTOOO) 
IN 2H 



CLA LC4) 



AND PICK iJP 4 TO SET 1C. 



C0601= ENTRY POINT USED BY C0700. 



STO 1C 
PXD »0 
TRA C0402 

END OF PROGRAM C0600. 



4F12032 
4F12033 
4F12034 



SET 1C FOR FUTURE TIFGO ENTRY. 
CLEAR THE AC* 
* AND CONTINUE BY USING PROGRAM C04. 4F12035 

4F12036 



****************************** 

C0700/ USES C0600. 

C0700 PROCESSES IF AC OVERFLOW STATEMENTS. 



PICKUP TOVOOO TO SET 2H. 
ENTRY POINT USED BY C0800. 

SET 2H FOR FUTURE CIT ENTRY. 
PICKUP 5 TO SET 1C» AND 
* CONTINUE BY USING PROGRAM C06. 



***##****#******** 



CLA L(T0VJ 

C0701= 
STO 2H 
CLA L(5) 
TRA C0601 

END OF PROGRAM C0700. 

************ 



♦4F12037 
4F12038 
4F12039 
4F12040 
4F12041 
4F12042 
4F12043 
4F12044 
4F12045 
4F 12046 

•4F12047 
4F12048 
4F12049 
4F12050 
AF12051 



C08O0/ USES=C0700. 

C0800 PROCESSES IF MQ OVERFLOW STATEMENTS. 

CLA L(TQO) PICKUP TOOOOO TO SET 2H» 

TRA C0701 * AND CONTINUE BY USING PROGRAM C07. 4F12052 

END OF PROGRAM C0800. 4F12053 

****************************** *4F12054 



rl 






u 



04170 -0 53400 2 04175 C0900 LXD 



04171 
04172 
04173 
04174 
04175 
04176 
04177 
04200 
04201 
04202 
04203 
04204 
04205 
04206 
04207 
04210 
04211 
04212 
04213 
04214 
04215 



04216 
04217 
04220 
04221 
04222 
04223 
04224 
04225 
04226 
04227 
04230 
04231 
04232 
04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 



60C00 
07400 
34000 
02000 
74341 
40000 
76700 
60100 
00000 
50000 
76700 
60100 
53400 
75400 
60100 
07400 
00000 
00000 
00000 
00000 



02000 



07400 
60100 
50000 
62100 
07400 
40200 
10000 
07400 
07400 
40200 
10000 
50000 
60100 
07400 
07400 
07400 
07400 
00000 
00000 
00000 
00000 
07400 



C?903 



01112 C0901 

01707 C0902 

01374 

03272 

04202 C090X 

01112 

00003 

01112 

04172 

01112 

00017 

01105 

00030 

00000 

01106 

01731 

01106 

01554 

01406 

01105 

00001 



02366 C1000 

01107 

01414 

01105 

01654 

01432 

04226 

03400 

01707 

01425 

04225 

01112 

01106 

01707 

01624 

03271 

01731 

01107 

01541 

01406 

01406 

01731 



C0900/ CALLS=C019Q*CITQQ»DIAG. CALLER=C13Q0. 
C0900 PROCESSES PAUSE STATEMENTS. ,-™« 

C090X.2 SET XR2 FOR EXIT TO CAOOO. 

C0901= ENTRY POINT USED BY C1300. 



STZ 

TSX 
CAS 
TRA 
TXI 
ADD 
ALS 
STO 
TXI 
CLA 
ALS 
STO 
LXD 
PXD 
STO 
TSX 
PZE 
PZE 
PZE 
PZE 
TRA 



1G 

C0190t4 

ENDMK 

ERR77P 

C0903»0»-CA010+1 

1G 

3 

1G 

C0902*0 

16 

15 

1C 

EIFN0»4 

f4 

1C+1 

CIT00t4 

1C+1 

L(HPR) 

L(0) 

1C 

1*2 

END OF PROGRAM C0900. 
*********** 



CLEAR 16. 

TEST NEXT NON-BLANK CHARACTER 

FOR END OF STATEMENT MARK. 

MACHINE ERROR* GO TO DIAGNOSTIC. 

IF NOT END OF STATEMENT* THEN 

ADD 1G TO DIGIT. 

MULTIPLY BY 8» 

AND STORE BACK IN 1G. 

CONTINUE UNTIL END OF STATEMENT. 

THEN PLACE OCTAL ALPHA 

IN THE DECREMENT 

OF 1C FOR FUTURE CIT ENTRY. 

PLACE THE CURRENT INTERNAL FORMULA 

NUMBER IN THE DECREMENT 

OF 1C+1»WITH ZEROS ELSEWHERE. 

60 MAKE THE FOLLOWING CIT ENTRY* 

W0RD1-— DECR = INTFORMNO (LOCATION) 

W0RD2— HPROOO (OP AND DECR) 

W0RD3 — 000000 (ADDRESS) 

W0RD4— -DECR ■ ALPHA* REST ZEROS. 

EXIT TO CAOOO* OR TO C1300. 



******** 



*********** 



TSX 
STO 
CLA 
STA 
TSX 
SUB 
TZE 
TSX 
TSX 
SUB 
TNZ 
CLA 
STO 
TSX 
TSX 
TSX 
TSX 
PZE 
PZE 
PZE 
PZE 
TSX 



C1000/ USES=C02 

CI TOO. 

C1000 PROCESSES 

GETIFN*4 

1C+2 

L(6) 

1C 

C0180X*2 

L(T) 

*+2 

DIAG»4 

C0190.4 

L(0) 

*-3 

1G 

1C+1 

C0190.4 

C0160*2 

TESTD0*4 

CIT00*4 

1C+2 

L(CLA) 

ICQ) 

L(0) 

CIT00»4 



200. CALLS=GETIFN»C0190*C0180»DIAG»C0160»TEST. 



ASSIGN STATEMENTS. ^ n ^ n 

* GET INTERNAL FORMULA NUMBER IN 1C 
AND 1C+2.WITH ZEROS ELSEWHERE. 
STORE 6 IN 

ADDRESS OF 1C. 

* GO FORM BINARY EQUIV OF ALPHA. 
IF NEXT CHARACTER IS NOT T» THEN 
THIS IS AN 

* ERROR - GO TO THE DIAGNOSTIC. 

* EXAMINE NEXT NON-BLANK CHARACTER 
AND IF IT IS NOT 0* THEN 
ERROR* GO TO DIAGNOSTIC. 

PUT BIN EQUIV OF ALPHA 
IN ADDRESS OF 1C+1. 

* PROCEED TO ASSEMBLE IN 1G 

* THE SYMBOL N. 

* THE NEXT NB CHAR SHOULD BE ENDMK. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
W0RD1— DECR * INTFORMNO (LOCATION) 
W0RD2 — CLAOOO (OP AND DECR) 
W0RD3 — 000000 (ADDRESS) 

W0RD4 — 000000 (RELADDR AND TAG). 

* STORE SECOND COMPILED INSTRUCTION" 



4F12055 
4F12056 
4F12057 
4F12058 
4F12059 
4F12060 
4F12061 
4F12062 
4F12063 
4F12064 
4F12065 
*»F12066 
4F12067 
4F12068 
4F12069 
4F12070 
4F12071 
4F12072 
4F12073 
4F12074 
4F12075 
4F12076 
4F12077 
4F12078 
4F12079 
4F12080 
4F12081 

♦4F12082 
4F12083 

•4F12084 
4F12085 
4F12086 
4F12087 
4F12088 
4F12089 
4F12090 
4F12091 
4F12093 
4F12094 
4F12095 
4F12096 
4F12097 
4F12098 
4F12099 
4F12100 
4F12101 
4F12102 
4F12103 
4F12104 
4F12105 
4F12106 
4F12107 
4F12108 
4F12109 



04244 


00000 01406 




PZE L<0) 




W0RD1 — 000000 (ALL ZEROS) 


4F12110 


04245 


00000 01572 




PZE L(STO) 




W0RD2— STQOOO {OP AND DECR) 


4F12111 


04246 


00000 01112 




PZE 1G 




W0RD3— SYMBOL N (ADDRESS) 


4F12112 


04247 


00000 01406 




PZE LtO) 




W0RD4— 000000 (REL ADDR AND TAG). 


4F12113 


04250 


02000 04030 




TRA C0202 

ENO OF PROGRAM 


* 
C1G00. . 


CONTINUE BY USING PROGRAM C02* 


4F12114 
4F12115 








******** 


* * * * * 


***************** 


•4F12116 
4F12117 








C1100/ CALLS*C0190*C0180» 


TEST..iGETIFN»CITOO. 


4F12118 








CI 100 PROCESSES 


SENSE LIGHT STATEMENTS. 


4F12119 


04251 


07400 2 01654 


C1100 


TSX C0l80Xf2 


* 


GO FORM BINARY EQUIV OF SL NUMBER. 


4F12120 


04252 


07400 4 03271 




TSX TESTD0*4 


* 


THE NEXT NB CHARACTER SHD BE ENDMK 


•4F12122 


04253 


50000 01112 




CLA 1G 




STORE SENSE LIGHT NUMBER 


4F12123 


04254 


40000 01440 




ADD L(96) 




PLUS 96 


4F12124 


04255 


76700 00022 




ALS 18 




IN DECR 


4F 12125 


04256 


60100 01112 




STO 1G 




OF 1G. 


4F12126 


04257 


07400 4 02366 




TSX GETIFN»4 


* 


GET INTERNAL FORMULA NUMBER IN 1C. 


4F12127 


04260 


07400 4 01731 




TSX CIT00»4 


* 


GO MAKE THE FOLLOWING CIT ENTRY* 


4F12128 


04261 


00000 01105 




PZE 1C 




W0RD1 — DECR ■ INTFORMNO (LOCATION) 


4F12129 


04262 


00000 01565 




PZE L(PSE) 




W0RD2 — PSEOOO (OP AND DECREMENT) 


4F12130 


04263 


00000 01406 




PZE L(0) 




W0RD3— 000000 (ADDRESS PART) 


4F12131 


04264 


00000 01112 




PZE 1G 




W0RD4— DECR * 96+ALPHA»REST ZEROS. 


4F12132 


04265 


1 00000 03440 




TXI CA010»0 

END OF PROGRAM 


* 

C1100. 


EXIT TO PROCESS NEXT STATEMENT. 


4F12133 
4F12134 








******** 


***** 


***************** 


♦4F12135 
4F12136 








C1200/ CALLS*C0190»C0160* 


rEST..»DIM.SR»DIAG»C0180»DRTASS. 


4F12137 








C1200 PROCESSES 


DIMENSION 


STATEMENTS. 


4F12138 


04266 


07400 4 01707 


C1200 


TSX C0190»4 


* 


PROCEED TO ASSEMBLE IN 1G 


4F12139 


04267 


07400 2 01624 




TSX C0160>2 


* 


THE VARIABLE SYMBOL* 


4F12140 


04270 


07400 4 03275 




TSX TESTE0#4 


• 


NEXT NB CHARACTER SHOULD BE LPAREN 


•4F12141 




A C AAAA A a n ■* •* *S 




** 1 A •» /" 




r«i «A)\i/U)UC. ainDwt 


/. C 1 11 M. 1 


U*t£ f 1 


W 7UVVV U Uili< 




vi_« iu 




"TT L^-X^C 


04272 


60100 01105 




STO 1C 




IN 1C« 


4F12143 


04273 


60100 01130 




STO E+2 




ALSO IN E+2. THEN 


4F12144 


04274 


07400 4 01771 




TSX DIMlSRt4 


• 


GO SEARCH DIM1 TABLE. 


4F12145 


04275 


02000 04277 




TRA C1280 




THEN IF NOT 


4F12146 


04276 


02000 04304 




TRA C1299 




FOUND . 


4F12147 


04277 


07400 4 01775 


C1280 


TSX DIM2SR»4 


* 


60 SEARCH DIM2 TABLE. 


4F12148 


04300 


02000 04302 




TRA C1281 




THEN IF NOT 


4F12149 


04301 


02000 04304 




TRA C1299 




FOUND* 


4F12150 


04302 


07400 4 02005 


C1281 


TSX DIM3SR#4 


* 


GO SEARCH DIM3 TABLE. 


4F12151 


04303 


02000 04305 




TRA C1282 




DO NOT CONTINUE IF 


4F12152 


04304 


07400 4 03400 


C1299 


TSX 0IAG.4 


* 


VARIABLE PREVIOUSLY APPEARED. 


4F12153 


04305 


07400 2 01654 


C1282 


TSX C0180X.2 


* 


GO FORM BINARY EQUIV OF Dl. 


4F12154 


04306 


40200 01377 




SUB CLOS 




IF NOT 1 DIMENSION* 


4F12156 


04307 


10000 04330 




TZE C1210 




THEN 


4F12157 


04310 


50000 01112 




CLA 1G 




PUT 01 


4F12158 


04311 


76700 00022 




ALS 18 




IN DECR 


4F12159 


04312 


60100 01106 




STO 1C+1 




OF 1C+1. 


4F12160 


04313 


07400 2 01654 




TSX C0180X»2 


* 


GO FORM BINARY EQUIV OF D2. 


4F12161 


04314 


40200 01377 




SUB CLOS 




IF NOT 2 DIMENSION* 


4F12163 


04315 


10000 04334 




TZE C1220 




THEN 


4F12164 


04316 


50000 01112 




CLA 1G 




PUT D2 


4F12165 


04317 


62100 01106 




STA 1C+1 




IN ADDRESS OF 1C+1. 


4F12166 



7* 



u 



u 



n 



04320 

04321 

04322 

04323 

04324 

04325 

04326 

04327 

04330 

04331 

04332 

04333 

04334 

04335 

04336 

04337 

04340 

04341 

04342 



04343 
04344 
04345 
04346 
04347 
04350 
04351 
04352 
04353 



04354 

04355 

04356 

04357 

0436C 

04361 

04362 

04363 

04364 

04365 

04366 

04367 

04370 

04371 

04372 

04373 











1 



1 





•0 
1 



07400 

40200 

10000 

07400 

50000 

60100 

07400 

00000 

50000 

60100 

07400 

00000 

50000 

62100 

07400 

07400 

07400 

10000 

00000 



01654 

01377 

04324 

03400 

01112 

01107 

00467 

04337 

01112 C1210 

01106 

00455 

04337 

01112 C1220 

01106 

00462 

01707 C1201 

03247 

04266 

03440 



07400 
00000 
07400 
07400 
00000 
00000 
00000 
00000 
00000 



03321 C1300 

00017 

04171 

01731 

01406 

01601 

01106 

01406 

03440 



07400 
07400 
50200 
60100 
07400 
00000 
07400 
60100 
07400 
00000 
50000 
07400 
■0 10000 
07400 
07400 
-0 10000 



01654 C1400 

03275 

01112 

01112 

03321 

00007 

01654 C1401 

01105 

03321 

00007 

01105 

03255 

04362 

01707 

03247 

04354 



TSX C0180X*2 
SUB CLOS 
TZE *+2 
TSX DIAG»4 
CLA 16 
STO 1C+2 
TSX DIM3IX»4 
TXI C120l*0 
CLA 1G 
STO 1C+1 
TSX DIM1IX»4 
TXI C120l»0 
CLA 1G 
STA 1C+1 
TSX DIM2IX»4 
TSX CO 190 » 4 
TSX TESTA0f4 
TNZ C1200 
TXI CA010»0 

END OF PROGRAM 
******** 



C1200. 
* * * 



* GO FORM BINARY EQUIV OF 03* 
IF MORE THAN 3 DIMENSION* 
THIS IS AN 

* ERROR - GO TO THE DIAGNOSTIC* 
IF 3 DIMENSION* PUT D3 

IN 1C+2* AND 
« GO MAKE DIM3 ENTRY. 

GO TO TEST FOR END OF STATEMENT. 
IF 1 DIMENSION, PUT 01 
IN 1C+1* AND 

* GO MAKE DIM1 ENTRY. THEN 

GO TO TEST FOR END OF STATEMENT. 
IF 2 DIMENSION* PUT D2 IN 
ADDRESS PART OF 1C+1. AND 

* GO MAKE DIM2 ENTRY. THEN 

* OBTAIN NB CHAR FOLLOWING RPAREN. 

* TEST FOR COMMA OR ENDMARK. 

IF CHARACTER IS ENDMARK* THEN 

* EXIT TO PROCESS NEXT STATEMENT. 

******************* 



0300/ CALLS=C0901»TETO0»CIT0O. 
C1300 PROCESSES STOP STATEMENTS. 



TSX 
PZE 
TSX 
TSX 
PZE 
PZE 
PZE 
PZE 
TXI 



TET00*1 

15 

C0901*2 

CIT00*4 

L(0) 

LCTRAJ 

lC+1 

L(0) 

CA010*0 

END OF PROGRAM C1300. 
*********** 



* GO MAKE EIFNO ENTRY 
IN TSTOP TABLE. 

* USE C0900 TO BEGIN PROCESSING* 

* GO MAKE FOLLOWING CIT ENTRY* 
W0RD1 — ALL ZEROS 

W0RD2 — TRAOOO (OP+DECR) 

W0RD3 — DECR = INTFORMNO (SYMBOL) 

W0RD4 — ZEROS (REL ADDR AND TAG) 

* EXIT TO PROCESS NEXT STATEMENT. 

******************* 



0400/ CALLS=CO 
C1400 PROCESSES 

TSX C0180X»2 

TSX TESTE0*4 

CLS 1G 

STO 1G 

TSX TET00*1 

PZE 7 

TSX C0180X»2 

STO 1C 

TSX TET00»1 

PZE 7 

CLA 1C 

TSX TESTB0»4 

TNZ C1401 

TSX C0190»4 

TSX TESTA0.4 

TNZ C1400 



190»C0180*TEST*.*TET00. 
FREQUENCY STATEMENTS. 

* GO FORM BINARY EQUIV OF EFN. 

* CHARACTER SHOULD BE A LPAREN. 
CHANGE SIGN OF SYMBOL 

TO MINUS. 

* GO TO PROGRAM TET TO ENTER 
SYMBOL INTO FRET (TABLE 7)» AND 

* 60 FORM BINARY EQUIV OF M(l). 
SAVE CHAR IN ACC. 

* GO TO PROGRAM TET TO ENTER M{1) 
INTO TABLE FRET CTABLE7)* AND 
RESTORE CHAR IN ACC* AND 

* TEST FOR * OR ). 

IF RIGHT PARENTHESIS* THEN 

* OBTAIN IN ACC NEXT NBCHAR* AND 

* TEST FOR COMMA OR ENDMARK. 

IF ENDMARK* THIS STATEMENT IS DONE 



4F12168 
4F12169 
4F12170 
4F12171 
4F12172 
4F12173 
4F12174 
4F12175 
4F12176 
4F12177 
4F12178 
4F12179 
4F12180 
4F12181 
4F12182 
4F12183 
4F12184 
4F12185 
4F12186 
4F12187 

*4F12188 
4F12189 
4F12190 
4F12191 
4F12192 
4F12193 
4F12194 
4F12195 
4F12196 
4F12197 
4F12198 
4F12199 
4F12200 
4F12201 

*4F12202 
4F12203 
4F12204 
4F12205 
4F122006 
4F12208 
4F12209 
4F12210 
4F12211 
4F12212 
4F12213 
4F12215 
4F12216 
4F12217 
4F12218 
4F12219 
4F12220 
4F12221 
4F12222 

•4F12223 



Vl 



04374 1 00000 03440 



TXI CA010*0 

END OF PROGRAM C1400* 



* EXIT TO PROCESS NEXT STATEMENT* 



* * * * * 



*************** 



********** 



04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 
04406 
04407 
04410 
04411 
04412 
04413 
04414 
04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04430 
04431 
04432 



07400 
07400 
50000 
60100 
07400 
07400 
56000 
60000 
34000 
00000 
00000 
00000 
07400 
07400 
50000 
60100 
07400 
07400 
10000 
07400 
00000 
00000 
50200 
60100 
07400 
00000 
07400 
07400 
10000 
00000 



01707 C1500 

03275 

01407 C1501 

01106 

01707 

01624 

01112 

01105 

01375 

04416 

04411 

04416 

01654 C1502 

03301 

01112 

01106 

01707 

03255 C1503 

04423 

03321 

00010 

04377 

01106 C1504 

01106 

03321 

00010 

01707 

03247 

04375 

03440 



04433 


07400 


4 


01707 


C1600 


04434 


07400 


4 


03271 




04435 


07400 


4 


02375 




04436 


07400 


2 


05674 




04437 


1 OOOOO 





03440 





C1500/ CALLS*C0190»TEST**»C0160*C0180»TETOO* 
C1500 PROCESSES EQUIVALENCE STATEMENTS. 



TSX CO 190 f 4 
TSX TESTE0*4 
CLA L(l) 
STO 1C+1 
TSX C0190.4 
TSX C0160*2 
LDQ 1G 
STO 1C 
CAS ALPAR 
TXI C1503»0 
TXI C1502»0 
TXI C1503»0 
TSX C0180X»2 
TSX TESTF0*4 
CLA 1G 
STO 1C+1 
TSX C0190»4 
TSX TESTB0»4 
TZE CI 504 
TSX TETOO.l 

8 

C1501»0 

1C+1 

1C+1 

TETOO*! 



P2E 
TXI 
CLS 
STO 
TSX 



PZc e 



OBTAIN NEXT NBCHAR IN ACC* 

CHARACTER SHOULD BE A LPAREN* 

INITIALIZE 1C 

TO 1* 

OBTAIN NEXT NBCHAR IN ACC AND 

OBTAIN IN 1G THE SYMBOL V. 

MOVE V 

INTO 1C. 

EXAMINE CHARACTER LEFT IN THE AC* 

AND IF 

CHARACTER IS A LEFT PARENTHESIS. 

THEN 

GO FORM BINARY EQUIV OF N. 

1ST NON-NUMERIC SHOULD BE A RPAREN 

PUT BIN EQUIV OF N 

IN 1C+1* 

OBTAIN NEXT NBCHAR IN ACi AND 

TEST FOR COMMA OR RPAREN. 

IF COMMA* THEN 

GO TO PROGRAM TET TO ENTER SYMBOL 

AND N IN EQUIT CTABLE 8)» AND 

RETURN TO CONTINUE PROCESSING X* 

MAKE SIGN OF N MINUS SINCE 

THIS IS LAST ITEM* 

GO TO PROGRAM TET TO ENTER SYMBOL 

AND N IN EQUIT (TABLE 8>* AND 



TSX C0190*4 
TSX TESTA0»4 
TNZ C1500 
TXI CA010*0 

END OF PROGRAM C1500* 
****************** 



* OBTAIN NEXT NBCHAR IN ACC* AND 

* TEST FOR COMMA OR ENDMARK* 
IF ENDMARK* THEN 

* EXIT TO PROCESS NEXT STATEMENT* 



* * 



********** 



04440 -0 50000 00422 C350O 

04441 63000 04454 

04442 -0 53400 4 00030 C3000 



0600/ CA'LLS S C0190»TEST**»G1F»BSS* 

C1600 PROCESSES CONTINUE STATEMENTS. 
TSX C0190.4 * OBTAIN NEXT NBCHAR IN ACC* 

TSX TESTD0,4 * CHARACTER SHOULD BE AN ENDMARK. 

TSX GIF. 4 * GET INTERNAL FORMULA NUMBER* AND 

TSX BSS.2 * 60 COMPILE* I FN BSS 0. 

TXI CAOIO.O * EXIT TO PROCESS NEXT STATEMENT* 

END OF PROGRAM C1600. »«*-** 

****************************** 

C3000/ CALLS=DIAG.CC190*C0160*TEST*. .SUBX00»TET00»TESTFX* 
C30O0 PROCESSES SUBROUTINE AND FUNCTION STATEMENTS* 
CAL TXHOP 

LXD EIFN0.4 EXAMINE INTERNAL FORMULA NO* » AND 



4F12224 
4F12225 

♦4F12226 
4F12227 
4F12228 
4F12229 
4F12230 
4F12231 
4F12232 
4F12233 
4F12234 
4F12235 
4F12236 
4F12237 
4F12238 
4F12239 
4F12240 
4F12241 
4FX2242 

•4F12244 
4F12245 
4F12246 
4F12247 
4F12248 
4F12249 
4F12250 
4F12251 
4F12252 
4F12253 
4F12254 
4F12255 
4F12256 
4F12257 
4F12258 
4F12259 
4F12260 
4F12261 

♦4F12262 
4F12263 
4F12264 
4F12265 
4F12266 
4F12267 
4F12268 
4F12269 
4F12270 
4F12271 

♦4F12272 
4F12273 
4F12274 
4F12275 
4F12276 
4F12277 
4F12278 



u 



/ 

u 



04443 


-3 


00001 


4 


04445 


TXL 


♦+2#4tl 


* 


04444 





07400 


4 


03400 


TSX 


DIAG»4 


04445 





50000 





01121 


CLA 


ARGCNT 




04446 





76000 





00003 


SSP 






04447 





60100 





01121 


STO 


ARGCNT 




04450 





07400 


4 


01707 


TSX 


C0190»4 


* 


04451 





07400 


4 


03311 


TSX 


TESTH0.4 


* 


04452 





07400 


2 


01624 


TSX 


C0160»2 


* 


04453 





07400 


4 


03263 


TSX 


TESTCQ*4 


♦ 


04454 


-3 


00000 





04457 C3003 


TXL 


*+3t0 




04455 





50000 





01112 


CLA 


1G 




04456 





60100 





01332 


5T0 


FSNAME 




04457 





07400 


4 


03224 


TSX 


SUBX00.4 


♦ 


04460 





07400 


1 


03321 


TSX 


TET00«1 


♦ 


04461 





00000 





00013 


PZE 


11 




04462 


-0 


53400 


4 


00030 


LXD 


EIFN0»4 




04463 


-0 


75400 


4 


00000 


PXD 


»4 




04464 





60100 





01347 


STO 


G 




04465 


1 


00000 





04506 


TXI 


C3002.0 




04466 





40000 





01374 C3001 


ADO 


ENDMK 




04467 





07400 


4 


03311 


TSX 


TESTH0.4 


♦ 


04470 





60100 





01331 


STO 


FIRSTC 




04471 





07400 


2 


01624 


TSX 


C0160»2 


* 


04472 





07400 


4 


03255 


TSX 


TESTB0»4 


* 


04473 





50000 





01112 


CLA 


1G 




04474 





60100 





01350 


STO 


G+l 




04475 





07400 


1 


03241 


TSX 


TESTFXtl 


* 


04476 


1 


00000 





04501 


TXI 


C3004>0 




04477 





07400 


1 


03321 


TSX 


TET00»1 


* 


04500 





00000 





00006 


PZE 


6 




04501 





07400 


1 


03321 C3004 


TSX 


TET00»1 


* 


04502 





00000 





00013 


PZE 


11 




04503 





50000 





01121 


CLA 


ARGCNT 




04504 





40000 





01454 


ADD 


Dl 




04505 





60100 





01121 


STO 


ARGCNT 




04506 





07400 


4 


01707 C3002 


TSX 


C0190.4 


♦ 


04507 





40200 





01374 


SUB 


ENDMK 




04510 


-0 


10000 





04466 


TNZ 


C3001 




04511 


1 


00000 





03440 


TXI 


CA010»0 

END OF PROGRAM C3000t 
************ 

C3100/ CALLS=C0190«DIA6 
C3100 PROCESSES COMMON 


* 
* 

»T 
ST 


04512 





07400 


4 


01707 C3100 


TSX 


C0190«4 


* 


04513 





07400 


4 


03311 


TSX 


TESTH0.4 


* 


04514 





07400 


2 


01624 


TSX 


C0160.2 


* 


04515 





07400 


4 


03247 


TSX 


TESTA0»4 


♦ 


04516 





73400 


4 


00000 


PAX 


♦ 4 




04517 





07400 


1 


03321 


TSX 


TET00»1 


♦ 


04520 





00000 





00014 


•PZE 


12 




04521 





50000 





00365 


CLA 


SBDFCN 




04522 





10000 





04534 


TZE 


C3101 




04523 





50000 





01454 


CLA 


2E18 





IF NOT THE 1ST STATEMENTf THEN fJlUl 
ERROR - GO TO THE DIAGNOSTIC. 4F12280 
SET ARGCNT TO INDICATE TO LATER 4F12281 
RETURN THAT THERE WAS A PRECEEDING 4F12282 
SUBROUTINE OR FUNCTION STATEMENT* 4F12283 
IF 1ST CHARACTER OF NAME IS 4F12284 
NUMERIC* THEN GO TO THE DIAGN0STIC.4F12285 
ASSEMBLE NAME IN 1G. 4F12286 

NEXT CHAR SHD BE LPAREN OR ENDMARK.4F12287 

4F12288 
• 4F12289 
4F12290 
4F12291 
4F12292 
4F12293 
4F12294 
4F12295 
4F12296 
4F12297 
4F12298 
4F12299 
4F12300 
4F12301 
4F12302 
4F12303 
4F12304 
4F12305 



FILL OUT NAME WITH BLANKS. 

GO ENTER NAME 

IN SUBDEF TABLE. 

PLACE 

INTERNAL FORMULA NUMBER 

IN G* 

GO TEST FOR END OF STATEMENT. 

IF NOT F.NDMARK. RESTORE CHARACTER 

WHICH SHOULD BE NON-NUMERIC 

1ST CHARACTER OF ARGUMENT. 

ASSEMBLE ARGUMENT IN 1G. 

NEXT CHAR SHD BE COMMA OR RPAREN. 

MOVE ARGUMENT 

INTO G+l* 

GO TEST FOR FIXED OR FLOATING PT. 

IF 
IF 
IN 
IN 



FLOATING PT.» SKIP FORVAL ENTRY. 4F12306 



FIXED POINT» GO MAKE ENTRY 

FORVAL TABLE. 

BOTH CASES. MAKE ENTRIES IN 
SUBDEF TABLE. 
UPDATE 

ARGUMENT COUNT 
BY 1. AND 

EXAMINE NEXT NON-BLANK CHARACTER. 
IF NOT ENDMARK» THEN 
GO PROCESS NEXT ARGUMENT. 
OTHERWISE* EXIT TO CAOOO. 

***************** 



4F12307 
4F12308 
4F12309 
4F12310 
4F12311 
4F12312 
4F12313 
4F12314 
4F12315 
4F12316 
4F12317 
4F12318 
*4F12319 
4F12320 
4F12321 
4F12322 



GET FIRST NON-BLANK CHAR OF SYMBOL 4F12323 



WHICH SHOULD BE NON-NUMERIC. 

ASSEMBLE SYMBOL IN 1G* AND TEST 

NEXT CHARACTER FOR COMMA OR ENDMK. 

SAVE RESULT OF TEST IN XR4» AND 

GO ENTER THIS SYMBOL 

IN COMMON TABLE. 

ANY ENTRIES IN SUBDEF 

INDICATE THIS IS NOT A 

MAIN PROGRAM. SINCE THIS 



4F12324 

4F12325 

4FI2326 

4F12327 

4F12328 

4F12329 

4F123291 

4F123292 

4F123293 



04524 





60100 





01347 


STO 


G 


04525 


-0 


50000 





01112 


CAL 


1G 


04526 





60200 





01350 


SLW 


G+l 


04527 





77100 





00036 


ARS 


30 


04530 





07400 


1 


03242 


TSX 


TESTFX+ltl * 


04531 





02000 





04534 


TRA 


C3101 


04532 





07400 


1 


03321 


TSX 


TETQOtl * 


04533 





00000 





00006 


PZE 


6 


04534 


3 


00000 


4 


04512 C3101 


TXH 


C3100*4*0 


04535 


1 


00000 





03440 


TXI 


CA010*0 * 

END OF PROGRAM C3100. 
************* 

C3200/ CALLS=C0190»TEST.« 
C3200 PROCESSES RETURN ST 


04536 





07400 


4 


01707 C3200 


TSX 


C0190»4 * 


04537 





07400 


4 


03271 


TSX 


TESTDQ»4 * 


04540 





07400 


4 


02366 


TSX 


GETIFN>4 * 


04541 





07400 


4 


02372 


TSX 


JIF»4 * 


04542 





50000 





01121 


CLA 


ARGCNT 


04543 





12000 





04545 


TPL 


*+2 


04544 





07400 


4 


03400 


TSX 


DJAGt4 * 


04545 





50000 





01332 


CLA 


FSNAME 


04546 





10000 





04555 


TZE 


*+7 


04547 





07400 


4 


01731 


TSX 


CITOO«4 ♦ 


04550 





00000 





01105 


PZE 


1C 


04551 





00000 





01541 


PZE 


LKLA) 


04552 





00000 





01332 


PZE 


FSNAME 


04553 





00000 





01406 


PZE 


LIO» 


04554 





60000 





01105 


STZ 


1C 


04555 





07400 


4 


01731 


TSX 


CIT0O»4 * 


04556 





00000 





01105 


PZE 


1C 


04557 





00000 





01561 


PZE 


LCLXD) 


04560 





00000 





01523 


PZE 


OOLSGN 


04561 





00000 





01407 


PZE 


L(l) 


04562 





07400 


4 


01731 


TSX 


CIT00#4 * 


04563 





00000 





01406 


PZE 


LCO) 


04564 





00000 





01561 


PZE 


LCLXD) 


04565 





00000 





01523 


PZE 


OOLSGN 


04566 





00000 





01456 


PZE 


A8TA62 


04567 





07400 


4 


01731 


TSX 


CIT00*4 * 


04570 





00000 





01406 


PZE 


L(0) 


04571 





00000 





01570 


PZE 


L(QXO) 


04572 





00000 





01523 


PZE 


DOLSGN 


04573 





ooooo 





01460 


PZE 


ABTAG3 


04574 





07400 


4 


01731 


TSX 


CIT00»4 * 


04575 





ooooo 





01367 


PZE 


SL 


04576 





ooooo 





01567 


PZE 


L(OPR) 


04577 





ooooo 





01406 


PZE 


L(OJ 


04600 





ooooo 





01121 


PZE 


ARGCNT 


04601 





07400 


4 


01731 


TSX 


CIT00.4 * 


04602 





ooooo 





01406 


PZE 


LCO) 


04603 





ooooo 





01601 


PZE 


L(TRA) 


04604 





ooooo 





01367 


PZE 


SL 



IS A COMMON 

STATEMENT WHICH 

APPEARS IN A SUBPROGRAM 

ENTER ANY 

FIXED POINT 

VARIABLES 

IN 

FORVAL TABLE. 

IF CHARACTER WAS COMMA* REPEAT. 

IF ENDMK» EXIT TO CAOOQ. 

***************** 

••»GETIFN»DImG»CITOO»JIF(GIF)« 

STATEMENTS. 

EXAMINE NEXT NON-BLANK CHARACTER* 

WHICH SHOULD BE AN ENDMARK. 

GET INTERNAL FORMULA NUMBER IN 1C 

SET SL TO ALPHA+1. 

TEST ARGCNT FOR PRECEEDING 

SUBROUTINE - IF NONE* THEN 

ERROR - GO TO THE DIAGNOSTIC. 



GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1— OU FN) 000 

W0RD2 — CLAOOO 

W0RD3— NAME OF FUNCTION 

W0RD4 — 000000 

CLEAR 1C. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1— 0UFNJ000 

W0RD2 — LXDOO0 

W0RD3 — $ 

W0RD4 — 000001 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — 000000 

W0RD2 — LXDOOO 

W0RD3— $ 

W0RD4 — 001002 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0RD2 — QXDOOO 

WORD 3 — $ 

W0RD4 — 002000 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0{IFN+1)000 

W0RD2— OPROOO 

W0RD3— 000000 

W0RD4 — 01N+D004 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0RD2 — TRAOOO 

W0RD3— 0UFN+1J000 



4F123294 

4F123296 

4F123297 

4F 123298 

4F123299 

4F12330 

4F123301 

4F123302 

4F123303 

4F12331 

4F12332 

♦4F12333 
4F12334 
4F12335 
4F12336 
4F12337 
4F12338 

, 4F12339 
4F12340 
4F12341 
4F12342 
4F12343 
4F12344 
4F12345 
4F12346 
4F12347 
4F12348 
4F 12349 
4F12350 
4F12351 
4F12352 
4F12353 
4F 12354 
4F12355 
4F12356 
4F12357 
4F12358 
4F12359 
4F12360 
4F 12361 
4F12362 
4F12363 
4F12364 
4F12365 
4F12366 
4F12367 
4F12368 
4F12369 
4F12370 
4F12371 
4F12372 
4F12373 
4F12374 
4F12375 



u 



u 



©4605 
04606 



00000 01406 

1 00000 03440 



PZE L(0) 
TXI CA010*0 

END OF PROGRAM C3200. 
************** 



W0RD4 — 000000 
* EXIT TO PROCESS NEXT STATEMENT. 



* * 



************ 



C3300/ CALLS=C039O*C0190X*CO19Q»TEST.*»ARITH»SUBXO0. 
C3300 PROCESSES CALL STATEMENTS. 



04607 





07400 


4 


01707 C3300 


TSX 


C0190#4 


* 


04610 





07400 


4 


03311 


TSX 


TESTH0.4 


* 


04611 





07400 


2 


01624 


TSX 


CO 160 #2 


* 


04612 





07400 


4 


03263 


TSX 


TESTC0*4 


* 


04613 





10000 





04632 


T2E 


C3301 




04614 





07400 


4 


01671 


TSX 


C0190X*4 


* 


04615 





07400 


4 


01707 


TSX 


C0190*4 


* 


04616 





56000 





01434 


LDQ 


LfZ} 




04617 





07400 


4 


01675 


TSX 


C0390*4 


* 


04620 





56000 





01373 


LDQ 


LUO) 




04621 





07400 


4 


01675 


TSX 


C0390*4 


♦ 


04622 





56000 





01400 


LDQ 


EQUAL 




04623 





07400 


4 


01675 


TSX 


C0390»4 


♦ 


04624 





56000 





01430 


LDQ 


BLANK 




04625 





07400 


4 


01675 


TSX 


C0390*4 


* 


04626 





50000 





00030 


CLA 


EIFNO 




04627 





77100 





00022 


ARS 


18 




04630 





62100 





01123 


STA 


CALLNM 




04631 


1 


OOOOO 





06323 


TXI 


ARITH»0 


* 


04632 





07400 


4 


03224 C3301 


TSX 


SUBX00*4 


* 


04633 





50000 





01112 


CLA 


1G 




04634 





60100 





01347 


STO 


6 




04635 





07400 


1 


03321 


TSX 


TET00»1 


♦ 


04636 





OOOOO 





00011 


PZE 


9 




04637 





07400 


4 


02366 


TSX 


GETIFN.4 


* 


04640 





07400 


4 


01731 


TSX 


CIT00»4 


* 


04641 





OOOOO 





01105 


PZE 


1C 




04642 





OOOOO 





01575 


PZE 


L(SXD) 




04643 





OOOOO 





01505 


PZE 


X( 




04644 





ooooo 





01412 


PZE 


L(4) 




04645 





07400 


4 


01731 


TSX 


CIT0O»4 


* 


04646 





OOOOO 





01406 


PZE 


L(0) 




04647 





OOOOO 





01602 


PZE 


L(TSX) 




04650 





OOOOO 





01112 


PZE 


1G 




04651 





OOOOO 





01412 


PZE 


L(4) 




04652 





07400 


4 


03401 


TSX 


FLTR00#4 


* 


04653 





OOOOO 





01406 


PZE 


L(0) 




04654 





OOOOO 





01561 


PZE 


L(LXD) 




04655 





OOOOO 





01505 


PZE 


X( 




04656 





OOOOO 





01412 


PZE 


L(4) 




04657 


1 


OOOOO 





03440 


TXI 


CA010*0 

END OF PROGRAM 
******** 


* 

C3300. 

* * * * * 



4F12376 

4F12377 
4F12378 
* * *4F12379 
4F12380 
4F12381 
4F12382 
IF 1ST CHARACTER OF NAME IS 4F12383 
NUMERIC* THEN GO TO THE DIAGN0STIC.4F12384 
COLLECT THE REST OF THE NAME* WHICH4F12385 
SHD BE FOLLOWED BY LPAREN OR ENDMK.4F12386 
IF LPAREN. THEN CHANGE CALL TO A 4F12387 
PSEUDO-ARITHMETIC FORMULA (Z10*). 4F12388 
PICKUP THE CHARACTER C» 
AND 

C WITH Z. 



4F12389 
4F12390 
4F12391 
4F12392 
4F12393 
4F12394 
4F12395 
4F12396 
4F12397 



REPLACE 

AND 

REPLACE A WITH TEN. 

AND 

REPLACE FIRST L WITH =• 

AND 

REPLACE SECOND L WITH BLANK. 

PUT 1ST IFN OF THIS CALL IN CALLNM 4F12398 

FOR LATER TABLE ENTRY OF 4F12399 

FIRST / LAST NUMBERS OF CALLS. 

THEN EXIT TO ARITH TO PROCESS. 

IF THERE ARE NO ARGUMENTS* THEN 

AFTER COMPLETING NAME WITH BLANKS* 

MOVE IT INTO G, AND 

GO ENTER NAME 

IN CLOSUB TABLE. 

PUT INTERNAL FORMULA NUMBER IN 1C. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0( IFN) 000 

W0RD2 — SXDOOO 

W0RD3 — 700000 

W0RD4— 000004 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0RD2 — TSXOOO 

W0RD3—tNAME) 

W0RD4— 000004 

GO MAKE FLOW* TRACING INSTRUCTIONS. 

W0RD1— 000000 

W0RD2 — LXDOOO 

W0RD3 — 700000 

W0RD4 — 000004 

EXIT TO PROCESS NEXT STATEMENT. 



* * * 



************** 



04660 53400 2 01413 C3400 



C3400/ CALLS=C0190*DIAG»TEST... 
C3400 PROCESSES END STATEMENTS. 
LXA L(5),2 PREPARE 



TO SET 5 SS SIMULATORS. 



4F12400 
4F12401 
4F12402 
4F12403 
4F12404 
4F12405 
4F 12406 
4F12407 
4F12408 
4F12409 
4F12410 
4F12411 
4F12412 
4F12413 
4F12414 
4F12415 
4F12416 
4F12417 
4F12418 
4F12419 
4F 12420 
4F12421 
4F12422 
4F12423 
4F12424 
*4F12425 
4F12426 
4F12427 
4F12428 
4F12429 



V 



04661 


07400 4 01707 


C3405 


TSX 


C0190.4 


* 


04662 


34000 01410 




CAS 


L(2) 




04663 


07400 4 03400 




TSX 


DIAG»4 


* 


04664 


1 00000 04666 




TXI 


C3410t0 




04665 


60100 2 00036 




STO 


ENDIl+5*2 




04666 


07400 4 01707 


C3410 


TSX 


C019G*4 


* 


04667 


2 00001 2 04661 




TIX 


C3405»2»l 




04670 


07400 4 01707 




TSX 


C0190»4 


* 


04671 


07400 4 03271 




TSX 


TESTD0«4 


# 


04672 


1 00000 03440 




TXI 


CAOlOtO 
END OF PROGRAM C3400. 


* 
* 



PICKUP CONSTANT t 

WHICH SHOULD BE 0*1* OR 2. 

OTHERWISE* GO TO THE DIAGNOSTIC. 

SIMULATOR IS PRESET TO 2. 

IF o OR 1) SET PROPER SIMULATOR. 



4F12430 
4F12431 
4F12432 
4F12433 
4F12434 



SKIP NEXT NON-BLANK CHARACTER t AND 4F12435 

REPEAT PROCESS FOR 5 CONSTANTS. 

EXAMINE NEXT NON-BLANK CHARACTER* 

WHICH SHOULD BE AN ENDMK. 

EXIT TO PROCESS NEXT STATEMENT. 



STATEA/3-PR0CESS INPUT-OUTPUT STATEMENTS* 



****** 



*#*»**♦'***#***«»*****.*** 



04673 





50000 





01437 RDC 


CLA 


A81 


04674 





62100 





02067 


STA 


ENT 


04675 


Q 


07400 


2 


06002 


TSX 


INPUT*2 


04676 





50000 





06127 


CLA 


CSH 
TSC* EN 


04677 





60100 





06143 TSC 


STO 


TSA 


04700 


-0 


50000 





06133 


CAL 


RTN 


04701 





60200 





06141 


SLW 


END 


04702 





50000 





06130 


CLA 


DBC 
TTC* EN 


04703 





60100 





06144 TTC 


STO 


TTA 


04704 





07400 


4 


05603 


TSX 


BEG»4 


04705 





07400 


4 


03400 


TSX 


DIA6»4 


04706 


-0 


10000 


4 


00004 


TNZ 


4*4 


04707 





07400 


4 


03400 


TSX 


DIAG#4 


04710 





62100 





01366 


STA 


SET 


04711 


-0 


50000 





06114 


CAL 


NTR 


04712 





60200 





17401 


SLW 


OP 


04713 





50000 





00415 


CLA 


TXLOP 


04714 





63000 





05754 


STP 


ETMSW • 


04715 





63000 





05757 


STP 


LTMSW 


04716 





07400 


4 


05754 


TSX 


ETMSWf4 


04717 





07400 


4 


06023 


TSX 


LIB»4 


04720 





00000 





01406 


PZE 


L(0) 


04721 





00000 





01537 


PZE 


CAL 


04722 





00000 





06144 


PZE 


TTA 


04723 





00000 





01406 


PZE 


LfO) 


04724 





07400 


4 


01731 


TSX 


CIT*4 


04725 





00000 





01406 


PZE 


L(0) 


04726 





00000 





06120 


PZE 


SLW 


04727 





00000 





01406 


PZE 


L(0) 


04730 





ooooo 





01454 


PZE 


Dl 


04731 





07400 


4 


06023 


TSX 


LIB#4 


04732 





OOOOO 





01406 


PZE 


L(0) 


04733 





ooooo 





01537 


PZE 


CAL 



RDC/ CALLS*INPUT»BEG»DIAG*ETMSW»LIB»CIT»JIF. 
ROC PROCESSES READ STATEMENTS. 

SET THE ADDRESS FIELD OF 

ENT INTROOO) TO 81. 

* GO COMPILE CAL *» AND XI T <LEV). 
PICKUP (CSH) TO 

ENTRY POINT USED BY RIT. 

SET TSA. 
MOVE (RTN) 
INTO END. 
PICKUP (DBC) TO 
POINT USED BY RDP. 

SET TTA. 

* CONVERT CONSTANT FORMAT NUMBER. 

* ATTEMPT TO USE VARIABLE FORMAT NO. 4F12461 
60 TO THE DIAGNOSTIC f IF THERE WAS 4F12462 

* NO FORMAT NUMBER GIVEN. 4F12463 
MOVE BINARY FORMAT NUMBER INTO SET.4F12464 



4F12436 
4F12437 
4F12438 
4F12439 
4F 12440 

♦4F12441 
4F 12442 
4F 12443 
4F12444 

♦4F12445 
4F 12446 
4F12447 
4F 12448 
4F12449 
4F12450 
4F12451 
4F12452 
4F12453 
4F 12454 
4F 12455 
4F12456 
4F12457 
4F 12458 
4F 12459 
4F12460 



MOVE NTROOO 
INTO OP. 

SET OP-SWITCHES* 
ETMSW AND LTMSW* 
TO NO TRANSFER CASE. 
« 60 COMPILE ETM. 

* MAKE CLOSUB ENTRY* AND COMPILE* 
W0RD1 — 000000 

W0RD2— CALOOO 
WORDS— (DBC) OR (BDCI 
W0RD4— 000000 

* GO MAKE THE FOLLOWING CIT ENTRY* 
W0RD1 — 000000 

W0RD2 — SLWOOO 
W0RD3 — 000000 
W0RD4 — 001000 

* MAKE CLOSUB ENTRY* AND COMPILE* 
W0RD1 — 000000 

W0RD2 — CALOOO 



4F12465 
4F12466 
4F12467 
4F12468 
4F 12469 
4F12470 
4F12471 
4F12472 
4F12473 
4F 12474 
*F12475 
4F12476 
4F12477 
4F12478 
4F12479 
4F12480 
4F12481 
4F12482 
4F12483 



V 



o 



u 



0*734 


00000 06143 


PZE TSA 


04735 


00000 01406 


PZE L(0) 


04736 


07400 4 01731 


TSX CIT*4 


04737 


00000 01371 


PZE TL 


04740 


00000 02067 


PZE ENT 


04741 


00000 01366 


PZE SET 


04742 


00000 01406 


PZE L(0) 


04743 


07400 4 02372 


TSX JIF»4 

BXT * EXIT SWITCH TO 


04744 


1 00000 05141 BXT 


TXI RSC*0 

END OF PROGRAM ROC. 



04745 


07400 2 06002 


RIT 


TSX INPUT* 2 * 


04746 


07400 4 05603 




TSX BEG #4 * 


04747 


07400 4 06036 




TSX VR0»A * 


04750 


62100 02067 




STA ENT 


04751 


50000 06137 




CLA TSH 


04752 


1 00000 04677 




TXI TSC*0 * 
END OF PROGRAM RIT* 
************* 



04753 -0 75400 00000 RDP 

04754 62100 02067 

04755 07400 2 06004 

04756 50000 06135 

04757 60100 06143 TSO 

04760 -0 50000 06131 

04761 60200 06141 

04762 50000 06126 

04763 1 00000 04703 



04764 07400 2 06004 WOT 

04765 07400 4 05603 

04766 07400 4 06036 

04767 62100 02067 

04770 50000 06136 

04771 1 00000 04757 



04772 -0 75400 00000 POC 

04773 62100 02067 



W0RD3— (CSH) OR (TSH) 4F 12484 

WOR04 — 000000 4F12485 

« GO MAKE THE FOLLOWING CIT ENTRY* 4F12486 
W0RD1 — O(IFN) 0(248) 4F 12487 

W0RD2 — NTR0(81* OR UNIT* OR 00) 4F12488 
W0R03 — 800 (FORMAT NUMBER) 4F12489 

W0RD4 — 000000 4F 12490 

* GO JUMP IFN* AND SET SL AND TL. 4F12491 
: OR LASTf USED BY WBT»RBT»WRD. 4F12492 

* EXIT TO SCAN LIST* IF THERE IS 0NE.4F12493 

4F12494 

****************************** #4F12495 

4F12496 
RIT/ CALLS* INPUT*BEG*VRD. USES*RDC. 4F12497 

RIT PROCESSES READ INPUT TAPE STATEMENTS. 4F12498 

GO COMPILE CAL *» AND XI T (LEV). 4F12499 
SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500 
IF VARIABLE* ENTER FORVAR AND CITS.4F12501 
IF CONSTANT* SET ENT* NTRO(UNIT). 4F12502 
PICKUP (TSH) TO SET TSA. AND 4F12503 
CONTINUE BY USING PROGRAM RDC. 4F12504 

4F12505 
* # * • *** ***** * * * ** *4F12506 

4F12507 

RDP/ CALLS*OUTPUT. USES*RDC. 4F12508 

RDP PROCESSES PRINT STATEMENTS. 4F12509 

PXD »0 RESET ENT 4F12510 

STA ENT TO NTROOO. 4F12511 

TSX 0UTPUT»2 * GO COMPILE CAL *» AND XIT (LEV). 4F12512 



PICKUP (SPH)t AND 
ENTRY POINT USED BY WOT* PDC* 



CLA SPH 

TSD 
STO TSA 
CAL FIL 
SLW END 
CLA BDC 
TXI TTC.O 

END OF PROGRAM RDP. 

************ 



4F12513 
4F12514 
4F12515 
4F12516 
4F12517 
4F12518 
4F12519 
4F 12520 
********** *4F12521 

4F12522 
WOT/ CALLS*QUTPUT*BEG*VRD. USE5*RDP. 4F12523 

WOT PROCESSES WRITE OUTPUT TAPE STATEMENTS. 4F12524 



SET TSA. 
MOVE (FIL) 
INTO END. 

PICKUP (BDC) TO SET TTA* AND 
* CONTINUE BY USING PROGRAM RDC. 

******* 



* GO COMPILE CAL *• AND XIT (LEV). 4F12525 

* SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526 

* IF VARIABLE* ENTER FORVAR AND CITS.4F12527 
IF CONSTANT* SET ENT* NTRO(UNIT). 4F12528 
PICKUP (STH) TO SET TSA* AND 4F12529 

* CONTINUE BY USING PROGRAM RDP. 4F12530 

4F12531 

****************** *4F12532 

4F12533 

PDC/ CALLS*OUTPUT. USES*RDP. 4F12534 

PDC PROCESSES PUNCH STATEMENTS. 4F12535 

PXD .0 RESET ENT 4F12536 

STA ENT TO NTROOO. 4F12537 



TSX OUTPUT* 2 
TSX BEG»4 
TSX VRD*4 
STA ENT 
CLA STH 
TXI TSD*0 

END OF PROGRAM WOT. 
************ 



,>) 



04774 07400 2 06004 

04775 50000 06134 

04776 1 00000 04757 



04777 
05000 
05001 
05002 
05003 
05004 
05005 
05006 
05007 
05010 
05011 



05012 
05013 
05014 
05015 
05016 
05017 
05020 
05021 
05022 
05023 
05024 
05025 
05026 
05027 
05030 
05031 
05032 
05033 
05034 
05035 
05036 
05037 
05040 
05041 
05042 
05043 



50000 
60200 
07400 
50000 
07400 
07400 
00000 
00000 
00000 
00000 
00000 



50000 
60200 
07400 
50000 
07400 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 

ooooo 

07400 

ooooo 
ooooo 
ooooo 
ooooo 

07400 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



06124 W8T 

17401 

06004 

01475 

05646 

01731 

01406 

01544 

01504 

01457 

04744 



06117 RBT 

17401 

06002 

01475 

05646 

01731 

01406 

01544 

01500 

01406 

01731 

01406 

06125 

01510 

01461 

01731 

01406 

01554 

01406 

01406 

01731 

01406 

06125 

01371 

01406 

04744 



TSX 0UTPUTt2 
CLA SCH 
TXI T30*O 

END OF PROGRAM PDC. 
************ 



GO COMPILE CAL *» AND XlT (LEV). 
PICKUP CSCHJ TO SET TSA* AND 
CONTINUE BY USING PROGRAM RDP. 



******* 



*********** 



WBT/ CALLS*OUTPUT.BRW.CIT. 

WBT PROCESSES WRITE TAPE STATEMENTS. 



CAL WTB 
SLW OP 
TSX OUTPUTS 
CAL BTA 
TSX BRW»4 
TSX CIT»4 
PZE L(0) 
PZE CPY 
PZE ZER 

D2 

BXTtO 
END OF PROGRAM WBT. 

************ 



PZE 
TXI 



4F12538 
4F12539 
4F12540 
4F12541 
♦4F12542 
4F12543 
4F12544 
4F12545 
4F12546 
4F12547 
4F12548 
4F12549 
4F12550 
4F12551 
4F12552 
4F12553 
4F12554 
4F12555 



RBT/ CALLS=INPUT»BRW*CIT« 

RBT PROCESSES READ TAPE STATEMENTS. 

MOVE RTBOOO 
INTO OP. 



CAL RTB 
SLW OP 
TSX INPUT* 2 
CAL BTA 
TSX BRWt4 
TSX CIT*4 
PZE L(0) 
PZE CPY 
PZE DMP 
PZE LCO) 
TSX CIT»4 
PZE L(0) 
PZE XIT 
PZE 15P 
PZE D3CN 
TSX CIT*4 
PZE L(0) 
PZE HPR 
PZE L<0> 
PZE LCO) 
TSX CIT*4 
PZE L(0) 
PZE XIT 
PZE TL 
PZE LCO) 
TXI BXTtO 

END OF PROGRAM RBT. 
*********** 



MOVE WTBOOO 
INTO OP. 

* GO COMPILE CAL ** AND XIT (LEV). 
PICKUP BINARY TAPE ADDRESS* AND 

* COMPILE INSTRS TO SET UNIT DESIG. 

* GO MAKE THE FOLLOWING CIT ENTRY= 
W0RD1 — 000000 
W0RD2— CPYOOO 
W0RD3 — 600000 
W0RD4— 002000 , r ,oc C ^ 

* EXIT TO SCAN LIST» IF THERE IS 0NE.4F12556 

4F12557 

****************** *4F12558 

4F12559 
4F12560 
4F12561 
4F12562 
4F12563 
4F12564 
4F12565 
4F12566 
4F12567 
4F12568 
4F12569 
4F12570 
4F12571 
4F12572 
4F12573 
4F 12574 
4F12575 
4F12576 
4F12577 
4F12578 
4F12579 
4F12580 
4F12581 
4F12582 
4F12583 
4F12584 
4F12585 
4F12586 



* * * 



WRD/ CALLS*0UTPUT*BRW*CIT« 



GO COMPILE CAL ** AND XIT (LEV). 

PICKUP BINARY TAPE ADDRESS* AND 

COMPILE INSTRS TO SET UNIT DESIG. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0RD2 — CPYOOO 

W0RD3 — 100000 

W0RD4 — 000000 

GO MAKE THE FOLLOWING CIT ENTRY* 

WOR01 — 000000 

W0RD2 — XITOOO 

W0RD3 — *00000 

W0RD4— 003000 

GO MAKE THE FOLLOWING CIT ENTRY= 

WORD! — 000000 

W0RD2— HPR 000 

W0RD3 — 000000 

W0RD4 — OOOOCO 

60 MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0RD2 — XITOOO 

WORDS — ( IFN ) ( 248 ) 

W0RD4 — 000000 

EXIT TO SCAN LIST* IF THERE IS 0NE.4F12587 

**************** *4F12589 

4F12590 
4F12591 



-\k 



u 



u 



^ 



05044 07400 2 06004 WRO 

05045 -0 50000 06122 



WRD PROCESSES WRITE DRUM STATEMENTS, 
TSX OUTPUT *2 * GO COMPILE CAL *» AND XI T ILEV). 

CAL WDR PICKUP WDROOOt AND 

XDR* ENTRY POINT USED BY RDD. 



05046 


60200 


17401 XDR SLW OP 
















05047 


-0 50000 


01476 


CAL BDA 
















05050 


07400 4 


05646 


TSX BRWt4 














• 


05051 


-0 50000 


01566 


CAL PXD 
















05052 


60200 


17401 


SLW OP 
















05053 


-0 75400 


00000 


PXD »0 
















05054 


07400 4 


05646 


TSX BRW*4 














* 


05055 


07400 4 


01731 


TSX CIT*4 














« 


05056 


00000 


01406 


PZE LfO) 
















05057 


00000 


01555 


PZE LDA 
















05060 


00000 


01371 


PZE TL 
















05061 


00000 


01406 


PZE L(0) 
















05062 


1 00000 


04744 


TXI BXT.O 














* 








END OF 


PROGRAM 


WRD. 










# * * * 


* 


# 


♦ 


* 


* 


* * 


* * 



05063 07400 2 06002 RDD 

05064 -0 50000 06115 

05065 1 00000 05046 



SET OP. 

PICKUP BINARY DRUM ADDRESS* AND 

COMPILE INSTRS TO SET UNIT DESIG. 

MOVE PXDOOO 

INTO OP. 

CLEAR THE AC* AND 

COMPILE INSTRS TO SET DRUM LOC. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 000000 

W0RD2 — LDAOOO 

W0RD3 — 0(IFN)0(248> 

WORD4 — 000000 

EXIT TO SCAN LIST* IF THERE IS ONE.4F12608 

4F12609 

***************** *4F12610 

4F12611 
4F12612 
4F12613 
4F12614 
4F12615 
4F12616 
4F12617 



4F12592 
4F12593 
4F12594 
4F12595 
4F12596 
4F 12597 
4F12598 
4F12599 
4F12600 
4F12601 
4F12602 
4F12603 
4F12604 
4F12605 
4F12606 
4F12607 



RDD/ CALLS* INPUT. USES=WRD. 

RDD PROCESSES READ DRUM STATEMENTS. 
TSX INPUT»2 * GO COMPILE CAL *» AND XIT (LEV). 

CAL RDR PICKUP RDROOO TO SET OP* AND 

TXI XDR*0 * CONTINUE BY USING PROGRAM WRD* 

END OF PROGRAM RDD* 

****************************** «4F12618 

4F12619 
EFT/ CALLS*6IF*BEG»VRAX*CIT. 4F12620 

EFT PROCESSES WRITE END OF FILE STATEMENTS* 4F12621 



05066 


-0 50000 





06123 


EFT 


CAL 


WEF 






















TPO* ENTRY 


POINT USED 


BY 


05067 


60200 





17401 


TPO 


SLW 


OP 










05070 


-0 50000 





01475 




CAL 


BTA 










05071 


60200 





06140 




SLW 


CON 










05072 


07400 


4 


02375 




TSX 


GIF*4 








• 


05073 


50000 





02377 




CLA 


LfSL) 










05074 


62100 





05102 




STA 


TPOA 










05075 


07400 


4 


05603 




TSX 


BEG»4 








* 


05076 


07400 


4 


06032 




TSX 


VRA»4 








* 


05077 


76700 





00022 




ALS 


18 










05100 


60100 





17402 




STO 


RA 










05101 


07400 


4 


01731 




TSX 


CIT.4 








* 


05102 


00000 





01367 


TPOA 


PZE 


SL 










05103 


00000 





17401 




PZE 


OP 










05104 


00000 





01406 




PZE 


L(0) 










05105 


00000 





17402 




PZE 


RA 










05106 


1 00000 





05567 




TXI 


FINI»0 








* 














END OF 


PROGRAM 


EFT* 
















* * * * 


* * 


• * 


* * * 


* * 



PICKUP WEFOOO* AND 
?WN* BSP. 
SET OP. 

MOVE BINARY TAPE ADDRESS 
INTO CON* 

GET IFN INTO SL AND TL* 
RESET TPOA ADDRESS 
TO SL. 



4F12622 
4F12623 
4F12624 
4F12625 
4F12626 
4F12627 
4F12628 
4F 12629 



SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12630 
IF VARIABLE* ENTER FORVAR AND CITS.4F12631 



IF CONSTANT* ADJUST AND 

PLACE IN THE DECREMENT OF RA. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1— Of IFN) 000 OR 0(IFN)0(248) 

W0RD2— (WEF»REW»0R BSP)000 

W0RD3— 000000 

W0RD4 — 0( CON) 000 OR 000000 

GO RESET BXT* AND TEST FOR EFN. 

***************** 



05107 -0 50000 06116 RWN 



RWN/ USES*EFT. 

RWN PROCESSES REWIND TAPE STATEMENTS. 
CAL REW 



PICKUP REWOOO TO SET OP* AND 



4F12632 
4F12633 
4F12634 
4F12635 
4F12636 
4F12637 
4F12638 
4F12639 
4F12640 
♦4F12641 
4F 12642 
4F12643 
4F12644 
4F12645 



V 



05110 1 00000 05067 



* CONTINUE BY USING PROGRAM EFT. 



05111 


-0 


50000 





06111 


BSP 


CAL 


BST 


05112 


1 


00000 





05067 




TXI 


TPO.O 

END OF PROGRAM BSP. 
#*********- 

FOR/ CALLS*TETOO. 
FOR PROCESSES FORMAT 


05113 


-0 


50000 





00030 


FOR 


CAL 


EIFNO 


05114 





62100 





01366 




STA 


SET 


05115 


-0 


50000 





01366 




CAL 


SET 


05116 





60200 





01347 




SLW 


G 


05117 


-0 


53400 


1 


01724 




LXD 


CHCTR»1 


05120 


-0 


53400 


2 


01614 




LXD 


FWA»2 


05121 


-3 


00001 


1 


05137 




TXL 


NFFW.1.1 


05122 


1 


77777 


1 


05123 




TXI 


♦+1.1.-1 


05123 





56000 





01365 




LDQ 


RESIOU 


05124 


-0 


50000 





01526 




CAL 


BLANKS 


05125 


-0 


76300 





00006 


NFC 


LGL 


6 


05126 


2 


00001 


1 


05125 




TIX 


NFC.1.1 


05127 





60200 





01350 


NFW 


SLW 


G+l 


05130 





07400 


1 


03321 




TSX 


TETOOtl 


05131 





00000 





00012 




PZE 


10 


05132 


-0 


50000 


0. 01350 




CAL 


6+1 


05133 


-0 


32000 





01374 




ANA 


ENDMK 


05134 





40200 





01374 




SUB 


ENDMK 


05135 





10000 





03440 




T2E 


CA010 


05136 





60000 





01347 




STZ 


G 


05137 


-0 


50000 


2 


00000 


NFFW 


CAL 


0*2 


05140 


1 


77777 


2 


05127 




TXI 


NFW.2.-1 

END OF PROGRAM FOR. 
********** 



TXI TPO.O 

END OF PROGRAM RWN. 
****************************** 

BSP/ USES=EFT. 

BSP PROCESSES BACKSPACE TAPE STATEMENTS. 

PICKUP BSTOOO TO SET 0P» AND 
* CONTINUE BY USING PROGRAM EFT. 



STATEMENTS. 

MOVE EXTERNAL FORMULA NUMBER 

INTO THE ADDRESS OF SET. 

AND MOVE SET I8000(EFN>> 

INTO G. 

SET XR1 = CHARACTER COUNT. 

SET XR2 * -(CURRENT F-WORD ADDR J • 

UNLESS POSITIONED AT THE 

BEGINNING OF A FORMAT WORD» 

THEN PICKUP AND 

PRECEED WITH BLANKS ANY 

CHARACTERS 

REMAINING IN THE MQ» AND 

MOVE FORMAT WORDS INTO G+l. 

* GO ENTER THEN IN 
THE FORMAT TABLE. 
WHEN THE 

END OF STATEMENT MARK 
HAS BEEN ENTERED* 

* EXIT TO PROCESS NEXT STATEMENT. 
PRECEED ALL BUT 1ST ENTRY WITH 0. 
PICKUP NEXT FORMAT WORD. 

UPDATE SCAN INDEX. AND CONTINUE. 



********* 



*********** 



05141 -0 50000 05361 RSC 

05142 62100 01372 

05143 60000 17400 

05144 6GO00 01351 

05145 -0 50000 05204 LSC 

05146 62100 05156 CXS 

05147 53400 2 01414 NXS 



Sfc^^NS^^CHAR^TER IN A STATEMENT UNTIL EQUALITY IS 
FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN 
COMMON. THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF 
CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED INCEXIT. 
RSC « ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC. 

RESET TEMPORARY 
TABLE LINE COUNTER* 
CLEAR DO LEVEL COUNTER. 
CLEAR GENERALIZED TAG. 

ENTRY POINT FROM SPC. 

SET CONTROL TRANSFER 

ENTRY POINT FROM EQS. BEG. 

FOR LIST SCAN. 
ENTRY POINT FROM LPR. SPC. CMA. 

RESET SYMBOL CHARACTER COUNT 



CAL 


FLINE 


STA 


TLINE 


STZ 


DOLEV 


STZ 


6TAG 




LSC * 


CAL 


LISTR 




CXS » 


STA 


CEXIT 




NXS « 


LXA 


L(6)»2 



4F12646 
4F12647 

♦4F12648 
4F12649 
4F12650 
4F12651 
4F12652 
4F12653 
4F12654 

♦4F12655 
4F12656 
4F12657 
4F12658 
4F12659 
4F12660 
4F12661 
4F12662 
4F12663 
4F12664 
4F12665 
4F12666 
4F12667 
4F12668 
4F12669 
4F12670 
4F12671 
4F12672 
4F12673 
4F12674 
4F12675 
4F12676 
4F12677 
4F12678 
4F12679 
4F12680 
4F12681 
♦4F12682 
4F12683 
4F12684 
4F12685 
4F12686 
4F12687 
4F12688 
4F12689 
4F12690 
4F12691 
4F12692 
4F12693 
4F12694 
4F12695 
4F12696 
4F 12697 
4F 12698 
4F12699 



u 



u 



05150 


-0 


63400 2 


05637 




SXD 


CSJ*2 


05151 





60000 


17404 




STZ 


SYM 

NXC » ENT 


05152 





07400 4 


01707 


NXC 


TSX 


C0190»4 


05153 





53400 4 


02652 


CLOAD 


LXA 


CTESTX»4 


05154 





34000 4 


01406 


CCOMP 


CAS 


CTEST*4 


05155 


-3 


00000 


05160 




TXL 


BUILD»0 


05156 





02000 4 


00000 


CEXIT 


TRA 


***4 


05157 


2 


00001 4 


05154 




TIX 


CCOMP »4»1 


05160 


-0 


53400 4 


05637 


BUILD 


LXO 


CSJ»4 


05161 





60100 4 


17316 




STO 


CHRt4 


05162 


-2 


00001 4 


05167 




TNX 


LCT*4*1 


05163 





76700 2 


00044 




ALS 


36*2 


05164 


-0 


63400 4 


05637 


CSZ 


SXD 


CSJ»4 


05165 


-0 


60200 


17404 




ORS 


SYM 


05166 


1 


00006 2 


05152 




TXI 


NXC»2»6 


05167 


-3 


00044 2 


05171 


LCT 


TXL 


LCS»2>36 


05170 





07400 4 


03400 




TSX 


DIAG*4 


05171 


1 


77777 4 


05164 


LCS 


TXI 


CSZ*4»-1 



AND SHIFT COUNT. 4F12700 

CLEAR SYMBOL WORKING STORAGE* 4F12701 

ENTRY POINT FROM CMA. 4F12702 

* OBTAIN NEXT NB CHARACTER IN THE AC.4F12703 
SET XR4 TO PICK CONTROL CHARACTERS.4F12704 
COMPARE CHARACTER WITH CONSTANTS. 4F12705 
IF EQUALITY IS FOUND ON SOME 

* CONTROL CHAR* EXIT TO TRA LIST* 
CONTINUE THROUGH PUNCTUATION. 
BUILD A 
SYMBOL 
COMPOSED OF 

SIX OR LESS CHARACTERS. 
SAVE SYMBOL CHARACTER COUNT. 
ALSO* SAVE EACH 
CHARACTER SEPARATELY. 
GO TO DIAGNOSTIC IF 

* MORE THAN 6 CHARACTERS IN SYMBOL. 
ADJUST COUNT* AND CONTINUE SCAN. 



END OF PROGRAM RSC. 
************ 



****************** 



LISTR/ CONTROL TRANSFERS FOR LIST SCAN= 






05172 


1 00000 05547 


TXI EMK»0 


D 


05173 


1 00000 05205 


TXI LPR»0 





05174 


1 00000 05413 


TXI CMA»0 


D 


05175 


1 00000 05377 


TXI RPR.O 





05176 


1 00000 05261 


TXI EQS»0 


D 


05177 


1 00000 05200 


TXI ILC»0 




05200 


07400 4 03400 


ILC TSX DIAG»4 


D 


05201 


1 00000 05200 


TXI ILC»0 


D 


05202 


1 00000 05200 


TXI ILC»0 


D 


052Q3 


1 00000 05200 


TXI ILC»0 




05204 


00000 05204 


LISTR PZE LISTR 

* * * • 

LPR/ CA 
BSS. USI 
LPR « EJ 




05205 


-0 50000 17404 


LPR CAL SYM 




05206 


10000 05230 


TZE LPRD 




05207 


07400 4 05624 


TSX TYP»4 




05210 


02000 4 00003 


TRA 3»4 


D 


05211 


1 00000 05416 


TXI ERRC»0 




05212 


-0 50000 17404 


CAL SYM 




05213 


60200 01130 


SLW E+2 




05214 


60200 17403 


SLW SA 




05215 


07400 4 02614 


TSX SS000.4 




05216 


07400 4 02437 


TSX RA000.4 




05217 


07400 4 01707 


TSX C0190.4 




05220 


34000 01377 


CAS CLOS 




05221 


02000 05226 


TRA *+5 




05222 


02000 05224 


TRA *+2 




05223 


02000 05226 


TRA *+3 



ENDMARK 
C 

) 



* / 

+ 
* 



********* 



(ILLEGAL CHARACTER 

(ILLEGAL CHARACTER 

(ILLEGAL CHARACTER 

(ILLEGAL CHARACTER 

(ILLEGAL CHARACTER 
INDEXING ADDRESS FOR ABOVE LIST. 
***************** 



IN 
IN 
IN 
IN 

IN 



I/O LIST). 
I/O LIST). 
I/O LIST). 
I/O LIST). 
I/O LIST). 



LPR/ CALLS»TYP»SS000»RA000*C0190»TEST*.»LTMSW»CIT»JIF»DIAG» 
USESaCMAtRSC. 
ENTRY POINT TAKEN WHEN LPAREN IS MET IN LIST SCAN. 

TEST FOR SUBSCRIPT OR DO NEST. 
IF SUBSCRIPT* THEN 

* IF VARIABLE SYMBOL CONTAINS LESS 
THAN 6 CHARACTERS* ADD A BLANK. 

* ON CONSTANT RETURN* GO TO DIAG. 
MOVE SYMBOL 
INTO E+2* AND 
COMPILE SYMBOLIC ADDRESS. 

* GO SCAN AND PROCESS SUBSCRIPT. 

* THEN GO COMPUTE RELATIVE ADDRESS. 

* EXAMINE NEXT NON-BLANK CHARACTER 



4F12706 
4F12707 
4F12708 
4F12709 
4F12710 
4F12711 
4F12712 
4F12713 
4F12714 
4F12715 
4F12716 
4F12717 
4F12718 
4F12719 
♦4F12720 
4F12721 
4F12722 
4F12723 
4F12724 
4F12725 
4F12726 
4F12727 
4F12728 
4F12729 
4F12730 
4F12731 
4F12732 
4F12733 
♦4F12734 
4F12735 
4F12736 
4F12737 
4F12738 
4F12739 
4F12740 
4F12741 
4F12742 
4F12743 
4F12744 
4F12745 
4F 12746 
4F12747 
4F12748 
4F12749 
4F12750 
4F12751 
4F12752 
4F12753 



AX") 



05224 
05225 
05226 
05227 
05230 
05231 
05232 
05233 
05234 
05235 
05236 
05237 
05240 
05241 
05242 
05243 
05244 
05245 
05246 
05247 
05250 
05251 
05252 
05253 
05254 
05255 
05256 
05257 
05260 



05261 
05262 
05263 
05264 
05265 
05266 
05267 
05270 
05271 
05272 
05273 
05274 
05275 
05276 
05277 
053O0 
05301 
05302 
05303 
05304 



60000 
07400 
07400 
00000 
50000 
10000 
53400 
00000 
07400 
00000 
50000 
10000 
07400 
07400 
53400 
00001 
75400 
60200 
50000 
62100 
60100 
40000 
62100 
50200 
60100 
07400 
53400 
00003 
07400 



53400 
00000 
07400 
50000 
62100 
62100 
40000 
62100 
40000 
62100 
53400 
63400 
50000 
00044 
50000 
76700 
50100 
60200 
50000 
00000 



17400 

01707 

03247 

05421 

17400 LPRD 

05242 

17400 

05236 

05757 

05241 

01367 LPRf 

05241 

05674 

02372 LPR4 

17400 LPR3 

05244 

00000 LPR1 

17400 

01372 

05254 

17400 

01413 

01372 

01371 

00000 LPR2 

02372 

17400 

05147 

03400 



17400 EQS 

05264 

03400 

17400 EQS2 

05331 

05345 

01407 

05302 

01412 

05333 

01411 

05304 

17404 

05302 

01430 

00044 

17404 

00000 EQS1 

05317 

05146 NSJ 



ST2 
TSX 
TSX 
TXI 

CAL 
TZE 
LXA 
TXL 
TSX 
TXI 
CAL 
TZE 
TSX 
TSX 
LXD 
TXI 
PXO 
SLW 
CAL 
STA 
STO 
ADD 
STA 
CLS 
STO 
TSX 
LXD 
TXL 
TSX 



LXD 
TXH 
TSX 
CAL 
STA 
STA 
ADD 
STA 
ADD 
STA 
LXA 
SXD 
CAL 
TXH 
CAL 
ALS 
ORA 
SLW 
CAL 
TXI 



DOLEV 

C0190»4 

TESTA0*4 

CMA7»0 

DOLEV 

LPR3 

D0LEV#4 

LPRE»4»0 

LTMSW»4 

LPR4»0 

SL 

*+2 

BSS»2 

JIF*4 

D0LEV.4 

LPRl»4tl 

#4 

DOLEV 

TLINE 

LPR2 

D0LEV»4 

L(5) 

TLINE 

TL 

** 

JIF*4 

D0LEV*4 

NXS*4t3 

DIAG»4 

END OF 
• * * * 



PROGRAM 
* * * * 



LPR< 
* * 



* FOR EITHER COMMA OR ENDMARK. 

* AND CONTINUE BY USING PROGRAM CMA. 
IF THE BEGINNING OF A DO NEST* 
AND DOLEV IS NOT ZERO* THEN 

TEST FOR NULL FORMULA. 

IF NULL* GO ESTABLISH POSITION. 

* OTHERWISE* COMPILE LTM* AND 
AND GO JUMP IFN. 

IF CCSL) DO NOT = 0* 
THEN 

* GO C0MPILE= IFN BSS 0. 

* GO JUMP IFN» AND SET SL AND TL. 
INCREASE THE C(DOLEV D) 

BY h AND 

SET THE CCDOLEV A) 

TO ZERO. 

NOTE AT 

THIS LEVEL 

THE LOCATION IN TLDO 

OF THIS DO FORMULA 

AND INCREASE LINE IN TLINE. 

MOVE -t0(IFN)0f248>) INTO THE 

LOCATION WORD OF CURRENT TEMP DO. 

* GO JUMP IFN* AND SET SL AND TL. 
IF 3 OR FEWER LEVELS IN LIST DO* 

* RETURN TO LIST SCAN. 

* OTHERWISE* GO TO DIAGNOSTIC. 

******************** 



EQS/ CALLS*DIA6. 

EOS * ENTRY POINT 

D0LEV*4 

EQS 2*4*0 

DIAG*4 

D0LEV*4 

SPC2 

SPC5 

L(l) 

EQS1 

LC4) 

SPC3 

L(3)*4 

NSJ*4 

SYM 

EQS1*2»36 

BLANK 

36*2 

SYM 

** 

SPCTR 

CXS»0»** 



USES=RSC# 
WHEN EQUAL SIGN IS MET IN LIST CAN. 

TEST THE LEGALITY OF EQUAL SIGN* 
AND GO TO DIAG ON THE ATTEMPT TO 

* SPECIFY SUBSCRIPT RANGE WITHOUT (• 
INITIALIZE SPECIFICATION 

OF GENERATED DO FORMULA 

AT CURRENT LEVEL. 

PREPARE TO ENTER FORMULA NUMBERS 

IN LOCATION WORD .SUBSCRIPT IN 

SYMBOL WORD* AND SUBSCRIPT SPECS 

IN TEMPDO ENTRY. 

PREPARE TO COUNT THE 

NUMBER OF SPECIFICATIONS. 

OBTAIN SUBSCRIPT 

FOR THIS DO* AND 

STORE IN PROPER 

LINE OF TEMPORARY 

LIST DO TABLE. 

f SUBSCRIPT SYMBOL WORD) 

SET CONTROL LOOP FOR 

* EXIT TO SPECIFICATION. 



4F12754 
4F 12755 
4F12756 
4F12757 
4F12758 
4F12759 
4F12760 
4F12761 
4F12762 
4F12763 
4F12764 
4F12765 
4F12766 
4F12767 
4F12768 
4F12769 
4F12770 
4F12771 
4F12772 
4F12773 
4F12774 
4F12775 
4F12776 
4F12777 
4F12778 
4F12779 
4F12780 
4F12781 
4F12782 
4F12783 
♦4F12784 
4F12785 
4F12786 
4F12787 
4F12788 
4F12789 
4F12790 
4F12791 
4F12792 
4F12793 
4F12794 
4F12795 
4F12796 
4F12797 
4F12798 
4F12799 
4F12800 
4F12801 
4F12802 
4F12803 
4F12804 
4F12805 
4F12806 
4F12807 



1 



2< 



u 



u 



END OF PROGRAM EOS* 
***************** 



************* 





05305 





07400 


4 


03400 




05306 





07400 


4 


03400 





05307 


1 


00000 





05322 


D 


05310 


1 


00000 





05320 


D 


05311 


1 


00000 





05306 


D 


05312 


1 


00000 





05306 





05313 


1 


00000 





05306 


D 


05314 


1 


00000 





05306 


D 


05315 


1 


00000 





05306 


D 


05316 


1 


00000 





05306 




05317 





00000 





05317 



ICC 



05320 
05321 

05322 
05323 
05324 
05325 
05326 
05327 
05330 
05331 
05332 
05333 
05334 
05335 
05336 
05337 
©5340 
05341 
05342 
05343 
05344 

©5345 
©5346 
05347 
05350 
05351 
05352 
©5353 
05354 
05355 
©5356 
05357 
05360 



50000 
60100 



07400 
00000 
53400 
00000 
53400 
50000 
77100 
60200 
50000 
60200 
00001 
63400 
00000 
5000O 
00000 
50200 
60100 
50000 
77100 



62100 
53400 
00000 
07400 
07400 
53400 
77777 
75400 
60200 
00000 
50000 
62100 



05336 
05336 

05624 
05326 
05304 
05333 
05304 
01453 
00003 
00000 
17404 
00000 
05341 
05304 
05147 
01407 
05333 
05336 
05336 
00030 
00022 

00000 
17400 
05352 
05757 
02372 
17400 
05354 
00000 
17400 
05145 
01372 
05364 



SPCTR 

SPCX 
SPC 

SPCS 

SPC2 
SPC3 

SPC1 

SPC4 

SPC5 

SPCR 
SPC6 



TSX 
TSX 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
TXI 
P2E 



CAL 
STO 

TSX 
TXI 
LXD 
TXI 
LXD 
CAL 
ARS 
ORS 
CAL 
SLW 
TNX 
SXO 
TXL 
CAL 
TXI 
CLS 
STO 
CAL 
ARS 

STA 
LXA 
TXL 
TSX 
TSX 
LXD 
TXI 
PKD 
SLW 
TXH 
CLA 
STA 



SPCTR/ 

DIA6»4 

DIAG.4 

SPC»0 

SPCX.O 

ICC»0 

1CC»0 

ICC»0 

ICC.O 

ICC.O 

ICC.O 

SPCTR 

* * * 



CONTROL TRANSFERS FOR SPECIFICATION SCAN* 

* E (ILLEGAL IN CONTROL FOR LIST 

* { (ILLEGAL IN CONTROL FOR LIST 



DO) 
DO) 



********** 



IN CONTROL FOR LIST DO) 
IN CONTROL FOR LIST DO) 
IN CONTROL FOB LIST DO) 
IN CONTROL FOR LIST DO) 
IN CONTROL FOR LIST DO) 
IN CONTROL FOR LIST DO) 

INDEXING ADDRESS FOR ABOVE LIST. 

***************** 



(ILLEGAL 
( ILLEGAL 
( ILLEGAL 
( ILLEGAL 
(ILLEGAL 
(ILLEGAL 



SPC/ CALLS«TYP>LTMSW*JIF.TETOO. USES=RSC. 

SPCX « ENTRY POINT WHEN RPAREN IS MET IN SPECIFICATION SCAN. 
SPC1 PREPARE FOR END OF SPECIFICATION. 

SPC1 SET SPC1 OP-SWITCH TO NOP CASE. 

SPC « ENTRY POINT WHEN COMMA IS MET IN SPECIFICATION SCAN. 



TYP.4 

SPCS.O 

NSJ.4 

SPC3.0 

NSJ»4 

TAG4 

3»4 

** 

SYM 

**»4 

SPC4.4.1 

NSJ.4 

NXS.O 

L<1) 

SPC3.0 

SPC1 

SPC1 

EIFNO 

18 

SPC5 

** 

D0LEV.4 

SPCR.4.0 

LTMSWt4 

JIF.4 

D0LEVf4 

SPC6.4.-1 

t4 

DOLEV 

LSC.4.0 

TLINE 

SPC7 



GO TEST TYPE OF SUBSCRIPT SPEC. 

IF FIXED POINT CONSTANT* 

SET C(XR4) ■ SPECIFICATION COUNT* 

AND GO ENTER CONSTANT IN TABLE. 

OTHERWISE. SET SPEC COUNT AND 

IF VARIABLE. NOTE BY 

PLACING BIT IN TAG FIELD 

OF TABLE ENTRY. 

PICKUP VARIABLE SYMBOL AND 

ENTER N SUB J IN TABLE. 

REDUCE J. 

SAVE SPEC COUNT* AND 

* EXIT TO SCAN* IF SWITCH IS TXL. 
SET N SUB 3 * 1 IF NOT 
OTHERWISE SPECIFIED. 
RESTORE SPC1 EXIT. 
(3 SPECS HAVE BEEN TREATED) 
ALSO RESTORE INTERNAL FORMULA NO. 
(PUT BETA IN TEMPDO TABLE) 

ENTRY POINT USED BY RPR. 

SET BETA EQUAL TO IFNO. 

EXAMINE DOLEV ADDRESS FOR ZERO TO 

TEST NEED FOR LTM. J IF AFTER )• 

* GO COMPILE LTM. 

* GO JUMP I FN* AND SET SL AND TL. 
DECREASE DOLEV D 

BY It AND INDICATE A TREATED LEVEL 
IF NOT ZERO. 
THEN ALL LEVELS ARE NOT TREATED. 

* RETURN TO SCAN NEXT LEVEL. 
IF LEVEL IS ZERO 
ENTER GENERATED 



4F12808 

♦4F12809 

4F12810 

4F12811 

•4F12812 

•4F12813 

4F12814 

4F12815 

•4F12816 

•4F12817 

.4F12818 

•4F12819 

•4F12820 

•4F12821 

4F12822 

♦4F12823 

4F12824 

4F12825 

4F12826 

4F12827 

4F12828 

4F12829 

4F12830 

4F12831 

4F12832 

4F12833 

4F12834 

4F12835 

4F12836 

4F12837 

4F12838 

4F12839 

4F12840 

4F12841 

4F12842 

4F12843 

4F12844 

4F12845 

4F12846 

4F12847 

4F12848 

4F12849 

4F12850 

4F12851 

4F12852 

4F12853 

4F12854 

4F12855 

•4F12856 

4F12857 

4F12858 

4F12859 

4F12860 

4F12861 



V ) 



05361 


73400 


2 


17405 


FLINE 


PAX 


TLD0S»2 




05362 


1 60373 


2 


05363 




TXI 


*+l»2»-TLD0S 




05363 


53400 


4 


01413 


SPC9 


LXA 


L(55 »4 




05364 


50000 


2 


00000 


SPC7 


CLA 


**»2 




05365 


60100 


4 


01112 




STO 


K+5»4 




05366 


-2 00001 


2 


05370 




TNX 


SPC8.2.1 




05367 


2 00001 


4 


05364 




TIX 


SPC7»4tl 




05370 


53400 


4 


01105 


SPC8 


LXA 


1C»4 




05371 


-3 00000 


4 


05374 




TXL 


SPCT»4»0 




05372 


07400 


1 


03321 




TSX 


TET00*1 


* 


05373 


00000 





00001 




PZE 


1 




05374 


3 00001 


2 


05363 


SPCT 


TXH 


SPC9*2»1 




05375 


07400 


4 


02372 




TSX 


JIF»4 


* 


05376 


1 00000 





05141 


RESET 


TXI 


RSC»0 
END OF PROGRAM SPC. 


# 

* * 



DO FORMULAS IN TDO BY 

SUBROUTINE TET. 

(MOVE EACH 

TEMPDO TABLE ENTRY 

INTO 1C...1C+4* 

AND THEN 

WHEN DONE > 

TEST TO SKIP 

NULL DO* 

GO MAKE AN ENTRY 

IN TDO TABLELAND WHEN THE WHOLE 

DO NEST HAS BEEN ENTERED* 

GO JUMP I FN* AND SET SL AND TL. 

THEN EXIT TO CONTINUE LIST SCAN. 

****************** 



RPR/ CALLS=DIAG. USES=CMA»SPC. 

RPR = ENTRY POINT WHEN RPAREN IS MET IN LIST SCAN. 



05377 -0 

05400 3 

05401 

05402 -0 

05403 

05404 

05405 

05406 3 



53400 4 
00000 4 
07400 4 
50000 4 
62100 
50000 
62100 
00006 2 



17400 RPR 

05402 

03400 

17400 RPS 

05345 

05411 

05546 

05414 



05407 50000 05336 RPT 

05410 62100 05546 

05411 -0 75400 05407 RPA 

05412 1 00000 05345 



LXD 
TXH 
TSX 
CAL 
STA 
CLA 
STA 
TXH 

CLA 
STA 
PXD 
TXI 



D0LEV»4 

RPS»4*0 

DIAG»4 * 

D0LEV.4 

SPC5 

RPA 

CMA3 

CMA1»2»6 * 

RPT = REENTRY POINT USED BY CMA. 

SPC1 RESET CMA3 SWITCH 



TEST LEGALITY OF )• 

IF THERE ARE TOO MANY ) IN LIST* 

GO TO THE DIAGNOSTIC. 

NULLIFY DO AT CURRENT LEVEL. 

SET SPC5 ADDRESS* 

SET CMA3 SWITCH TO RETURN TO 

RPT* AND IF ANY CHARACTERS 

WERE COLLECTED* EXIT 1 TO CMA. 



CMA 3 

RPT»0 

SPC5»0 

END OF PROGRAM RPR. 
********** 



TO NXSr 

CLEAR THE AC* AND 
* CONTINUE BY USING PROGRAM SPC. 

******************** 



05413 


-3 


00006 


2 05152 


CMA 


TXL 


NXC»2*6 

CMA1 * ENTRY POINT 


USED 


05414 





07400 


4 05624 


CMA1 


TSX 


TYP*4 




05415 





02000 


& 00003 




TRA 


3*4 




05416 





07400 


4 03400 


ERRC 


TSX 


DIAG*4 




05417 


-0 


50000 


17404 




CAL 


SYM 




05420 





60200 


17403 


CMA4 


SLW 


SA 

CMA7 * ENTRY POINT 


USED 


05421 





53400 


4 17400 


CMA7 


LXA 


D0LEV»4 




05422 


3 


00000 


4 05424 




TXH 


CMA6»4»0 




05423 





07400 


4 05754 




TSX 


ETMSW*4 




05424 


-0 


50000 


17400 


CMA6 


CAL 


DOLEV 




05425 





40000 


01407 




ADD 


L(l) 




05426 





60100 


17400 




STO 


DOLEV 




05427 





50000 


01351 




CLA 


GTAG 




05430 





60100 


17402 




STO 


RA 





CMA/ CALLS=TYP»DIAG*ETMSW»DIM.SR»IFFIX»TETO0»DRTA8S»JIF»CIT* 

LTMSW. USES=RSC. 

CMA « ENTRY POINT WHEN COMMA IS MET IN LIST SCAN. 

* IF NOTHING COLLECTED* RETURN -SCAN 
BY EMK. 

* TYPE TEST FOR NON-SUBSCR. VAR. 
ILLEGAL USE OF CONSTANT IN LIST* 

* GO TO THE DIAGNOSTIC. 
MOVE VARIABLE SYMBOL 
INTO SA. AND 

BY LPR. 

IF DOLEV ADDRESS ■ 0* AND IF 
ETMSW IS SET TO TXH (NOP CASE)* 

* GO COMPILE ETM* AND CLEAR SL. 
IN ANY CASE* 
UPDATE DOLEV ADDRESS 
BY 1* AND THEN 
SET GENERALIZED TAG. 
(RELATIVE ADDRESS) 



4F12862 
4F12863 
4F12864 
4F12865 
4F12866 
4F12867 
4F12868 
4F12869 
4F12870 
4F12871 
4F12872 
4F12873 
4F12874 
4F12875 
4F12876 

*4F12877 
4F12878 
4F12879 
4F12880 
4F12881 
4F12882 
4F12883 
4F12884 
4F12885 
4F12886 
4F12887 
4F12888 
4F12889 
4F12890 
4F12891 
4F12892 
4F12893 
4F12894 

♦4F12895 
4F12896 
4F12897 
4F12898 
4F12899 

•4F12900 
4F12901 
4F12902 
4F12903 
4F12904 
4F12905 
4F12906 
4F12907 
4F12908 
4F12909 
4F12910 
4F12911 
4F12912 
4F12913 
4F12914 
4F12915 



V> 



u 



u 





05431 


10000 





05436 






05432 


50000 





01147 






05433 


-0 10000 





05537 






05434 


62100 





17402 







05435 


1 00000 





05537 






05436 


-0 50000 





17403 


DIMSR 




05437 


60200 





01130 






05440 


07400 


4 


01771 


RD1 





05441 


1 00000 





05444 






05442 


50000 





01101 


CS1 


D 


05443 


1 00000 





05467 






05444 


O7400 


4 


01775 


R02 


D 


05445 


1 00000 





05455 






05446 


56000 





01101 


CS2 




05447 


60000 





01361 






05450 


-0 62000 





01361 






05451 


-0 76300 





00022 






05452 


20000 





01361 






05453 


77100 





00001 







05454 


1 00000 





05467 






05455 


07400 


4 


02005 


RD3 


D 


05456 


1 00000 





05533 






05457 


56000 





01101 


CS3 




05460 


60000 





01361 






05461 


-0 62000 





01361 






05462 


-0 76300 





00022 






05463 


20000 





01361 






05464 


76500 





00022 






05465 


20000 





01102 






05466 


76300 





00021 






05467 


40200 





01407 


DVS 




05470 


10000 





05533 






05471 


76700 





00022 






05472 


60100 





01347 






05473 


07400 


4 


00417 






05474 


76700 





00022 






05475 


62200 





01364 






05476 


07400 


4 


02372 






05477 


07400 


4 


01731 






05500 


00000 





01367 






05501 


00000 





01561 






05502 


00000 





01501 






05503 


00000 





01364 






05504 


07400 


4 


02372 






05505 


07400 


4 


05754 






05506 


07400 


4 


01731 






05507 


00000 





01367 






05510 


ooooo 





17401 






05511 


00000 





17403 






05512 


ooooo 





01416 






05513 


60000 





01367 






05514 


07400 


4 


05757 






05515 


07400 


4 


02375 






05516 


07400 


4 


01731 





TZE DIMSR 

CLA EPS 

TN2 CMA5 

STA RA 

TXI CMA5t0 

CAL SA 

SLW E+2 

TSX DIM1SR*4 

TXI RD2»0 

CLA D12 

TXI DVS*0 

TSX DIM2SR»4 

TXI R03»0 

LDQ 012 

STZ N2 

SLQ N2 

LGL 18 

MPY N2 

ARS 1 

TXI DVS*0 

TSX DIM3SR»4 

TXI NODIM»0 

LDQ 012 

STZ N2 

SLQ N2 

LGL 18 

MPY N2 

LRS 18 

MPY D3 

LLS 17 

SUB LCD 

TZE NODIM 

ALS 18 

STO G 

TSX FXCNIX.4 

ALS 18 

STD RAT 

TSX JIF»4 

TSX CITt4 

PZE SL 

PZE LXO 

PZE 2P 

PZE RAT 

TSX JIF.4 

TSX ETMSW#4 

TSX CIT»4 

PZE SL 

PZE OP 

PZE SA 

PZE ST 

STZ SL 

TSX LTMSW*4 

TSX GIF*4 

TSX CIT*4 



IF THIS VARIABLE HAS A SUBSCRIPT* 

AND IF SUBSCRIPT 

IS A CONSTANT* 

THEN CLEAR THE ADDRESS OF RA. 

THEN GO MAKE CIT ENTRY. 

IF THIS VARIABLE 

DOES NOT HAVE A SUBSCRIPT* THEN 

GO SEARCH DIM1 TABLE. 

IF FOUND* THEN 

PICKUP DIMENSION 1 

AND GO TEST SIZE. OTHERWISE* 

GO SEARCH DIM2 TABLE. 

AND IF FOUND* 

PICKUP 

DIMENSION 1 AND 

DIMENSION 2 

AND MULTIPLY 

THEM TOGETHER. 

THEN 

60 TEST THE PRODUCT. OTHERWISE* 

GO SEARCH DIM3 TABLE. 

AND IF FOUND* 

PICKUP 

DIMENSION 1* 

DIMENSION 2* 

AND DIMENSION 3. 

MULTIPLY 

THEM TOGETHER* 

AND IF 

THEIR 

PRODUCT IS 

GREATER THAN 1* THEN 

PLACE D I MENS I ON- 1 IN THE 

DECREMENT OF G» AND 

GO ENTER IN FIXCON* AND GET TAG. 

ADJUST* AND STORE TAG IN THE 

DECREMENT OF RAT. THEN 

GO JUMP I FN* AND SET SL AND TL. 

60 MAKE THE FOLLOWING CIT ENTRY* 

W0RD1— OUFN)0C0 

W0RD2 — LXDOOO 

W0RD3— 200000 

W0RD4~0( FIXCON TAG) 008 

60 JUMP I FN* AND SET SL AND TL. 

IF ETMSW » NOP* COMPILE ETM* SL*0. 

60 MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — Oil FN) 000 OR 000000 

W0RD2 — (OPERATION CODE) 

H0RD3 — {SYMBOLIC ADDRESS) 

W0RD4 — 000008 

CLEAR SL* AND 

IF LTMSW * NOP* COMPILE LTM. SL=0. 

GET IFN IN SL AND TL. 

60 MAKE THE FOLLOWING CIT ENTRY* 



4F12916 

4F12917 

4F12918 

4F12919 

4F12920 

4F12921 

4F12922 

4F12923 

4F12924 

4F12925 

4F12926 

4F12927 

4F12928 

4F12929 

4F12930 

4F12931 

4F12932 

4F12933 

4F12934 

4F12935 

4F12936 

4F12937 

4F12938 

4F12939 

4F12940 

4F12941 

4F12942 

4F12943 

4F12944 

4F12945 

4F 12946 

4F12947 

4F12948 

4F12949 

4F12950 

4F12951 

4F12952 

4F12953 

4F12954 

4F12955 

4F12956 

4F12957 

4F12958 

4F12959 

4F12960 

4F12961 

4F12962 

4F12963 

4F12964 

4F12965 

4F12966 

4F12967 

4F12968 

4F12969 



7^ 





05517 





00000 





01406 




PZE 


L(0) 




05520 





00000 





01576 




PZE 


TIX 




05521 





00000 





01367 




PZE 


SL 




05522 





00000 





01416 




PZE 


ST 




05523 





60000 





01367 




STZ 


SL 




05524 





07400 


4 


05754 




TSX 


ETMSW»4 * 




05525 





07400 


4 


01731 




TSX 


CIT»4 * 




05526 





00000 





01406 




PZE 


L(Q) 




05527 





00000 





01546 




PZE 


DEO 




05530 





00000 





01406 




PZE 


L<0) 




05531 





00000 





01416 




PZE 


ST 





05532 


1 


00000 





05537 




TXI 


CMA5*0 




05533 





07400 


1 


05773 


NODIM 


TSX 


IFFIX.l * 


D 


05534 


1 


00000 





05537 




TXI 


CMA5»0 




05535 





07400 


1 


03321 




TSX 


TETOOtl * 




05536 





00000 





00000 


INOUT 


PZE 


#* 




05537 





07400 


4 


01731 


CMA5 


TSX 


CIT»4 * 




05540 





00000 





01367 




PZE 


SL 




05541 





00000 





17401 




PZE 


OP 




05542 





00000 





17403 




PZE 


SA 




05543 





00000 





17402 




PZE 


RA 




05544 





60000 





01367 




STZ 


SL 




05545 





60000 





01351 




STZ 


GTAG 


D 


05546 


1 


00000 





05147 


CMA3 


TXI 


J^XStQ * 

END OF PROGRAM CMA. 
************* 

EMK/ CALLSsDlAG»LTMSW»JIF 
EMK « ENTRY POINT WHEN AN 




05547 


3 


00006 


2 


05414 


EMK 


TXH 


CMA1»2»6 * 




05550 


-0 


53400 


4 


17400 




LXO 


D0L£V*4 




05551 


-3 


00000 


4 


05553 




TXL 


FIN»4»0 




05552 





07400 


4 


03400 




TSX 


DIAG*4 * 




05553 





07400 


4 


05757 


FIN 


TSX 


LTMSW»4 * 




05554 





07400 


4 


02372 




TSX 


JIF»4 * 
LAST * ENTRY POINT SET BY 




05555 





07400 


4 


01731 


LAST 


TSX 


CIT*4 * 




05556 





00000 





01367 




PZE 


SL 




05557 





00000 





01537 




PZE 


CAL 




05560 





00000 





01510 




PZE 


15P 




05561 





00000 





01406 




PZE 


L(0) 




05562 





07400 


4 


06023 




TSX 


LIB»4 * 




05563 





00000 





01406 




PZE 


L(0) 




05564 





00000 





06125 




PZE 


XIT 




05565 





00000 





06141 




PZE 


END 




05566 





ocooo 





01406 




PZE 


LCO) 

FINI « ENTRY POINT USED B 




05567 





50000 





05376 


FINI 


CLA 


RESET 




05570 





62100 





04744 




ST A 


BXT 




05571 





50000 





01151 




CLA 


F-l 




05572 





40200 





01477 




SUB 


5BLANS 




05573 





10000 





03440 




TZE 


CA010 * 




05574 


-0 


50000 





01520 




CAL 


MINUSO 




05575 


-0 


60200 





00030 




ORS 


EIFNO 



W0RD1 — 000000 

W0RD2— TIX001 

W0RD3— 0(IFN)0OO 

W0RD4— 000008 

CLEAR SL* AND 

IF ETMSW a NOP* COMPILE ETM* SL=0* 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — 000000 

W0RD2 — DEOOOO 

W0RD3— 000000 

W0RD4— 000008 

IF THE PRODUCT OF DIMENSIONS IS 

LESS THAN 2* TEST TYPE OF VARIABLE 

AND IF FIXED POINT* 

GO ENTER VARIABLE IN 

EITHER FORVAL OR FORVAR TABLE* 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0(IFN)000 OR 000000 

W0RD2 — NTROOO OR CPYOOO 

W0RD3 — (SYMBOL) 

W0RD4 — {RELATIVE ADDRESS) 

CLEAR SL* AND 

CLEAR GTAG* THEN TAKE EXIT 

SWITCH TO RPT OR NXS. 

***************** 

>CIT*LIB»TET00. USES=CMA« 

ENDMARK IS MET IN LIST SCAN. 

IF NO CHARACTERS REMAIN* THEN 

CHECK THE NUMBER OF PARENTHESES* 

IF THERE ARE TOO MANY LPARENS* 

GO TO THE DIAGNOSTIC* OTHERWISE* 

IF LTMSW ■ NOP* COMPILE LTM* SL=0. 

GO JUMP IFN* AND SET SL AND TL* 

BXT SWITCH* 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0( IFN) 000 

W0RD2 — CALOOO 

W0RD3— *00000 

W0RD4 — 000000 

MAKE CLOSUB ENTRY* AND COMPILE* 

W0RD1 — 000000 

W0RD2— XITOOO 

W0RD3— tRTN) OR (FID 

W0RD4— 000000 
Y EFT. 

RESET BXT SWITCH 

TO RSC* 

TEST FOR AN EXTERNAL 

STATEMENT NUMBER* AND IF NONE* 

EXIT TO PROCESS NEXT STATEMENT. 

OTHERWISE* SET THE SIGN 

OF EIFNO TO MINUS* AND 



4F12970 
4F12971 
4F12972 
4F12973 
4F12974 
4F12975 
4F12976 
4F12977 
4F12978 
4F 12979 
4F12980 
4F12981 

•4F12982 
4F12983 
4F12984 
4F12985 
4F12986 
4F12987 
4F12988 
4F12989 
4F12990 
4F12991 
4F12992 
4F12993 
4F12994 

♦4F12995 
4F12996 
4F12997 
4F12998 
4F12999 
4F13000 
4F13001 
4F13002 
4F13003 
4F13004 
4F13005 
4F13006 
4F13007 
4F13008 
4F13009 
4F13010 
4F13011 
4F13012 
4F13013 
4F13014 
4F13015 
4F13016 
4F13017 
4F13018 
4F13019 
4F13020 
4F13021 
4F13022 
4F13023 



o 



(J 



r\. 





05576 


07400 1 03321 




TSX TET00*1 * 60 ENTER -{ EIFNO) 






4F13024 




05577 


00000 00000 




PZE IN THE TEIFNO TABLE* 






4F13025 




05600 


-0 5O000 00030 




CAL EIFNO THEN RESTORE 






4F13026 




05601 


60100 00030 




STO EIFNO EIFNO* AND 






4F13027 


D 


05602 


1 00000 03440 




TXI CA010.0 * EXIT TO PROCESS NEXT STATEMENT. 


4F13028 










END OF PROGRAM EMK. 






4F 13029 










************************* 


* * 


* * * 


•4F13030 
4F13031 










STATEA/4-SUBROUTINES USED BY STATE A* 






4F13032 










************************* 


* * 


* * * 


* 
4F13033 










BEG(TYP)*4/ CALLS*DIAG* USES RSC. 






4F13034 










BEG « ENTRY POINT USED BY RDC»RIT*W0T*EFT. 






4F13035 




05603 


-0 63400 4 05605 


BEG 


SXD BEX*4 SAVE CCXR4) FOR RETURN* 






4F13036 




05604 


-0 50000 05620 




CAL BEGTR SET CONTROL TRANSFER 






4F13037 




05605 


1 00000 05146 


BEX 


TXI CXS*0**» * AND GO EXECUTE BEGINNING SCAN* 


4F13038 










************************* 


* * 


* * * 


♦4F13039 
4F13040 










BEGTR/ CONTROL TRANSFERS FOR BEGINNING SCAN= 






4F13041 


D 


05606 


1 00000 05621 




TXI NLS»0 * ENDMARK (NO LIST SCAN) 






4F13042 




05607 


07400 4 03400 


IBC 


TSX DIAG»4 * ( (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13043 


D 


05610 


1 00000 05623 




TXI CMBtO * f 






4F13044 





05611 


1 00000 05607 




TXI IBC»0 ) (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13045 





05612 


1 00000 05607 




TXI IBC»0 « (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13046 


D 


05613 


1 00000 05607 




TXI IBC»0 - {ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13047 


D 


05614 


1 00000 05607 




TXI IBC»0 / (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13048 


D 


05615 


1 00000 05607 




TXI IBC#0 • (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13049 





05616 


1 00000 05607 




TXI IBC»0 + (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13050 


D 


05617 


1 00000 05607 




TXI IBC»0 * (ILLEGAL CHARACTER IN 


I/O 


SETUP) 


•4F13051 




05620 


00000 05620 


BEGTR 


PZE BEGTR INDEXING ADDRESS FOR ABOVE LIST. 


4F13052 










******** * * *************** 


* * 


• * * 


♦4F13053 
4F13054 










NLS * ENTRY POINT WHEN AN ENDMARK IS MET IN BEGINNING 


SCAN. 


4F13055 




05621 


50000 06105 


NLS 


CLA NLA IF ENDMARK IS MET* 






4F13056 




05622 


62100 04744 




STA BXT SET BXT SWITCH TO LAST. 






4F13057 










CMB » ENTRY POINT WHEN A COMMA IS MET IN BEGINNING 


SCAN. 


4F13058 




05623 


-0 53400 4 05605 


CMB 


LXD BEX #4 RESTORE THE C(XR4). AND 
TYP « ENTRY POINT USED BY LPR*SPC*CMA. 






4F13059 
4F13060 




05624 


50000 17310 


TYP 


CLA CHR-6 TEST FIRST CHARACTER 






4F13061 




05625 


40200 01404 




SUB PLUS FOR VARIABLE 






4F13062 




05626 • 


-0 12000 05634 




TMI ABS OR CONSTANT* 






4F13063 




05627 


3 00044 2 05633 




TXH SMB*2*36 IF VARIABLE* 






4F 13064 




05630 • 


-0 50000 01430 




CAL BLANK ADD A BLANK 






4F13065 




05631 


76700 2 00044 




ALS 36.2 IF SYMBOL CONTAINS 






4F13066 




05632 -0 60200 17404 




ORS SYM LESS THAN 6 CHARACTERS* 


AND 




4F13067 




05633 


02000 4 00001 


SMB 


TRA 1*4 * TAKE VARIABLE EXIT TO CALLER 


• 


4F13068 




05634 


53400 2 01413 


ABS 


LXA L(5)*2 IF CONSTANT* 






4F13069 




05635 


50000 2 17315 




CLA CHR-1*2 THEN 






4F13070 




05636 


60100 17307 




STO BIN CONVERT 






4F13071 




05637 • 


-3 00000 2 05645 


CSJ 


TXL INT*2*** BCD 






4F13072 




05640 


76700 00002 




ALS 2 DIGITS 






4F13073 




05641 


40000 17307 




ADD BIN TO THEIR 






4F13074 




05642 


76700 00001 




ALS 1 BINARY 






4F13075 



7?? 



05643 40000 2 17316 

05644 1 77777 2 05636 

05645 02000 4 00002 



INT 



05646 
05647 
05650 
05651 
05652 
05653 
05654 
05655 
05656 
05657 
05660 
05661 
05662 
05663 
05664 
05665 
05666 
05667 
05670 
05671 
05672 
05673 



63400 
60200 
07400 
07400 
07400 
76700 
60100 
07400 
00000 
00000 
00000 
00000 
50000 
60200 
50000 
63000 
63000 
50000 
60200 
60000 
53400 
02000 



06054 BRW 

06140 

02372 

05603 

06032 

00022 

17402 

01731 

01371 

17401 

01406 

17402 

01544 

17401 

00415 

05754 

05757 

06133 

06141 

01367 

06054 

00001 



05674 07400 4 01731 BSS 

05675 00000 01367 

05676 00000 01536 

05677 00000 01406 

05700 00000 01406 

05701 02000 2 00001 



ADD 
TXI 

TRA 



SXD 
SLW 
TSX 
TSX 
TSX 
ALS 
STO 
TSX 
PZE 
PZE 
PZE 
PZE 
CAL 
SLW 
CAL 
STP 
STP 
CAL 
SLW 
STZ 
LXD 
TRA 



CHR»2 EQUIVALENT* 

CSJ-1»2»«1 AND WHEN DONE* 

2,4 * TAKE CONSTANT EXIT TO CALLER. 

END OF PROGRAM BEG(TYP). 
* * * ************************** 



BRW*4/ CALLS=JI 

XRW*4 

CON 

JIF.4 

BEG»4 

VRA»4 

18 

RA 

CIT»4 

TL 

OP 

L(0) 

RA 

CPY 

OP 

TXLOP 

ETMSW 

LTMSW 

RTN 

END 

SL 

XRW*4 

1*4 

END OF PROGRAM 
******** 



F»BEG»VRA»CIT. CALLERS=WBT*RBT.WRD. 
SAVE THE C(XRM» AND 
SET CON s OR »*144 OR »*192. 

* GO JUMP IFN» AND SET SL AND TL. 

* GO SCAN AND TEST TYPE OF SYMBOL. 

* IF VARIABLE* ENTER FORVAR AND CI 
IF CONSTANT* ADJUST CONVERTED 
NUMBER* AND SET RA. 

* GO MAKE THE FOLLOWING CIT ENTRY* 
WQRD1— O(IFN) 0(248) 

W0RD2— CWTB*RBT*WRD*RDD)000 

W0RD3 — 000000 

W0RD4 — 000000 OR (UNIT) 000 

MOVE CPYOOO 

INTO OP. 

SET OP-SWITCHES* 

ETMSW AND LTMSW* 

TO THE TRA CASE. 

MOVE (RTN) 

INTO END. 

CLEAR SL* 

RESTORE THE C(XR4)» AND 

* EXIT TO CALLER. 



BRW< 
* * 



******************* 



BSS*2/ CALLS=CITOO. CALLERS=LPR*C1600. 



TSX 

PZE 
PZE 
PZE 
PZE 
TRA 



BSS COMPILES* IFN BSS 0. 

CIT00*4 

SL 

L(BSS) 

L(0) 

L(0) 

1*2 

END OF PROGRAM BSS. 
********** 



GO MAKE FOLLOWING CIT ENTRY* 
W0RD1 — 0( IFN) 000 
WORD2— BSSOOO 
W0RD3 — 000000 
W0RD4 — 000000 
* EXIT TO CALLER+1. 

******************* 



05702 





53400 


2 


01413 


CA100 


LXA 


05703 


-0 


63400 


2 


01112 




SXD 


05704 


-0 


76000 





00012 




RTT 


05705 





76100 





00000 




NOP 


05706 





76200 





00202 


CA101 


RDS 


05707 





53400 


2 


01420 




LXA 


05710 





70000 


2 


01347 


CA102 


CPY 


05711 





02000 





05721 




TRA 



CA100»4/ CALLS=DIA6. CALLER*CA0O0. 

CA100 READS NEXT SOURCE PROGRAM CARD (1 TAPE RECORD)* 

TERC>2 PREPARE TO COUNT 

1G,2 TAPE READING ERRORS. 

TURN OFF TAPE CHECK INDICATOR. 

PROCEED TO NEXT INSTRUCTION. 
130 SELECT SOURCE TAPE FOR READING. 

L (12),2 INITIALIZE INDEX B FOR 12 CYCLES 

COPY LOOP. 
FT+12»2 COPY INTO FT REGION 

CA103 NEXT SOURCE PROGRAM CARD. 



4F13076 
4F13077 
4F13078 
4F13079 

* *4F13080 

4F13081 
4F13082 
4F13083 
4F13084 
4F13085 
4F13086 
TS.4F13087 
4F13088 
4F13089 
4F13090 
4F13091 
4F13092 
4F13093 
4F13094 
4F13095 
4F13096 
4F13097 
4F13098 
4F13099 
4F13100 
4F13101 
4F13102 
4F13103 
4F13104 
4F13105 

* *4F13106 

4F13107 
4F13108 
4F13109 
4F13110 
4F13111 
4F13112 
4F13113 
4F13114 
4F13115 
4F13116 

* *4F13117 

4F13118 
4F13119 
4F13120 
4F13121 
4F13122 
4F13123 
4F13124 
4F13125 
0F4F13126 
4F13127 
4F13128 
4F13129 



■?«/ 



u 



u 



05712 


02000 05740 




TRA CA120 




05713 


-0 53400 2 01112 


CA130 


LXD 1G»2 




05714 


2 00001 2 05716 




TIX CA131.2.1 




05715 


07400 4 03400 




TSX DIAG.4 




05716 


-0 63400 2 01112 


CA131 


SXD 1G.2 




05717 


76400 00202 




BST 130 




05720 


02000 05706 




TRA CA101 




05721 


2 00001 2 05710 


CA103 


TIX CA102»2«1 




05722 


76600 00333 




100 




05723 


-0 76000 00012 




RTT 




05724 


1 00000 05713 




TXI CA130.0 




05725 


53400 2 01420 




LXA L(12)»2 




05726 


50000 01526 


CA112 


CLA BLANKS 




05727 


40200 2 01347 




SUB FT+12.2 




05730 


-0 10000 05733 




TNZ CA113 




05731 


2 00001 2 05726 




TIX CA112.2.1 




05732 


02000 05702 




TRA CA100 




05733 


-0 50000 01333 


CA113 


CAL FT 




05734 


77100 00036 




ARS 30 




05735 


40200 01421 




SUB L(C) 


. 


05736 


10000 05702 




T2E CA100 




05737 


02000 4 00001 




TRA 1.4 




05740 


60000 01333 


CA120 


ST2 FT 




05741 


-0 63400 02575 




SXO ENDWRO»0 




05742 


02000 4 00001 




TRA 1»4 

END OF PROGRAM 

******** 


CA100. 
* * * * 








CC500»4/ CALLER*CCOO0. 








CC500 BRINGS NEXT CHARA 


05743 


-0 75400 00000 


CC500 


PXD »0 




05744 


2 00001 2 05752 




TIX CC502.2.1 




05745 


-0 53400 2 01113 




LXD 2G»2 




05746 


56000 2 06145 




LDQ D1C #2 




05747 


1 77777 2 05750 




TXI CC501.2.-1 




05750 


-0 63400 2 01113 


CC501 


SXD 2G»2 




05751 


53400 2 01414 




LXA LC6J.2 




05752 


-0 76300 00006 


CC502 


LGL 6 




05753 


02000 4 00001 




TRA 1»4 

END OF PROGRAM 

******** 


CC500. 
* * * * 



END OF FILE* GO FINISH LAST STATEM.4F13130 

TEST TAPE ERROR COUNTER 4F13131 

BY TRYING TO REDUCE BY 1. 4F13132 

FAILED 5 TIMES IN READING TAPE 2. 4F13133 

SAVE REDUCED VALUE IN COUNTER. 4F13134 

BACKSPACE FORMULA TAPE» 4F13135 

AND GO BACK TO READ AGAIN. 4F13136 

TEST EXIT FROM LOOP. 4F13137 

DELAY UNTIL TAPE DISCONNECTS. 4F13138 

CHECK READING OF TAPE. 4F13139 

IF INCORRECT. GO CHECK ERROR C0UNT.4F13140 

PREPARE TO SCAN 12 WORDS OF CARD. 4F13141 

TEST 

FOR 

BLANK 

CARD. 

IF BLANK. GO TO READ NEXT CARD. 

IF NOT BLANK. 

EXAMINE FIRST 

CHARACTER TO 

TEST FOR COMMENT CARD. 

EXIT IF NEITHER BLANK NOR COMMENT. 

INDICATE THAT FINAL 

STATEMENT HAS BEEN READ IN. 

EXIT TO MAIN ROUTINE TO FINISH. 



05754 -3 00000 05772 ETMSW 

05755 -0 50000 06112 

05756 1 00000 05761 XR4X 

05757 -3 00000 05772 LTMSW 

05760 -0 50000 06113 

05761 60200 06142 SETOP 

05762 -0 63400 4 05756 

05763 07400 4 01731 

05764 00000 01367 



****************** 



CLEAR THE AC* 

IF NO DICTIONARY CHARACTERS 
REMAIN IN THE MQ» THEN 
REFILL WITH NEXT DICTIONARY WORD. 
RESET THE 

DICTIONARY WORD TAG» AND 
SET THE CHARACTER COUNT =6. 
SHIFT CHAR INTO AC { 30-35 )> 
* AND RETURN TO CALLER. 

****************** 



ETMSWILTMSW)*4/ CALLS*CIT. CALLERS*RDC»LPR»SPC»CMA»EMK. 

ETMSW * ENTRY POINT USED BY RDCtCMA. 
TXL NOTTM.O SWITCH (TXL*TRA. TXH«N0P>. 

CAL ETM PICKUP ETMOOOt AND 

TXI SETOP.O.** GO SET OP. 

LTMSW « ENTRY POINT USED BY LPR.SPC.CMA.EMK. 



TXL NOTTM.O 
CAL LTM 
SLW TOP 
SXD XR4X.4 
TSX CIT.4 
P2E SL 



SWITCH CTXL*TRA. TXH*NOP U 

PICKUP LTMOOO* AND 

SET TOP. 

SAVE THE C(XR4)r AND 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1— 0(IFN)O00 



4F13142 
4F13143 
4F13144 
4F13145 
4F13146 
4F13147 
4F13148 
4F13149 
4F13150 
4F13151 
4F13152 
4F13153 
4F13154 
4F13155 

♦4F13156 
4F13157 
4F13158 
4F13159 
4F13160 
4F13161 
4F13162 
4F13163 
4F13164 
4F13165 
4F13166 
4F13167 
4F13168 
4F13169 

*4F13170 
4F13171 
4F13172 
4F13173 
4F13174 
4F13175 
4F13176 
4F13177 
4F13178 
4F13179 
4F13180 
4F13181 
4F13182 
4F13183 



7 ? 



TD 



05765 
05766 
05767 
05770 
05771 
05772 



05773 
05774 
05775 
05776 
05777 
06000 
06001 



00000 
00000 
00000 
60000 
53400 
02000 



06142 
01406 
01406 
01367 
05756 
00001 NOTTM 



P2E 
PZE 
PZE 
STZ 
LXD 
TRA 



TOP 

L(0) 

L(0) 

SL 

XR4X»4 

1*4 



W0RD2 — ETMOOO OR LTMOOO 
W0RD3— 000000 
W0RD4 — 000000 
CLEAR. SL* 

RESTORE THE C(XR4)» AND 
* EXIT TO CALLER. 



END OF PROGRAM ETMSWC LTMSW >. 
*************** 



*************** 



IFFIXtl/ USES=TESTFX. CALLERS=CMA»VRA< VRD) • 



-0 50000 00030 IFFIX 



60000 

62200 

•0 50000 

6020O 
■0 50000 

1 00000 



01347 
01347 
17404 
01350 
17310 
03242 



CAL EIFNO 

STZ G 

STD G 

CAL SYM 

SLW G+l 

CAL CHR-6 

TXI TESTFX+1»0 

END OF PROGRAM 
******** 



SET 

G TO 

(OUFN)OOOW 

MOVE SYMBOL 

INTO G+l. 

PICKUP 1ST CHARACTER OF SYMBOL* 



4F13184 
4F13185 
4F13186 
4F13187 
4F13188 
4F13189 
4F13190 
♦4F13191 
4F13192 
4F13193 
4F13194 
4F13195 
4F13196 
4F13197 
4F13198 
AND4F13199 



IFFIX. 

* * * * 



* GO TEST FOR FIXED OR FLOATING PT. 



****************** 



06002 
06003 

Q6004 
06005 
06006 
06007 
06010 
06011 
06012 
06013 
06014 
06015 
06016 
06017 
06020 
06021 
06022 



06023 
06024 
06025 
06026 
06027 
06030 
06031 



50000 01414 INPUT 

1 00000 06005 

50000 01413 OUTPUT 

60100 05536 

07400 4 02375 

07400 4 01731 

00000 01367 

00000 01537 

00000 01510 

00000 01406 

07400 4 06023 

00000 01406 

00000 06125 

00000 06132 

00000 01406 

60000 01367 

02000 2 00001 



INPUT(OUTPUT) »2/ CALLS=GIF»CI T *LIB. 

CALLERSaRDC>RIT»RDP»WOT»PDC»WBT>RBT«WRD»RDD. 

INPUT » ENTRY POINT USED BY RDC»RIT»RBT»RDD. 
CLA L(6) PICKUP 6 TO 

TXI OUTPUT+1 GO SET INOUT FOR FORVAL ENTRY. 

OUTPUT s ENTRY POINT USED BY RDP*W0T*PDC »WBT*WRD. 



CLA L(5) 

STO INOUT 

TSX GIF»4 * 

TSX CIT*4 * 

P2E SL 

PZE CAL 

PZE 15P 

PZE L<0) 

TSX LIB»4 * 

PZE L(0) 

PZE XIT 

PZE LEV 

PZE L(0) 

STZ SL 

TRA 1*2 * 

END OF PROGRAM INPUTtOUTPUT ) • 
***************** 



PICKUP 5 TO 

SET INOUT FOR FORVAR ENTRY. 

SET SL * IFN*O00. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0(IFN)OO0 

W0RD2 — CAL 000 

WQRD3 — *00000 

W0RD4 — 000000 

MAKE CLOSUB ENTRY# AND COMPILE* 

WORD 1*— 000000 

W0RD2 — XITOOO 

W0RD3 — (LEV) 

W0RD4 — 000000 

CLEAR SL* AND 

EXIT TO CALLER. 



************* 



-0 50000 4 00003 LIB 
62100 06025 

-0 50000 00000 LIC 
60200 01347 
07400 1 03321 

00000 00011 

1 00000 01731 



LIB*1/ CALLS»TETOO#CIT. 
CAL 3*4 
STA LIC 
CAL ** 
SLW G 

TSX TET00»1 * 

PZE 9 

TXI CIT*0 * 

END OF PROGRAM LIB. 

************* 



CALLERS=RDC*EMK*INPUT(OUTPUTU 
MOVE NAME OF SUBROUTINE* 
ADDRESS OF WHICH 
IS IN W0RD3 OF CALLING SEQ* 
INTO Gt AND 

* GO ENTER IN THE 
CLOSUB TABLE. 

* MAKE CIT ENTRY* AND EXIT TO CALLER. 4F13235 

4F13236 

***************** *4F13237 



4F13200 
4F13201 

•4F13202 
4F13203 
4F13204 
4F13205 
4F13206 
4F13207 
4F13208 
4F13209 
4F13210 
4F13211 
4F13212 
4F13213 
4F13214 
4F13215 
4F13216 
4F13217 
4F13218 
4F13219 
4F13220 
4F13221 
4F13222 
4F13223 
4F13224 
4F13225 

♦4F13226 
4F13227 
4F13228 
4F13229 
4F13230 
4F13231 
4F13232 
4F13233 
4F13234 



*)% 



u 



u 



n 



VRA(VRD)»4/ CALL5=IFFIX*DI 

CALLERS*RIT*WOT*EFT. 

VRA * ENTRY POINT USED BY 



06032 





50000 


02400 


VRA 


CLA 


LtTL) 


06033 





62100 


05102 




STA 


TPOA 


06034 


-0 


50000 


00415 




CAL 


TXLOP 


06035 


1 


77777 4 


06037 




TXI 


VRD1»4»-1 

VRD « ENTRY POINT USED BY 


06036 





50000 


00415 


VRD 


CLA 


TXLOP 


06037 





63000 


06052 


VRD1 


STP 


VRX 


06040 


•0 


63400 4 


06052 




SXD 


VRX*4 


06041 





07400 1 


05773 




TSX 


IFFIXtl * 


06042 





07400 4 


03400 




TSX 


DIAG»4 * 


06043 





07400 1 


03321 




TSX 


TETOOti * 


06044 





00000 


00005 




PZE 


5 


06045 





07400 4 


01731 




TSX 


CIT»4 * 


06046 





00000 


01367 




PZE 


SL 


06047 





00000 


01537 




PZE 


CAL 


06050 





00000 


17404 




PZE 


SYM 


06051 





00000 


01406 




PZE 


LIO) 


06052 


3 


00000 


06055 


VRX 


TXH 


VDA»0**# 


06053 


-0 


50000 


06121 




CAL 


STD 


06054 


1 


00000 


06076 


XRW 


TXI 


RVX»0»** 


06055 





50000 


06140 


VDA 


CLA 


CON 


06056 





10000 


06070 




TZE 


SDA 


06057 





60100 


01347 




STO 


6 


06060 





07400 4 


00417 




TSX 


FXCNIX»4 * 


06061 





76700 


00022 




ALS 


18 


06062 





60100 


17402 




STO 


RA 


06063 





07400 4 


01731 




TSX 


CIT*4 * 


06064 





ooooo 


01406 




PZE 


LtO) 


06065 





00000 


01532 




PZE 


ADD 


06066 





OOOOO 


01501 




PZE 


2P 


06067 





OOOOO 


17402 




PZE 


RA 


06070 





07400 4 


01731 


SDA 


TSX 


CIT*4 * 


06071 





OOOOO 


01406 




PZE 


L(0) 


06072 





OOOOO 


01535 




PZE 


ARS 


06073 





OOOOO 


01406 




PZE 


L(0} 


06074 





OOOOO 


01466 




PZE 


D18 


06075 


-0 


50000 


01571 




CAL 


STA 


06076 





60200 


06142 


RVX 


SLW 


TOP 


06077 





07400 4 


02372 




TSX 


JIF#4 * 


06100 





07400 4 


01731 




TSX 


CIT*4 * 


06101 





OOOOO 


01406 




PZE 


LtO) 


06102 





OOOOO 


06142 




PZE 


TOP 


06103 





OOOOO 


01371 




PZE 


TL 


06104 





OOOOO 


01406 




PZE 


LIO) 


06105 


-0 


75400 


05555 


NLA 


PXD 


LAST»0 


06106 


-0 


53400 4 


06052 




LXD 


VRX. 4 

1*4 * 


06107 





02000 4 


00001 




TRA 














END OF PROGRAM VRA C VRD). 














#************ 



AG»TETOO»CIT»DRTABS*JIF« 

EFT. 

RESET TPOA ADDRESS 

TO TL. 

PREPARE TO SET OP-SWITCH TO TRA. 

SET RETURN TO TSX+2* AND GO SET OP 

RIT#W0T. 

PREPARE TO SET OP-SWITCH TO NOP. 

SET VRX OP-SWITCH. 

SAVE THE CCXR4) FOR RETURN. 

SET UP I FN AND SYMBOL FOR FORVAR. 

ILLEGAL USE OF FLOATING VARIABLE. 

IF SYMBOL IS FXD-PT* GO MAKE 

ENTRY IN FORVAR TABLE. 

GO MAKE THE FOLLOWING CIT ENTRY* 

W0RD1 — 0(IFN)0O0 

W0RD2 — CALOOO 

W0RD3 — (FXD-PT SYMBOL) 

W0RD4— 000000 

SWITCH ITXL*TRA* TXH*N0PU 

PICKUP STD0O0» AND 

GO SET TOP. 

IF CON 

IS NOT ZERO* 

THEN 

ENTER CON IN FIXCONtAND GET TAG. 

ADJUST TAG* AND 

SET RA« 

GO MAKE THE FOLLOWING CIT ENTRY. 

W0RD1 — 000000 

W0RD2— ADDOOO 

W0RD3— 200000 

W0RD4 — (FIXCON TAG) 

60 MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — OOOOOO 

W0RD2 — ARSOOO 

W0RD3 — OOOOOO 

W0RD4 — 0(18)000 

PICKUP STAGOO* AND 

SET TOP TO STA OR STD. 

GO JUMP IFN» AND SET SL AND TL. 

GO MAKE THE FOLLOWING CIT ENTRY= 

W0RD1 — OOOOOO 

W0RD2 — STAOOO OR STDOOO 

W0RD3 — O(IFN)OO0 

W0RD4 — OOOOOO 

CLEAR THE AC* 

RESTORE THE C(XR4>* AND 

EXIT TO CALLER. 



»*»#«*** 



»*»##**♦* 



4F13238 
4F13239 
4F 13240 
4F13241 
4F13242 
4F13243 
4F13244 

•4F13245 
4F13246 
4F13247 
4F13248 
4F13249 
4F13250 
4F13251 
4F13252 
4F13253 
4F13254 
4F13255 
4F13256 
4F13257 
4F13258 
4F13259 
4F13260 
4F13261 
4F13262 
4F13263 
4F13264 
4F13265 
4F13266 
4F13267 
4F13268 
4F13269 
4F13270 
4F13271 
4F13272 
4F13273 
4F13274 
4F13275 
4F13276 
4F13277 
4F13278 
4F13279 
4F13280 
4F13281 
4F13262 
4F13283 
4F13284 
4F13285 
4F13286 
4F13287 
4F13288 
4F13289 

♦4F13290 
4F13291 



STATEA/5-CONSTANTS AND VARIABLES USED BY STATE A= 



06110 


222324000000 


BCD 


BCD 


1BCD000 


06111 


226263000000 


BST 


BCD 


1BSTO00 


06112 


256344000000 


ETM 


BCD 


1ETM000 


06113 


436344000000 


LTM 


BCD 


1LTM000 


06114 


456351000000 


NTR 


BCD 


1NTR000 


06115 


512451000000 


RDR 


BCD 


1RDR000 


06116 


512566000000 


REW 


BCD 


1REWO00 


06117 


516322000000 


RTB 


BCD 


1RTB000 


06120 


624366000000 


SLW 


BCD 


1SLW000 


06121 


626324000000 


STD 


BCD 


1STD000 


06122 


662451000000 


WDR 


BCD 


1WDR000 


06123 


662526000000 


WEF 


BCD 


1WEF000 


06124 


666322000000 


WTB 


BCD 


1WTB000 


06125 


673163000000 


XIT 


BCD 


1XITO00 


06126 


742224233460 


BDC 


BCD 


1CBDC) 


06127 


742362303460 


CSH 


BCD 


l(CSH) 


06130 


742422233460 


DBC 


BCD 


KDBC) 


06131 


742631433460 


FIL 


BCD 


KFIL) 


06132 


744325653460 


LEV 


BCD 


KLEV) 


06133 


745163453460 


RTN 


BCD 


KRTN) 


06134 


746223303460 


SCH 


BCD 


1CSCH) 


06135 


746247303460 


SPH 


BCD 


KSPH) 


06136 


746263303460 


STH 


BCD 


KSTH) 


06137 


746362303460 


TSH 


BCD 


KTSH) 




06140 


CON 


BSS 


1 


06141 


00000 00000 


END 


PZE 


** 




06142 


TOP 


BSS 


1 


06143 


00000 00000 


TSA 


PZE 


** 


06144 


00000 00000 


TTA 


PZE 


** 

DIC/ DICTIONA 


06145 


+244677274663 


D1C 


OCT 


244677274663 


06146 


-067731267462 




OCT 


-67731267462 


06147 


+254562256266 




OCT 


254562256266 


06150 


+316323307731 




OCT 


316323307731 


06151 


+267462254562 




OCT 


267462254562 


06152 


+254331273063 




OCT 


254331273063 


06153 


-373126243165 




OCT 


-373126243165 


06154 


+312425233025 




OCT 


312425233025 


06155 


+234277312621 




OCT 


234277312621 


06156 


+232364446443 




OCT 


232364446443 


06157 


+216346514665 




OCT 


216346514665 


06160 


+255126434666 




OCT 


255126434666 


06161 


-373126506446 




OCT 


-373126506446 


06162 


-233125456346 




OCT 


-233125456346 


06163 


-252551264346 




OCT 


-252551264346 


06164 


-267731267721 




OCT 


-267731267721 


06165 


-226231274577 




OCT 


-226231274577 


06166 


-226346477747 




OCT 


-226346477747 


06167 


+216462257762 




OCT 


216462257762 


06170 


+254562254331 




OCT 


254562254331 



CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 


CONSTANT 


USED 


BY 


IOT. 



VARIABLE USED BY IOT. 
VARIABLE USED BY IOT. 
VARIABLE USED BY IOT. 
VARIABLE USED BY IOT. 
VARIABLE USED BY IOT. 



(USED BY 



DO-GOT 
O-IFCS 
EN5ESW 
ITCH- I 
FtSENS 
ELI6HT 
-IFDIV 
IDECHE 
CK-IFA 
CCUMUL 
ATOROV 
ERFLOW 
-IFQUO 
TIENTO 
VERFLO 
W-IF-A 
SS I 6N- 
STOP-P 
AUSE-S 
ENSELI 



4F13292 
4F13293 
4F13294 
4F13295 
4F13296 
4F13297 
4F13298 
4F13299 
4F13300 
4F13301 
4F13302 
4F13303 
4F13304 
4F13305 
4F13306 
4F13307 
4F13308 
4F13309 
4F13310 
4F13311 
4F13312 
4F13313 
4F13314 
4F13315 
4F13316 
4F13317 
4F13318 
4F13319 
4F13320 
4F13322 
4F13323 
4F13324 
4F13325 
CC500J.4F13326 
4F13327 
4F13328 
4F13329 
4F13330 
4F13331 
4F13332 
4F13333 
4F13334 
4F13335 
4F13336 
4F13337 
4F13338 
4F13339 
4F13340 
4F13341 
4F13342 
4F13343 
4F13344 
4F13345 
4F 13346 



1^ ( 



u 



u 



"\ 



06171 +273063772431 

06172 -042545623146 

06173 -057725506431 

06174 -252143254523 

06175 +257726512550 

06176 -242545237077 

06177 +234645633145 

06200 -242577512521 

06201 +246321472577 

06202 -112521243145 

06203 -076463632147 

06204 +257751252124 

06205 +245164447751 

06206 +252124776651 

06207 +316325632147 

06210 +257766513163 

06211 +254664634764 

06212 -236321472577 

06213 -265131632524 

06214 -116444774751 

06215 +314563774764 

06216 -052330775125 

06217 -263145247722 

06220 +212342624721 

06221 +232577254524 

06222 +263143257726 

06223 -065144216377 

06224 -226422514664 

06225 -233145257723 

06226 -064444464577 

06227 -112563645145 

06230 -372321434377 

06231 +254524747726 

06232 -244523633146 

06233 -057777777777 

06234 






06246 


1 


00000 





03653 T 





06247 


1 


00000 





03720 


D 


06250 


1 


ooooo 





04106 


D 


06251 


1 


00000 





04150 





06252 


1 


ooooo 





04154 





06253 


1 


ooooo 





04162 





06254 


1 


ooooo 





04166 





06255 


1 


ooooo 





04033 





06256 


1 


ooooo 





04216 


D 


06257 


1 


ooooo 





04343 


D 


06260 


1 


ooooo 





04170 


D 


06261 


1 


ooooo 





04251 





06262 


-3 


ooooo 





04266 





06263 


-3 


ooooo 





04375 



OCT 273063772431 
OCT -42545623146 
OCT -57725506431 
OCT -252143254523 
OCT 257726512550 
OCT -242545237077 
OCT 234645633145 
OCT -242577512521 
OCT 246321472577 
OCT -112521243145 
OCT -76463632147 
OCT 257751252124 
OCT 245164447751 
OCT 252124776651 
OCT 316325632147 
OCT 257766513163 
OCT 254664634764 
OCT -236321472577 
OCT -265131632524 
OCT -116444774751 
OCT 314563774764 
OCT -52330 775 3 25 
OCT -263145247722 
OCT 212342624721 
OCT 232577254524 
OCT 263143257726 
OCT -65144216377 
OCT -226422514664 
OCT -233145257723 
OCT -064444464577 
OCT -112563645145 
OCT -372321434377 
OCT 254524747726 
OCT -244523633146 
OCT -057777777777 
BSS 10 

END OF DICTIONARY. 
********** 



GHT-DI 
MENSIO 
N-EQUI 
VALENC 
E-FREQ 
UENCY- 
CONTIN 
UE-REA 
DTAPE- 
READIN 
PUT TAP 
E-READ 
DRUM-R 
EAD-WR 
ITETAP 
E-WRIT 
EQUTPU 
TTAPE- 
WRITED 
RUM-PR 
INT-PU 
NCH-RE 
WIND-B 
ACKSPA 
CE-END 
FILE-F 
CRMAT- 
SUBROU 
TINE-C 
OMMON- 
RETURN 
-CALL- 
END (-F 
UNCTIO 
N 



*************** 



T/ TRANSFER TABLE 
TXI C0100»0 
TXI C0200»0 
TXI C0400*0 
TXI C0500*0 
TXI C0600*0 
TXI C0700.0 
TXI C0800*0 
TXI C0300*0 
TXI C1000»0 
TXI 0300*0 
TXI C0900*0 
TXI 0100*0 
TXL 0200*0 
TXL 0500*0 



(USED BY CCOOOU 
DO* 

00 TO* 

IF (SENSE SWITCH. 
IF (SENSE LIGHT* 
IF DIVIDE CHECK* 
IF AC OVERFLOW* 
IF MO OVERFLOW* 
IF* 

ASSIGN* 
STOP. 
PAUSE* 

SENSE LIGHT. 
DIMENSION. 
EQUIVALENCE. 



4F 13347 
4F 13348 
4F 13349 
4F 13350 
4F13351 
4F13352 
4F13353 
4F13354 
4F13355 
4F13356 
4F13357 
4F13358 
4F13359 
4F13360 
4F13361 
4F13362 
4F13363 
4F13364 
4F13365 
4F13366 
4F13367 
4F 13368 
4F13369 
4F13370 
4F13371 
4F13372 
4F13373 
4F 13374 
4F13375 
4F 13376 
4F13377 
4F13378 
4F13379 
4F13380 
4F 13381 
4F 133815 
4F 13382 
* * * * * *4F13383 
4F13384 
4F13385 
4F13386 
4F13387 
4F13388 
4F13389 
4F13390 
4F13391 
4F13392 
4F13393 
4F 13394 
4F13395 
4F13396 
4F13397 
4F13398 
4F13399 



->n 






06264 


-3 


00000 





04354 





06265 


1 


00000 





04433 


D 


06266 


1 


00000 





05012 


D 


06267 


1 


00000 





04745 





06270 


1 


00000 





05063 





06271 


1 


00000 





04673 


D 


06272 


1 


00000 





04777 


D 


06273 


1 


00000 





04764 





06274 


1 


00000 





05044 


D 


06275 


1 


00000 





04753 





06276 


1 


00000 





04772 


D 


06277 


1 


00000 





05107 


D 


06300 


1 


00000 





05111 


D 


06301 


1 


00000 





05066 


D 


06302 


-3 


00000 





05113 


D 


06303 


-3 


ooooo 





04442 


D 


06304 


-3 


00000 





04512 


D 


06305 


1 


00000 





04536 


D 


06306 


1 


00000 





04607 


D 


06307 


-3 


00000 





04660 


D 


06310 


-3 


00000 





04440 
06311 



06323 STATEB 



TXL C1400.Q 
TXI C1600»0 
TXI RBT*0 
TXI RIT»0 
TXI RDD»0 
TXI ROCfO 
TXI WBT*0 
TXI W0T»0 
TXI WRD»0 
TXI RDP»0 
TXI PDC»0 
TXI RWN»0 
TXI BSP#0 
TXI EFT»0 
TXL FOR»0 
TXL C30Q0.0 
TXL C3100»0 
TXI C3200»0 
TXI C3300»0 
TXL C3400»0 
TXL C3500»0 
BSS 10 

END OF TRANSFER TABLE. 
BSS 

************* 



17307 
17307 
17316 
17316 
17400 
17401 
17402 
17403 
17404 



ORG 3783+4096 
BIN BSS 1 
CHR BES 6 

BSS 50 
DOLEV BSS 1 



OP 
RA 
SA 
SYM 



BSS 
BSS 
BSS 
BSS 



FREQUENCY. 

CONTINUE. 

READ TAPE. 

READ INPUT TAPE. 

READ DRUM. 

READ CARD. 

WRITE TAPE. 

WRITE OUTPUT TAPE. 

WRITE DRUM. 

PRINT. 

PUNCH. 

REWIND. 

BACKSPACE. 

END FILE. 

FORMAT. 

SUBROUTINE. 

COMMON. 

RETURN. 

CALL. 

END. 

FUNCTION. 



***************** 



VARIABLE USED BY IOT. 
VARIABLE USED BY IOT. 
PARAMETERS FOR TLDOS TABLE -IOT. 
PARAMETERS FOR TLDOS TABLE -IOT. 
VARIABLE USED BY IOT. 
VARIABLE USED BY IOT. 
VARIABLE USED BY 
VARIABLE USED BY 



17405 TLDOS 



BSS 250 

END OF WORKING 
******** 



IOT. 
IOT. 

DO TABLE USED BY IOT. 
STORAGE USED BY STATEA. 
******** 



* * * * 



********** 



END OF THE NON-ARITHMETIC PART OF SECTION ONE. 
****************************** 







ARITHMETIC / STATE B* 




00000 


ORG 


00000 


00471 06323 


PZE STATEB*»FORSUB 


00001 


00000 12764 


PZE ENDD 




06323 


ORG STATEB 



THIS IS A RECODED VERSION OF STATE B OF SECTION ONE* 704 
FORTRAN II. THE SCAN HAS BEEN COMPLETELY RECODED AND LEVEL 
ANALYSIS HAS BEEN FOLDED OVER. 

STATE B CONSISTS OF TWO PARTS..*. SCAN AND LEVEL ANALYSIS. 



4F13400 
4F13401 
4F13402 
4F13403 
4F13404 
4F13405 
4F13406 
4F13407 
4F13408 
4F13409 
4F13410 
4F13411 
4F13412 
4F13413 
4F13414 
4F13415 
4F13416 
4F13417 
4F13418 
4F13419 
4F13420 
4F134205 
4F13421 
4F134215 
♦4F13422 
4F13423 
4F13424 
4F13425 
4F13426 
4F13427 
4F13428 
4F13429 
4F13430 
4F13431 
4F13432 
4F13433 
4F13434 
*4F13435 
4F13436 
4F 13437 
4F13438 
♦4F13439 
4F13440 
4F13441 
4F13442 
4F13443 
4F 13444 
4F 134441 
4F13445 
4F13446 
4F 13447 
4F13448 
4F13449 
4F13450 



u 



u 



THE SCAN IS LEFT TO RIGHT OVER THE SOURCE STATEMENT WHICH IS JF}3«J 
IN THE F REGION OF COMMON AND IS IN BCD. 4F1345Z 

EACH FIXED POINT CONSTANT* FLOATING POINT CONSTANT. AND BCD 4F13453 
{ HOLLERITH) ARGUMENT IN CALL NAME. STATEMENTS ARE ENTERED IN 4F13454 
TABLES AND GIVEN AN INTERNAL VARIABLE NAME. 4F13455 

LEVEL ANALYSIS IS PREFORMED FOR EACH ELEMENT OF THE STATEMENT4F13456 
WHERE AN ELEMENT IS DEFINED AS A VARIABLE. FUNCTION NAME OR (4F13457 



AND THE OPERATOR WHICH PRECEDES IT. 



06323 





76000 





00140 




SLF 




06324 





50000 





07624 




CLA 


SIG1ST 


06325 





60100 





00445 




STO 


SIG1IX-3 


06326 





60000 





01122 




ST2 


ARGCTR 


06327 





60000 





01124 




STZ 


CHSAVE 


06330 





60000 





01117 




STZ 


3LBAR 


06331 





60000 





01360 




STZ 


NBAR 


06332 





60000 





15277 




STZ 


CBAR 


06333 





60000 





15300 




STZ 


ABAR 


06334 





60000 





15301 




STZ 


FSTYPE 


06335 


-0 


53400 


4 


01507 




LXD 


1BAR.4 


06336 


-0 


63400 


4 


01360 




SXD 


NBAR .4 


06337 


-0 


50000 





01500 




CAL 


EC 


06340 





60200 





01120 




SLW 


ARERAS 


06341 





07400 


4 


01671 




TSX 


C0190X*4 


06342 


-0 


50000 





00422 




CAL 


TXHOP 


06343 





63000 





06446 




STP 


MS093 


06344 





63000 





06652 




STP 


MS310 


06345 





63000 





06633 




STP 


M5321 


06346 


-0 


50Q00 





01512 


MS010 


CAL 


ADPLUS 


06347 





60200 





01127 


MS030 


SLW 


E+l 


06350 





60000 





15303 




STZ 


FNBITS 


06351 





60000 





15304 




STZ 


FNCTR 


06352 





60000 





01347 




STZ 


G 


06353 





50200 





01406 




CLS 


L(0) 


06354 





60100 





01126 




STO 


E 


06355 





53400 


2 


01414 




LXA 


L(6)»2 


06356 


-0 


50000 





01124 


MS040 


CAL 


CHSAVE 


06357 


-0 


10000 





06361 




TNZ 


MS041 


06360 





07400 


4 


01707 




TSX 


CO 190.4 


06361 





34000 





01417 


MS041 


CAS 


L(9) 


06362 





02000 





06367 




TRA 


MS050 


06363 


3 


00000 





07302 


MS4007 


TXH 


CM4100.0 


06364 





07400 


4 


07346 




TSX 


R0YCNV.4 


06365 





02000 





06713 




TRA 


HOLL 


06366 





02000 





06761 




TRA 


LATXH 


06367 





53400 


4 


01373 


MS050 


LXA 


L(10)»4 


06370 





34000 


4 


01406 


MS051 


CAS 


CTEST.4 


06371 





02000 





06373 




TRA 


MS052 


06372 





02000 





06426 




TRA 


MS090 


06373 


2 


00001 


4 


06370 


MS052 


TIX 


MS051.4.1 


06374 





76700 


2 


00044 


MS060 


ALS 


36.2 


06375 


-0 


60200 





01347 




ORS 


G 


06376 


1 


00006 


2 


06377 




TXI 


MS061.2.6 


06377 





07400 


4 


01707 


MS061 


TSX 


C0190.4 


06400 





53400 


4 


01373 


MS070 


LXA 


LU01.4 



CLEAR 

X 

X 

X 

X 

X 

X 

SET NBAR=-1 

X 

SET ARERAS - E{ 

X 

SET FWA F AND CHCTR - 

SET SWITCHES FOR LEFT SCAN. 

X 

X 

X 

SET OP TO ADDITION 

X 

CLEAR FUNCTION NAME INDICATOR 

CLEAR FUNCTION ARG COUNTER. 

CLEAR RECEIVING CELL. 

SET E «= -0 

X 

SET IR2 FOR SIX CHARS. 

CHAR IN CHSAVE. IF ANY. TO AC. 

X 

CHSAVE EMPTY. GET NEXT CHAR. 

IS CHAR. NUMERIC. 

N/. TAKE TRA 



RETURN 1. THIS WAS HOLLERITH. 

THIS WAS FIXED OR FLOATING CONSTANT. 

PREPARE TO TEST FOR PUNCTUATION. 



CHAR IS SOME PUNCTUATION. 

X 

POSITION CHAR FOR BUILDING SYMBOL. 

ADD CHAR TO THOSE IN G. 

UPDATE POSITIONING TAG. 

GET NEXT CHAR. 

PREPARE TO TEST FOR PUNCTUATION. 



4F13458 
4F13459 
4F13460 
4F13461 
4F13462 
4F13463 
4F13464 
4F13465 
4F13466 
4FI3467 
4F13468 
4F13469 
4F13470 
4F13471 
4F13472 
4F13473 
4F13474 
4F13475 
4F13476 
4F13477 
4F13478 
4F13479 
4F13480 
4F13481 
4F13482 
4F13483 
4F13484 
4F13485 
4F13486 
4F13487 
4F13488 
4FI3489 
4F13490 
4F13491 
4F 13492 
4F13493 
4F13494 
4F13495 
4F13496 
4F13497 
4F13498 
4F13499 
4F13500 
4F13501 
4F13502 
4F13503 
4F13504 



I'll 



06401 


34000 


4 


01406 


MS071 


CAS 


CTEST»4 


06402 


02000 





06404 




TRA 


MS072 


06403 


02000 





06430 




TRA 


NS091 


06404 


2 00001 


4 


06401 


MS072 


TIX 


MS071»4»1 


06405 


-3 00022 


2 


06374 




TXL 


MS060»2»18 


06406 


34000 





01422 




CAS 


LCF) 


06407 


02000 





06411 




TRA 


MS073 


06410 


02000 





06413 




TRA 


MS080 


06411 


-3 00044 


2 


06374 


MS073 


TXL 


MS060*2»36 


06412 


07400 


4 


03400 


MS074 


TSX 


DIAG»4 


06413 


07400 


4 


01707 


MS080 


TSX 


C0190»4 


06414 


34000 





01375 




CAS 


OPEN 


06415 


02000 





06417 




TRA 


MS081 


06416 


02000 





06440 




TRA 


MS092 


06417 


60100 





01331 


MS081 


STO 


FIRSTC 


06420 


-0 50000 





01422 




CAL 


L(F) 


06421 


76700 


2 


00044 




ALS 


36*2 


06422 


-0 60200 





01347 




ORS 


6 


06423 


3 00044 


2 


06412 




TXH 


MS074*2#36 


06424 


50000 





01331 




CLA 


FIRSTC 


06425 


1 00006 


2 


06400 




TXI 


MS070*2»6 


06426 


60000 





01124 


MS090 


STZ 


CHSAVE 


06427 


02000 


4 


06562 




TRA 


TRBLKA»4 


06430 


60200 





01124 


MS091 


SLW 


CHSAVE 


06431 


-0 50000 





01430 




CAL 


BLANK 


06432 


76700 


2 


00044 




ALS 


36 #2 


06433 


-0 60200 





01347 




ORS 


6 


06434 


56000 





01347 




LDQ 


G 


06435 


•0 60000 





01130 




STO 


E+2 


06436 


-0 60000 





01350 




STQ 


G+l 


06437 


02000 


4 


06612 




TRA 


TRBLKBt4 


06440 


-0 75400 





00000 


MSG92 


PXD 


•0 


06441 


56000 





01526 




LDQ 


BLANKS 


06442 


-0 76300 


2 


00052 




LGL 


42*2 


06443 


-0 50100 





01347 




ORA 


G 


06444 


60200 





01347 




SLW 


G 


06445 


60200 





01130 




SLW 


E+2 


06446 


00000 





06711 


MS093 


*** 


MS335»0 


06447 


-0 53400 


4 


00470 




LXD 


BK>4 


06450 


60200 


4 


00471 




SLW 


FOR SUB » 4 


06451 


-0 50000 





00030 




CAL 


EIFNO 


06452 


-0 32000 





01527 




ANA 


MASKl 


06453 


60100 


4 


00472 




STO 


F0RSUB+1*4 


06454 


1 77776 


4 


06455 




TXI 


FS010»4»-2 


06455 


-0 63400 


4 


00470 


FS010 


SXD 


BK»4 


06456 


07400 


4 


01707 


FS020 


TSX 


C0190#4 


06457 


34000 





01400 




CAS 


EQUAL 


06460 


02000 





06462 




TRA 


FS030 


06461 


02000 





06640 




TRA 


MS322 


06462 


34000 





01417 


FS030 


CAS 


L(9) 


06463 


02000 





06466 




TRA 


FS040 


06464 


3 00000 





07312 


MS9002 


TXH 


CM4200.0 


06465 


07400 


4 


03400 




TSX 


DIAG.4 


06466 


07400 


2 


01624 


FS040 


TSX 


C0160t2 



X 
X 

CHAR IS SOME PUNCTUATION* 

X 

IF THIS IS CHAR 1» 2 /R 3 GO BUILD G* 

IS THIS AN F ENDING FUNCTION NAME* 

X 

MAYBE » GO LOOK AT NEXT CHAR* 

TEST FOR UNDER 7 CHARS* 

BUILD G» 7TH CHAR IS ERROR. 

GET NEXT CHAR* 

TEST FOR (• 

X 

YES* THIS IS A FUNCTION NAME. 

NO, SAVE CURRENT CHAR. 

ADD F TO CONTENTS OF G* 

X 

X 

TEST FOR 7TH CHAR* YES IS ERROR. 

RESTORE CURRENT CHAR. 

UPDATE POSITIONING TAG* 

CLEAR 

OF IS IN NEXT ELEMENT* SAVE* 

ADD BLANK TO CHARS IN 6* 

X 

X 

MOVE G TO E+2 AND TO 6+1* 

X 

X 

NOW BRANCH TO INDIVIDUAL ROUTINE 

CLEAR 

ADD BLANKS TO SUBROUTINE NAME IN G. 

X 
X 
X 

MOVE FUNCTION NAME TO E+2* 

TXH FOR LEFT SIDE, TXL FOR RIGHT SIDE. 

THIS IS ARITH FUNCTION STATEMENT* 

ENTER FUNCTION NAME IN FORSUB TABLE. 

ENTER INTERNAL FORMULA NO IN FORSUB* 

X 

X 

UPDATE COUNT OF ENTRIES IN FORSUBc 

X 

GET FIRST CHAR OF ARGUMENT. 

TEST FOR EQUAL. 

X 

GO MOVE FROM E. E+l* E+2 TO LEFT* LEFT+1 

TEST FOR ILLEGAL ARGUMENT* 

LEGAL # CONTINUE 

BEGINS NUMERIC* ERROR* 
COLLECT ARGUMENT NAME IN 16* 



4F13505 
4F13506 
4F13507 
4F13508 
4F13509 
4F13510 
4F13511 
4F13512 
4F13513 
4F13514 
4F13515 
4F13516 
4F13517 
4F13518 
4F13519 
4F13520 
4F13521 
4F13522 
4F13523 
4F13524 
4F13525 
4F13526 
4F13527 
4F13528 
4F13529 
4F13530 
4F13531 
4F13532 
4F 13533 
4F13534 
4F13535 
4F13536 
4F13537 
4F13538 
4F13539 
4F13540 
4F13541 
4F13542 
4F13543 
4F13544 
4F13545 
4F13546 
4F13547 
4F13548 
4F13549 
4F13550 
4F13551 
4F13552 
•+24F13553 
4F13554 
4F13555 
4F13556 
4F13557 
4F13558 



?/ 



ss 



u 



u 



C6467 





07400 


4 


03255 




06470 


-0 


53400 


2 


01122 




06471 





56000 





01112 




06472 


-0 


60000 


2 


15215 




06473 


1 


77777 


2 


06474 




06474 


-0 


63400 


2 


01122 


FS050 


06475 


3 


77716 


2 


06456 




06476 





07400 


4 


03400 




06477 





07400 


4 


07353 


MS200 


06500 





07400 


4 


03400 




06501 





02000 





06761 




06502 





76000 





00141 


MS210 


06503 


-0 


53400 


1 


01117 




06504 


-0 


53400 


4 


15300 




06505 





50200 


4 


15301 




06506 





60100 


1 


15520 




06507 


-^0 


50000 





01522 




06510 





60200 


1 


15521 




06511 





50000 





01360 




06512 





77100 





00022 




06513 





60100 


1 


15522 




06514 


1 


77775 


1 


06515 




06515 


-0 


63400 


1 


01117 


MS211 


06516 


-0 


53400 


1 


01360 




06517 


-0 


63400 


1 


15277 




06520 


1 


77777 


1 


06521 




06521 


-0 


63400 


1 


01360 


MS212 


06522 


1 


00003 


4 


06523 




06523 


-0 


63400 


4 


15300 


MS213 


06524 





02000 





06346 




06525 


-0 


53400 


4 


15300 


MS220 


06526 





50000 


4 


15301 




06527 





73400 


1 


00000 




06530 


-o 


63400 


1 


15277 




06531 


1 


00004 


4 


06532 




06532 


-0 


63400 


4 


15300 


MS221 


06533 





02000 





07310 




06534 


-0 


53400 


4 


15300 


MS230 


06535 


1 


0000 3 


4 


06536 




06536 


-3 


00000 


4 


06540 


MS231 


06537 





07400 


4 


03400 




06540 


-0 


53400 


4 


01122 


MS232 


06541 


-3 


00000 


4 


07625 




06542 


-0 


50000 





15301 




06543 





40000 





01407 




06544 


-0 


53400 


1 


00470 




06545 





62100 


1 


00470 




06546 


-0 


60200 





01120 




06547 





02000 





07625 




06550 





02000 





06534 




06551 





02000 





06575 




06552 





02000 





06502 




06553 





02000 





06525 




06554 





07400 


4 


03400 


MSERR 



TSX TESTB0»4 
LXD ARGCTR.2 
LDQ 1G 

STQ ARGREG f2 
TXI FS05O.2»-l 
SXD ARGCTR#2 
TXH FSO20*2»-50 
TSX D1AG»4 
TSX DECPNT»4 
TSX DIAGt4 
TRA LATXH 
SLN 1 

LXD 3LBAR*1 
LXD ABAR»4 
CLS ALPHA-4t4 
STO LAMBDAtl 
CAL ADSPOP 
SLW LAMBDA+1»1 
CLA NBAR 
ARS 18 

STO LAMBDA+2»1 
TXI MS211tlt-3 
SXD 3LBAR»1 
LXD NBAR>1 
SXD CBAR»1 
TXI MS212»1»-1 
SXD NBARtl 
TXI MS213*4»3 
SXD ABAR»4 
TRA MS010 
LXD ABAR»4 
CLA ALPHA-4»4 
PAX *1 
SXD CBAR»1 
TXI MS221»4#4 
SXD ABARf4 
TRA MS020 
LXD ABAR.4 
TXI MS231»4*3 
TXL MS232*4»0 
TSX DIAG»4 
LXD ARGCTR»4 
TXL STATEC#4»0 
CAL FSTYPE 
ADD L(l) 
LXD BK»1 
STA F0RSUB-1»1 
ORS ARERAS 
TRA STATEC 
TRA MS230 
TRA MS260 
TRA MS210 
TRA MS220 
TSX DIAGt4 



TEST CHAR FOLLOWING ARG FOR t OR) 

GET COUNT OF ARGUMENTS 

ENTER ARGUMENT NAME IN ARGREG TABLE. 

X 

UPDATE COUNT OF ARGUMENTS. 

TEST FOR ARGREG TABLE OVERFLOW. 

YES» ERROR. 

CONVERT BCD NUMBER TO BINARY 

HOLLERITH RETURN » ERROR. 

FLOATING POINT CONSTANT RETURN. 

TURN t LITE ON. 

PERFORM LEVEL ANALYSIS FOR • 



PERFORM LEVEL ANALYSIS FOR ) 



PERFORM LEVEL ANALYSIS FOE ENDMK. 

FINISHED, HAS LEVEL BEEN REDUCED TO ZERO. 

N0» ERROR. 

WAS THIS AN ARITH FUNCTION STATEMENT 

YES* UPDATE FUNCTION TYPE AND 

COMPLETE FORSUB ENTRY BY ASSIGNING 

TYPE NUMBER. 

X 

ALSO SAVE FOR LATER REFERENCE. 

ENDMK 

( 

» 



4F13559 

4F13560 

4F13561 

4F13562 

4F13563 

4F13564 

4F13565 

4F13566 

4F13567 

4-F13568 

4F13569 

4F13570 

4F13571 

4F13572 

4F13573 

4F13574 

4F13575 

4F 13576 

4F13577 

4F13578 

4F13579 

4F13580 

4F13581 

4F13582 

4F13583 

4F13584 

4F13585 

4F13586 

4F13587 

4F 13588 

4F13589 

4F13590 

4F13591 

4F13592 

4F13593 

4F13594 

4F13595 

4F13596 

4F13597 

4F13598 

4F13599 

4F13600 

4F13601 

4F13602 

4F13603 

4F13604 

4F13605 

4F13606 

4F13607 

4F13608 

4F13609 

4F13610 

4F13611 

4F13612 



06555 
06556 
06557 
06560 
06561 

06562 
06563 
06564 
06565 
06566 
06567 
06570 
06571 
06572 
06573 
06574 
06575 
06576 
06577 
06600 
06601 
06602 
06603 
06604 
06605 
06606 
06607 
06610 
06611 

06612 
06613 
06614 
06615 
06616 
06617 
06620 
06621 
06622 
06623 
06624 
06625 
06626 
06627 
06630 
06631 
06632 
06633 
06634 
06635 
06636 
06637 
06640 



02000 
02000 
02000 
02000 
76700 



60200 
07400 
34000 
02000 
02000 
02000 
50000 
02000 
76700 
60200 
02000 
76700 
60200 
02000 
02000 
02000 
02000 
02000 
02000 
02000 
02000 
07400 
02000 
75400 



76300 
07400 
02000 
50000 
32000 
60200 
07400 
00000 
75400 
56000 
76300 
40200 
10000 
07400 
00000 
02000 
60000 
00000 
07400 
07400 
40200 
10000 
53400 



06572 
06572 
06477 
06572 
00036 
06562 
01127 
01707 
01405 
06361 
06570 
06361 
01525 
06573 
00036 
01127 
06336 
00036 
01130 
06757 
06611 
06632 
06611 
06611 
06652 
06611 
06611 
03400 
06611 
00000 
06612 
O0O06 
03242 
06757 
00030 
01527 
01347 
03321 
00005 
00000 
01356 
00014 
01451 
06757 
03321 
00006 
06757 
01124 
06666 
07333 
01707 
01400 
06554 
01411 



MS240 
TRBLKA 



MS241 

MS250 
MS251 

MS260 



MS300 
TRBLKB 



MS320 
MS321 



MS322 



TRA MS250 
TRA MS250 
TRA MS200 
TRA MS250 
ALS 30 
BS5 
SLW E+l 
TSX C0190.4 
CAS STAR 
TRA MS041 
TRA MS241 
TRA MS041 
CAL STRSTR 
TRA MS251 
ALS 30 
SLW E+l 
TRA MSQ40 
ALS 30 
SLW E+2 
TRA LATXL 
TRA MS300 
TRA MS320 
TRA MS3O0 
TRA MS300 
TRA MS310 
TRA MS300 
TRA MS30Q 
TSX 0IAG»4 
TRA MS300 
PXD »0 
BSS 
LGL 6 

TSX TESTFX+1»1 
TRA LATXL 
CAL EIFNO 
ANA MASKl 
SLW 6 
TSX TET00»1 

5 
PXO »0 
LDQ LEFT+2 
LGL 12 
SUB CALLER 
TNZ LATXL 
TSX TETOOtl 

6 
TRA LATXL 
ST2 CHSAVE 
*** MS330.0 
TSX SS00OX.4 
TSX C0190.4 
SUB EQUAL 
TNZ M5ERR- 
LXA L<3)»4 



SAVE ♦ 



+ OR ~ OR / 



GET NEXT CHAR. 

IS IT * 

X 

YES# THIS WAS ** 

NO. GO COMPARE TO OTHER PUNCTUATION. 

REPLACE * WITH ** 

X 

POSITION CHAR WHICH IS 

PUT CURRENT OP IN E+l. 

NOW 60 COLLECT SYMBOL. 

( TO SYMBOL WORD 

X 

60 PERFORM LEVEL ANALYSIS FOR ( 

ENDMK 

( 

» 

) 



+ 

# CLEAR 

BASE ADDRESS FOR TAGGED TRANSFER. 

GET FIRST CHAR OF SYMBOL* 

TEST FOR FIXED OR FLOATING POINT. 

FLOATING* GO PERFORM LEVEL ANALYSIS. 

FIXED. PREPARE FORVAR ENTRY. 

X 

X 

MAKE FORVAR ENTRY. 

X 



GO PERFORM LEVEL ANALYSIS. 

CLEAR CELL FOR OP. 

TXH ON LEFT. TXL ON RIGHT OF * SIGN. 

GO PROCESS SUBSCRIPT COMBINATION. 

GET NEXT CHAR. 

TEST FOR EQUAL SIGN. 

N0» ERROR. 

MOVE CONTENTS OF E WORDS TO LEFT WORDS. 



4F13613 

4F 13614 

4F13615 

4F 13616 

4F13617 

4F13618 

4F13619 

4F13620 

4F13621 

4F13622 

4F13623 

4F13624 

4F13625 

4F13626^ 

4F13627 

4F13628 

4F13629 

4F13630 

4F13631 

4F13632 

4F13633 

4F13634 

4F13635 

4Fl36f»6 

4F13637 

4F13638 

4F 13639 

4F 13640 

4F13641 

4F13642 

4F13643 

4F13644 

4F13645 

4F 13646 

4F 13647 

4F13648 

4F13649 

4F13650 

4F 13651 

4F13652 

4F13653 

4F13654 

4F13655 

4F13656 

4F13657 

4F13658 

4F13659 

4F13660 

4F13661 

4F13662 

4F13663 

4F13664 

4F13665 

4F13666 



u 



u 



06641 
06642 
06643 
06644 
06645 
06646 
06647 
06650 
06651 
06652 
06653 
06654 
06655 
06656 
06657 
06660 
06661 
06662 
06663 
06664 
06665 
06666 
06667 
06670 
06671 
06672 
06673 
06674 
06675 
06676 
06677 
06700 
06701 
06702 
06703 
06704 
06705 
06706 
06707 
06710 
06711 
06712 
06713 
06714 
06715 
06716 
06717 
06720 
06721 
06722 
06723 
06724 
06725 
06726 



56000 
60000 
00001 
50000 
63000 
63000 
63000 
76000 
02000 
00000 
60000 
75400 
76300 
07400 
02000 
50000 
32000 
60200 
07400 
00000 
02000 
07400 
02000 
02000 
07400 
02000 
02000 
07400 
02000 
07400 
02000 
50000 
60200 
75400 
56000 
76300 
60200 
60200 
07400 
00000 
76000 
02000 
60000 
50000 
60200 
53400 
53400 
56000 
53400 
75400 
00001 
76300 
60200 
32000 



4 01131 
4 01357 
4 06641 
00415 
06446 
06652 
06633 
001*1 
06346 
06554 
01124 
00000 
00006 
03242 
06640 
00030 
01527 
01347 
03321 
00006 
06640 
01771 
06671 
06676 
01775 
06674 
06676 
02005 
06700 
07333 
06761 
01471 
15303 
00000 
01526 
00052 
01347 
01130 
03321 
00011 
00142 
06757 
01124 
01352 
01130 
01103 
01724 
01365 
01414 
00000 
06736 
00006 
01112 
01374 



MS323 LDQ E+3«4 

STO LEFT+3»4 

TIX MS323*4«1 
MS311 CAL TXLOP 

STP MS093 

STP MS310 

STP MS321 

SLN 1 

TRA MS010 
MS310 *** MSERR=»0 

STZ CHSAVE 

PXD #0 

LGL 6 

TSX TE5TFX+1*1 

TRA MS322 

CAL EIFNO 

ANA MASK1 

SLW 6 

TSX TETOOtl 
6 

TRA MS322 
MS330 TSX DIM1SR«4 

TRA MS331 

TRA MS333 
MS331 TSX DIM2SR»4 

TRA MS332 

TRA MS333 
MS332 TSX DIM3SR*4 

TRA MS334 
MS333 TSX SS000X»4 * 

TRA LATXH 
MS334 CAL FNIND 

SLW FNBITS 

PXD »0 

LDQ BLANKS 

LGL 42*2 

ORS G 

ORS E+2 

TSX TETOOtl 
9 
MS335 SLN 2 

TRA LATXL 
HOLL STZ CHSAVE 

CAL HOLCNT 

SLW E+2 

LXA N»2 

LXD CHCTR*4 

LDQ RESIDU 
C3351 LXA L(6) #1 

PXD 0»0 
C3352 TNX C3354»4*l 
C33525 LGL 6 

SLW 1G 

ANA ENDMK 



X 

X 

X 

SET SWITCHES FOR RIGHT SIDE SCAN* 

X 

X 

X 

TURN * OR J LITE ON. 

GO SCAN NEXT ELEMENT* 

TXH FOR LEFT* TXL FOR RIGHT OF EQUAL SIGN* 

CLEAR 

CLEAR AC* 

GET FIRST CHAR OF SYMBOL* 

TEST FOR FIXED OR FLOATING POINT 

FLOATING* 

FIXED* PREPARE FORVAL ENTRY. 

X 

X 

MAKE FORVAL ENTRY. 

X 

SEARCH FOR THIS NAME IN THE DIMl* DIM2i 
AND DIM3 TABLES* IF IT IS FOUND IN ONE OF 
THESE TABLES IT IS A SUBSCRIPTED VARIABLE 
OF THAT NUMBER OF DIMENSIONS. IF IT IS NOT 
FOUND IN ANY DIMENSION TABLE THEN IT IS 
ASSUMED TO BE THE NAME OF A FORTRAN II 
SUBROUTINE OR FUNCTION COMPILED SEPARATELY 

X 

GO PROCESS SUBSCRIPT COMBINATION. 

GO PERFORM LEVEL ANALYSIS. 

NOT FOUND* TREAT AS FUNCTION NAME. 

X 

X 

COMPLETE NAME WITH BLANKS* 

X 

X 

X 

ENTER NAME IN CLOSUB TABLE. 

X 

TURN FUNCTION LITE ON. 

GO PERFORM LEVEL ANALYSIS. 

CLEAR CHSAVE 

GET CURRENT H(+I WORD 

GET NUMBER OF CHARACTERS IN THIS ARG 

GET CURRENT RESIDUE CHAR COUNT 

GET CURRENT RESIDU WORD 

SET TO COLLECT SIX CHARS 

CLEAR AC 

TEST FOR NO MORE CHARS IN RESIDU 

GET NEXT CHAR 

STORE WORD 

BLANK ALL EXCEPT CURRENT CHAR 



4F13667 
4F13668 
4F13669 
4F13670 
4F13671 
4F 13672 
4F13673 
4F13674 
4F13675 
4F13676 
4F13677 
4F136775 
4F13678 
4F13679 
4F1368G 
4F13681 
4F13682 
4F13683 
4F13684 
4F13685 
4F13686 
4F13687 
4F13688 
4F13689 
4F13690 
4F13691 
4F13692 
•4F13693 
4F13694 
4F13695 
4F13696 
4F13697 
4F13698 
4F13699 
4F137O0 
4F13701 
4F13702 
4F13703 
4F13704 
4F13705 
4F13706 
4F13707 
4F13708 
4F13709 
4F13710 
4F13711 
4F13712 
4F13713 
4F13714 
4F13715 
4F13716 
4F13717 
4F13718 
4F13719 



06727 





40200 





01374 




06730 


-0 


10000 





06732 




06731 





07400 


4 


0340C 




06732 


-0 


50000 





01112 


C3353 


06733 


-2 


00001 


2 


06746 




06734 


-2 


00001 


1 


06744 




06735 





02000 





06723 




06736 


-0 


53400 


4 


01614 


C3354 


06737 





56000 


4 


00000 




06740 


1 


77777 


4 


06741 




06741 


-0 


63400 


4 


01614 


C3355 


06742 





53400 


4 


01414 




06743 





02000 





06724 




06744 





07400 


1 


07322 


C3356 


06745 


1 


ooooo 





06721 


C3357 


06746 


-0 


60000 





01365 


C3358 


06747 


-o 


63400 


4 


01724 




06750 


-2 


00001 


1 


06754 




06751 





56000 





01526 




06752 


-0 


76300 





00006 


C3359 


06753 


2 


00001 


1 


06752 




06754 





07400 


1 


07322 


C3360 


06755 


-0 


50000 





01531 




06756 





07400 


1 


07322 




06757 


-0 


50000 





00415 


LATXL 


06760 





02000 





06762 




06761 


-0 


50000 





00422 


LATXH 


06762 





63000 





07307 




06763 





53400 


1 


01406 


LA0O00 


06764 





50000 





01130 




06765 


-0 


76000 





00142 




06766 





02000 





07027 




06767 





76000 





00142 




06770 


-0 


53400 


4 


00470 




06771 


-3 


00000 


4 


07000 




06772 


-0 


63400 


4 


06777 




06773 





34000 


1 


00471 




06774 


1 


77776 


1 


06777 




06775 





02000 





07002 




06776 


1 


77776 


1 


06777 




06777 


3 


00000 


1 


06773 




07000 





60000 





15302 




07001 





02000 





07014 




07002 


-0 


50000 


1 


00472 




07003 


-0 


32000 





01452 




07004 


-0 


53400 


4 


01122 




07005 


-3 


00000 


4 


07011 




07006 





34000 





15301 




07007 





62100 





15301 




07010 


3 


00000 





00000 




07011 





76700 





00007 




07012 


-0 


50100 





01464 




07013 





60200 





15302 





SUB ENDMK 
TNZ C3353 
TSX DIAG»4 
CAL 1G 

TNX C3358»2»l 
TNX C3356»l»l 
TRA C3352 
LXD FWA»4 
LDQ 0*4 

TXI C3355»4,-l 
SXD FWA»4 
LXA L(6) »4 
TRA C33525 
TSX C3390»l 
TXI C3351>0»** 
STQ RESIDU 
SXD CHCTR»4 
TNX C3360*l»l 
LDQ BLANKS 
L6L 6 

TIX C3359*l»l 
TSX C3390»l 
CAL ALL1 
TSX C3390*l 

LEVEL ^NALYSI, 
CAL TXLOP * 
TRA LATXL+3 
CAL TXHOP 
STP CM4105 
LXA L(0)»A 
CLA E+2 
SLT 2 

TRA LAOOOO+36 
SLN 2 
LXD BK*C 

TXL LA0O0O+13»C*0 
SXD LA0O0O+12»C 
CAS FORSUB *A 
TXI LA0OOO+12»A#-2 
TRA LAOOOO+15 
TXI LA0O0O+12»A#-2 
TXH LA0000+8»A»0 
STZ FSBITS 
TRA LAOOOO+25 
CAL FORSUB+l.A 
ANA MASK2 
LXD ARGCTRtC 
TXL LA0OQO+22»C»0 
CAS FSTYPE 
STA FSTYPE 
TXH 0*0 
ALS 7 
ORA FSIND 
5LW FSBITS 



TEST FOR INTERNAL ENDMK 

YES* ERROR* GO TO DIAGNOSTIC* 
RETREIVE WORD 

TEST FOR ALL CHARS COLLECTED 
TEST FOR SIX CHARS COLLECTED 
NOT SIX CHARS YET* CONTINUE COLLECTI 
LOAD MQ WITH NEXT F RE6I0N WORD 

UPDATE FWA 

RESET MQ CHAR COUNT TO SIX 

CONTINUE COLLECTING 

GO TO ENTER WORD IN HOLARG TABLE 

RETURN TO CONTINUE COLLECTING 

UPDATE RESIDU 

UPDATE CHCTR 

TEST FOR SIX CHARS IN AC» DEC IR1 

NOT SIX CHARS* PREPARE TO ADD BLANKS 

ADD BLANKS 

GO TO ENTER WORO IN HOLARG TABLE 

GET WORD OF ONES 

GO TO ENTER WORD IN HOLARG TABLE 



IS THIS A FUNCTION NAME 

NO 

YES - TURN F LITE BACK ON 

IS FORSUB EMPTY 

YES. GO SET FS BITS TO 

SEARCH FN NAME IN FORSUB 



SET FSBITS TO 

FN NAME IN FORSUB 

EXTRACT TYPE NUMBER 

IS THIS A FUNCTION STATEMENT 

NO 

YES - UPDATE FS TYPE 



4F13720 
4F13721 
4F13722 
4F 13723 
4F13724 
4F13725 
NG4F13726 
4F13727 
4F13728 
4F13729 
4F13730 
4F13731 
4F13732 
4F13733 
4F13734 
4F13735 
4F13736 
4F13737 
4F13738 
4F13739 
4F 13740 
4F13741 
4F13742 
4F13743 
4F13744 
4F 13745 
4F13746 
4F13747 
4F13748 
4F 13749 
4F13750 
4F13751 
4F 13752 
4F13753 
4F13754 
4F13755 
4F13756 
4F13757 
4F13758 
4F13T59 
4F13760 
4F13761 
4F13762 
4F13763 
4F13764 
4F 13765 
4F13766 
4F13767 
4F13768 
4F13769 
4F13770 
4F13771 
4F13772 
4F13773 



u 



u 



07014 


-0 


53400 


1 


01117 


07015 


-0 


53400 


2 


01360 


07016 


-0 


53400 


4 


15300 


07017 


-3 


00000 


1 


07043 


07020 


3 


75520 


1 


07022 


07021 





07400 


4 


03400 


07022 


3 


77323 


2 


07024 LA0001 


07023 





07400 


4 


03400 


07024 


-3 


00000 


4 


07043 LA0002 


07025 


3 


77565 


4 


07043 


07026 





07400 


4 


03400 


07027 


-0 


53400 


4 


01122 


07030 


-3 


00000 


4 


07000 


07031 


-0 


63400 


4 


07036 


07032 





34000 


1 


15215 


07033 


1 


77777 


1 


07036 


07034 





02000 





07040 


07035 


1 


77777 


1 


07036 


07036 


3 


00000 


1 


07032 


07037 





02000 





07000 


07040 


-0 


75400 


1 


00000 MS1018 


07041 





77100 





00013 


07042 





02000 





07012 


07043 





50000 





06464 LA0003 


07044 





62100 





07251 


07045 


-0 


75400 





00000 


07046 





56000 





01130 


07047 


-0 


60000 


1 


15533 


07050 


-0 


60000 


1 


15530 


07051 


-0 


60000 


1 


15525 


07052 


-0 


76300 





00006 


07053 





60100 





01331 


07054 





40200 





01375 


07055 





10000 





07064 


07056 





50000 





06363 


07057 


-0 


76000 





00142 


07060 





02000 





07063 


07061 





76000 





00142 


07062 





50000 





07112 


07063 





62100 





07251 LA002 


07064 





50000 





01126 LA003 


07065 





60100 


1 


15531 


07066 





601O0 


1 


15526 


07067 





60100 


1 


15523 


07070 


-o 


50000 





01522 


07071 





60200 


1 


15535 


07072 





60200 


1 


15532 


07073 





60200 


1 


15527 


07074 


-0 


75400 





00000 


07075 





56000 





01127 


07076 


-0 


60000 


1 


15521 


07077 


-0 


76300 





00006 


07100 





34000 





01405 


07101 





02000 





07145 



LXD 3LBAR*A 

LXD NBARfB 

LXD ABAR»C 

TXL LA0003tA»0 

TXH LAOCQl»At-1200 

TSX DIAG»4 

TXH LA0002#B»-301 

TSX DIAG.4 

TXL LA0003»C*0 

TXH LA0003»C»-139 

TSX DIAG,4 

LXD ARGCTR»C 

TXL LA0000+13»C*0 

SXD LA0000+43#C 

CAS ARGR£G»A 

TXI LA0000+43»A»-1 

TRA MS1018 

TXI LA0000+43»A»-1 

TXH LA0000+39»A»0 

TRA LAOOOO+13 

PXD 0*A 

ARS 11 

TRA LAOOOO+23 

CLA MS9002 

STA LA4320 

PXD 0*0 

LDQ E+2 

STQ LAMBDA+11»A 

STQ LAMBDA+8fA' 

STQ LAMBDA+5»A 

LGL 6 

STO FIRSTC 

SUB OPEN 

TZE LA003 

CLA MS4007 

SLT 2 

TRA LA002 

SLN 2 

CLA FIN 1 03 

STA LA4320 

CLA E 

STO LAMBDA+9»A 

STO LAMBDA+6»A 

STO LAMBDA+3»A 

CAL AD.SPOP 

SLW LAMBDA+13»A 

SLW LAMBDA+10*A 

SLW LAMBDA+7»A 

PXD »0 

LDQ E+l 

STQ LAMBDA+1»A 

LGL 6 

CAS STAR 

TRA LA0015 



LOAD LA COUNTERS 



ERROR#*LAMBDA TABLE EXCEEDED. 
ERR0R«*BETA TABLE EXCEEDED 



ERROR. .ALPHA TABLE EXCEEDED 
VARIABLE OR ( 

NOT AN FS - GO SET FS BITS TO 
FUNCTION STATEMENT 
SEARCH FREE VARIABLE TABLE 



NOT PRESENT - GO SET FSBITS TO 
PRESENT - STORE TYPE IN FSBITS 



/ SIGN 



4F13774 

4F13775 

4F13776 

4F13777 

4F13778 

4F13779 

4F13780 

4F13781 

4F13782 

4F13783 

4F13784 

4F13785 

4F13786 

4F 13787 

4F13788 

4F13789 

4F13790 

4F13791 

4F13792 

4F13793 

4F13794 

4F13795 

4F13796 

4F 13797 

4F13798 

4F13799 

4F13800 

4F13801 

4F13802 

4F13803 

4F13804 

4F13805 

4F13806 

4F13807 

4F13808 

4F13809 

4F13810 

4F13811 

4F13812 

4F13813 

4F13814 

4F13815 

4F13816 

4F13817 

4F13818 

4F13819 

4F13820 

4F13821 

4F13822 

4F13823 

4F13824 

4F13825 

4F13826 

4F13827 



77? 



07102 
07103 
07104 
07105 
07106 
07107 
07110 
07111 
07112 
07113 
07114 
07115 
07116 
07117 
07120 
07121 
07122 
07123 
07124 
07125 
07126 
07127 
07130 
07131 
07132 
07133 
07134 
07135 
07136 
07137 
07140 
07141 
07142 
07143 
07144 
07145 
07146 
07147 
07150 
07151 
07152 
07153 
07154 
07155 
07156 
07157 
07160 
07161 
07162 
07163 
07164 
07165 
07166 
07167 



02000 
-0 76000 

02000 

1 77775 
-0 75400 

77100 

60100 

1 00001 
-0 75400 

77100 
-0 76000 

60100 
-0 76000 

00001 
00001 
50000 
34000 
02000 
77775 
-0 76000 

1 77777 
1 77777 

-0 7540O 
77100 
60100 
40000 
00001 
16200 

-0 76000 

02000 

1 77777 
50000 

40200 
-0 10000 

1 77777 
-0 76000 

02000 
77776 
50000 
34000 
77777 
77776 
77777 
60200 
50200 
60100 
76000 
50200 
77100 
60200 
77775 

-0 63400 4 
02000 

-0 75400 2 



07135 
00142 
07121 
07106 
00000 
00022 
15536 
07112 
07315 
00022 
00003 
15534 
00141 
07213 
07155 
01331 
01375 
07125 
07130 
00141 
07217 
07161 
00000 
00022 
15533 
01407 
07116 
07145 
00142 
07141 
07174 
01331 
01375 
07207 
07167 
00142 
07150 
07257 
01331 
01375 
07272 
07252 
07272 
15310 
01406 
15531 
00141 
15277 
00022 
15305 
07165 
15300 
07220 
00000 



MS1033 

FINI03 

LA0041 
LA0044 

LA0050 
LA0058 

LA0O10 

LA0072 

LA0015 
LA0021 

L13130 

LA1000 

LA1040 
L22000 



TRA 
SLT 
TRA 
TXI 
PXD 
ARS 
STO 
TXI 
PXO 
ARS 
SSM 
STO 
SLT 
TXI 
TXI 
CLA 
CAS 
TRA 
TXI 
SLT 
TXI 
TXI 
PXD 
ARS 
STO 
ADD 
TXI 
TOP 
SLT 
TRA 
TXI 
CLA 
SUB 
TNZ 
TXI 
SLT 
TRA 
TXI 
CLA 
CAS 
TXI 
TXI 
TXI 
SLW 
CLS 
STO 
SLN 
CLS 
ARS 
SLW 
TXI 
SXO 
TRA 
PXD 



LA0010 
2 

LA 0044 

MS1033.8»-3 

»B 

16 

LAMBDA+14»A 

FINI03»B*1 

CM4300#B 

18 

LAMBDA+12»A 

1 

L43130»B»1 

L13130»B»1 

FIRSTC 

OPEN 

LA 00 50 

LA0058»B#-3 

1 

LA4000#B»-1 

LA1000»B»-1 

♦ S 

18 

LAMBDA+11»A 

L(l) 

LA0041»2»1 

LA0015 

2 

LAO072 

L23Q00#B«-1 

FIRSTC 

OPEN 

LA2000 

L22000»B*-1 

2 

LA0021 

L33000t8»-2 

FIRSTC 

OPEN 

LA3000*B»-1 

L32000«B*-2 

LA3000»B#-1 

ALPHA+3tC 

L(0) 

LAMBDA+9»A 

1 

CBAR 

18 

ALPHA »C 

LA1040»C»-3 

ABAR»C 

LA4010 

#B 



• OR »* SIGN 
♦OR - SIGN 

-N TO -<N+3) 



STO <N+3» IN LAMBDA+3 (L+4J+2 
-(N+3) TO - CN+2) 



STO -<N+2) IN LAMBDA+3 (L+4) 

UNARY**. -(N+2) TO -<N+1) 
BINARY*** -CN+2) TO - <N+1) 

EXAMINE SYMBOL 

-N TO -(N+3) 

UNARY* •• -NTQ -CN+ll 
BINARY*.* -N TO -tN+1) 



STO S<N+3> IN LAMBDA ♦3tL+3>*2 
FORM -(N+2) IN ADD (ACC) 

GO TO ♦ ROUTINE 
** 

-N TO -(N+ll 



-N TO -(N+l) 
* OR / 

-N TO -(N+2) 



-N TO -N(+2> 

STO -{N+2» IN ALPHA+A+3 

STO -0 IN LAMBDA 4-3(L+3> 



STO -C IN ALPHA+A 
-A TO - <A+3> 



4F13828 

4F13829 

4F13630 

4F 13831 

4F13832 

4F13833 

4F13834 

4F13635 

4F13836 

4F13837 

4F13838 

4F13839 

4F13840 

4F13841 

4F13842 

4F13843 

4F13844 

4F13845 

4F13846 

4F13847 

4F13848 

4F 13849 

4F13850 

4F13851 

4F13852 

4F 13853 

4F13854 

4F 13855 

4F13856 

4F13857 

4F 13858 

4F13859 

4F13860 

4F 13861 

4F 13862 

4F13863 

4F 13864 

4F13865 

4F13866 

4F 13867 

4F 13868 

4F13869 

4F13870 

4F13871 

4F13872 

4F13873 

4F 13874 

4F13875 

4F13876 

4F13877 

4F13878 

4F13879 

4F13880 

4F13881 



u 



u 



07170 





77100 





00022 




ARS 


18 


07171 





60100 


1 


15525 




STO 


LAMBDA+5»A 


07172 





40000 





01407 




ADD 


L(l) 


07173 


1 


0000 1 


2 


07203 




TXI 


L23130»B#1 


07174 


-0 


75400 


2 


ooooo 


L23000 


PXD 


fB 


07175 





77100 





00022 




ARS 


18 


07176 





60100 


1 


15530 




STO 


LAMBDA+8*A 


07177 





40000 





01407 




ADD 


L(l) 


07200 


-0 


76000 





00003 




SSM 




07201 


1 


00001 


2 


07202 




TXI 


L23090#B*1 


07202 





60100 


1 


15526 


L23090 


STO 


LAMBDA+6*A 


07203 





60200 


4 


15305 


L23130 


SLW 


ALPHA»C 


07204 





50200 





01406 




CLS 


L(0) 


07205 





60100 


1 


15523 




STO 


LAMBDA+3»A 


07206 





76000 





00141 




SLN 


1 


07207 





50200 


4 


15304 


LA2000 


CLS 


ALPHA-ltC 


07210 





60100 


1 


15520 




STO 


LAMBDA* A 


07211 





50000 





01360 




CLA 


NBAR 


07212 


1 


00006 


1 


07240 




TXI 


LA4180*A»6 


07213 





60200 


4 


15305 


L43130 


SLW 


ALPHA»C 


07214 





50200 





01406 




CLS 


LCO) 


07215 





60100 


1 


15531 




STO 


LAM8DA+9»A 


07216 





76000 





00141 




SLN 


1 


07217 





50200 


4 


15302 


LA4000 


CLS 


ALPHA-3»C 


07220 





60100 


1 


15520 


LA4010 


STO 


LAMBDA tA 


07221 





50200 





01360 




CLS 


NBAR 


07222 





77100 





00022 




ARS 


18 


07223 





60200 


4 


15303 




SLW 


ALPHA-2tC 


07224 





60200 


1 


15522 




SLW 


LAMBDA+2*A 


07225 





60100 


1 


15523 




STO 


LAMBDA+3»A 


07226 


-0 


75400 


2 


00000 




PXD 


*B 


07227 





77100 





00022 




ARS 


18 


07230 





60100 


1 


15525 




STO 


LAMBDA+5#A 


07231 





60100 


4 


15304 




STO 


ALPHA-1»C 


07232 


-0 


76000 





00003 




SSM 




07233 





60100 


1 


15526 




STO 


LAMBDA+6*A 


07234 


1 


77777 


2 


07235 




TXI 


LA4150»B»-1 


07235 


-0 


50000 





01524 


LA4150 


CAL 


ADSTAR 


07236 





60200 


1 


15524 




SLW 


LAMBDA+4»A 


07237 


-0 


75400 


2 


00000 


LA4170 


PXD 


*B 


07240 





77100 





00022 


LA4180 


ARS 


18 


07241 





60100 


1 


15530 




STO 


LAMBDA+8*A 


07242 


-0 


60200 


1 


15531 




ORS 


LAMBDA+9»A 


07243 


-0 


50000 





01525 




CAL 


STRSTR 


07244 





60200 


1 


15527 




SLW 


LAMBDA+7»A 


07245 


-0 


50000 





01522 




CAL 


ADSPOP 


07246 


-0 


50100 





15302 




ORA 


FSBITS 


07247 


-0 


50100 





15303 




ORA 


FNBITS 


07250 





60200 


1 


15532 




SLW 


LAMBDA+10»A 


07251 


1 


77767 


1 


00000 


LA4320 


TXI 


***A*-9 


07252 


-0 


75400 


2 


00000 


L32000 


PXD 


*B 


07253 





77100 





00022 




ARS 


18 


07254 





60100 


1 


15530 




STO 


LAMBDA+8»A 


07255 





40000 





01407 




ADD 


L(l) 



STO SCN+1) IN LAMBDA+3(L+l)+2 
-(N+l) TO -N 

STO S(N+1) IN LAMBDA+3(L+2)+2 



-(N+l) TO -N 

STO -N IN LAMBDA+3(L+2) 

STO «N IN ALPHA +A 

STO -0 IN LAMBDA+3(L+1) 



STO C(ALPHA+A-1) IN LAMBDA+3L 

STO -(N+2) IN ALPHA+A 
STO -0 IN LAMBDA43(L+3) 

STO C(ALPHA+A-3) IN LAMBDA+3L 



STO-N IN ALPHA+A-2 

STO S(N) IN LAMBDA+3L+2 

STO -N IN LAMBDA+3(L+1) 



STO S(N+1) IN LAMBDA+3(L+l)+2 
STO- (N+l ) IN ALPHA+A- 1 

STO -(N+l) IN LAMBDA+31L+2) 
-(N+l) TO -(N+2) 

STO * IN LAMBDA+3(L+1)+1 



STOS(N+2) IN LAMBDA+3(L+2>+2 
STO -(N+2) IN LAMBDA+3(L+3) 

STO SPOP IN LAMBDA+3(L+2)+l 



STO SPOP IN LAMBDA+3(L+3)+l 



STO 5 (N+2) !N LAMBDA+3 ( L+2 )+2 



4F13882 

4F13883 

4F13884 

4F13885 

4F13886 

4F13887 

4F13888 

4F13889 

4F13890 

4F13891 

4F13892 

4F13893 

4F13894 

4F13895 

4F13896 

4F13897 

4F13898 

4F13899 

4F13900 

4F13901 

4F13902 

4F13903 

4F13904 

4F13905 

4F13906 

4F13907 

4F13908 

4F13909 

4F13910 

4F13911 

4F13912 

4F13913 

4F13914 

4F13915 

4F13916 

4F13917 

4F13918 

4F13919 

4F13920 

4F13921 

4F 13922 

4F13923 

4F13924 

4F13925 

4F13926 

4F13927 

4F13928 

4F13929 

4F13930 

4F13931 

4F13932 

4F13933 

4F13934 

4F13935 



07256 
0725? 
07260 
07261 
07262 
07263 
07264 
07265 
07266 
07267 
07270 
07271 
07272 
07273 
07274 
07275 
07276 
07277 
07300 
07301 
07302 
07303 
07304 
07305 
07306 
07307 
07310 
07311 
07312 
07313 
07314 
07315 
07316 
07317 
07320 
07321 



1 00001 
-0 75400 
77100 
60100 
40000 
-0 76000 



00001 
60100 
60200 
50200 
60100 
76000 
50200 
60100 
50200 
77100 
60200 
60200 
60100 
00003 
77775 

-0 63400 

-0 63400 
1 77777 

-0 63400 
00000 

-0 50000 

02000 

1 77775 
-0 63400 

1 77777 

1 77772 
-0 63400 

1 77777 
-0 63400 

1 77777 



07266 
00000 
00022 
15533 
01407 
00003 
07265 
15531 
15305 
01406 
15526 
00141 
15303 
15520 
01360 
00022 
15304 
15522 
15523 
07237 
07303 
01117 
15277 
07306 
01360 
06346 
01524 
06347 
07313 
01117 
07320 
07316 
01117 
07320 
15300 
07304 



L33000 



L33090 
L33130 



LA3000 



CM4100 
CM4101 
CM4102 

CM4104 
CM4105 
MS020 

CM4200 
CM4201 

CM4300 
CM4301 

CM4303 



TXI L33130»B»1 

PXD »B 

ARS 18 

STO LAMBDA+lltA 

AOO L(l) 

SSM 

TXI L33090»B»1 

STO LAMBDA+9»A 

SLW ALPHA »C 

CLS LCO) 

STO LAMBDA+6»A 

SLN 1 

CLS ALPHA-2iC 

STO LAMBDA* A 

CLS NBAR 

ARS 18 

SLW ALPHA- 1»C 

SLW LAMBDA+2»A 

STO LAMB0A+3»A 

TXI LA4l70#At3 

TXI CM4101»A»-3 

SXD 3LBAR»A 

SXD CBAR»B 

TXI CM4104»B*-1 

SXO NBAR»B 

*»* MS010*0 

CAL ADSTAR 

TRA MS030 

TXI CM4201»A»-3 

SXO 3LBAR»A 

TXI CM4303#C#-1 

TXI CM4301#A»-6 

SXD 3LBAR»A 

TXI CM4303tC»-l 

SXD ABAR*C 

TXI CM4102»B»-1 



-{N+2J TO -CN+1) 

STO SCN+2J IN LAMBDA+3(L+3>+2 



-(N+2» TO -CN+1) 

STO -(N+l) IN LAMBDA+3 ( L+3 ) 

STO ~{N+1> IN ALPHA+A 



STO CtALPHA+A-2> IN LAMBDA+3L 



STO -N IN ALPHA+A-1 
STO S(N) IN LAMBDA+3L+2 
STO -N IN LAMBDA+3 { L+l ) 

LA COUNTER MODIFICATION ROUTINES 



* # * # 



**#*************** 



07322 -0 

07323 
07324 
07325 
07326 
07327 
07330 

07331 -0 

07332 



63400 1 
60200 O 
07400 1 
00000 
50000 
40000 
60100 01352 
53400 1 06745 
02000 1 00001 



06745 C3390 

01112 

03321 

00015 

01352 

01407 



07333 -0 63400 4 07366 SSOCOX 

07334 07400 4 02614 



CLOSED SUBROUTINE TO MAKE ENTRIES IN H0LAR6 TABLE 

SXD C3357»l SAVE CALLING IR 

SLW 16 MOVE WORD TO BE ENTERED TO 1G 

TSX TET00»1 GO TO ENTER WORD IN HOLARG TABLE 

13 
CLA HOLCNT 

ADD LCI) UPDATE HOLCNT 
STO HOLCNT 

LXD C3357.1 RELOAD CALLING IR 

TRA 1,1 RETURN TO CALLER+1 

###♦*#*«***#****************** 

PROGRAM TO SIMPLIFY THE TREATMENT OF RELATIVE ADDRESSES IN 
SECTION ONE THRU THE USE OF THE RAOOO SUBROUTINE BY STATE B 

SXD SSIR4»4 SAVE CALLING TAG. 

TSX SS000»4 GO TO SUBSCRIPT SCAN AND ANALYSIS ROUTINE 



4F13936 
4F13937 
4F13938 
4F13939 
4F13940 
4F13941 
4F13942 
4F 13943 
4F13944 
4F13945 
4F13946 
4F 13947 
4F13948 
4F13949 
4F 13950 
4F13951 
4F13952 
4F13953 
4F13954 
4F13955 
4F13956 
4F13957 
4F13958 
4F 13959 
4F13960 
4F13961 
4F 13962 
4F13963 
4F 15964 
4F13965 
4F13966 
4F13967 
4F13968 
4F13969 
4FI3970 
4F13971 

♦4F13972 
4F13973 
4F13974 
4F13975 
4F 13976 
4F13977 
4F13978 
4F13979 
4F13980 
4F13981 
4F13982 
4F13983 

•4F13984 
4F13985 
4F13986 

► 4F13987 
4F13988 

i 4F 13989 



n C 



u 






07335 





07400 


4 


02437 


TSX 


RA000.4 


07336 


-0 


50000 





01351 


CAL 


6TAG 


07337 


-0 


32000 





01527 


ANA 


MASK1 


07340 





60200 





01141 


SLW 


E+ll 


07341 





07400 


4 


00450 


TSX 


SI61IX.4 


07342 





76700 





00017 


ALS 


15 


07343 


-0 


60200 





01126 


ORS 


E 


07344 


-0 


53400 


4 


07366 


LXD 


SSIR4»4 


07345 





02000 


4 


00001 


TRA 


1*4 



GO ENTER. THIS RELATIVE ADDRESS IN SIGMA1. 

POSITION SIGMA TAG. 

ADD SIGMA TAG TO I-TAU TAGS IN E# 

RELOAD CALLING TAG. 

RETURN TO CALLER +1. 



*************** 



*************** 



07346 
07347 
07350 
07351 
07352 

07353 
07354 
07355 
07356 
07357 
07360 
07361 
07362 
07363 
07364 
07365 
07366 
07367 
07370 
07371 
07372 
07373 
07374 
07375 
07376 
07377 
07400 
07401 
07402 
07403 
07404 
07405 
07406 
07407 
07410 
07411 
07412 



60100 
•0 63400 4 
60000 

50000 

1 00000 



60000 
63400 
60000 
50000 
63000 
63000 
14000 
07400 
60200 
34000 
00000 
00000 
34000 
00000 
75400 
60100 
S0000 
76700 
40000 
76700 
40000 
00000 
14000 
60100 
00000 
34000 
00000 
00000 
34000 
00000 
00000 

ooooo 



01103 
07352 
01100 
07370 
07357 

01103 
07352 
01100 
07370 
07400 
07412 
07362 
01707 
01124 
01423 
07367 
07533 
01373 
07404 
00000 
01102 
01103 
00002 
01103 
00001 
01102 
07421 
07427 
01103 
07362 
01403 
07412 
07356 
07542 
07412 
07431 
07470 



ROYCNV 

EXIT 
DECPNT 



NC7 
IN2 



NC5 



SSIR4 

NCI 

CM1 



CM2 



NC2 



CM3 



STO 
SXD 
STZ 
CLA 
TXI 

STZ 

SXD 
STZ 
CAL 
STP 
STP 
TOV 
TSX 
SLW 
CAS 
TXI 
TXI 
CAS 
TXL 
PXD 
STO 
CLA 
ALS 
ADD 
ALS 
ADD 
TXH 
TOV 
STO 
TXI 
CAS 
TXI 
TXI 
CAS 
TXI 
TXI 
TXH 



N 

EXIT»4 

DOE 

CM1 

CM2 

CM3 

NC5 

C0190*4 

CHSAVE 

L(H) 

NC1*0 

HEXIT»0 

TEN 

NC2»0 

»0 

H 

N 

2 

N 

1 

H 

NC3*0 

NC4 

N 

NC5»0 

POINT 

CM3»0 

NC7*0 

L(E) 

CM3»0 

EC1»0 

FN4*0 



GO TO RELATIVE ADDRESS COMPUTATION ROUTINE. 4F13990 

4r 13991 
4F13992 
4F13993 
4F13994 
4F13995 
4F13996 
4F13997 
4F13998 
4F13999 
♦4F14000 
4F14001 
4F14002 
4F14003 
4F14004 
4F14005 
4F14006 
4F14007 
4F14008 
4F14009 
4F14010 
4F14011 
4F14012 
4F14013 
4F14014 
4F14015 
4F14016 
4F14017 
4F14018 



ROYCNV. 4/ CALLS=C0190»FXCNIX»FLCNIX*DIA6. 

ROYCNV DOES FIXED AND FLOATING POINT CONVERSION FOR SECTION 

ARITHMETIC. ,„,-«,■.* 

ROYCNV= ENTRY POINT FOR FIXED OR FLOATING POINT INTEGERS. 
N SAVE DECIMAL DIGIT IN N. 

EX IT»4 SAVE CCXR4) FOR RETURN. 

D0E CLEAR DOE (IMPLICIT EXPONENT). 

CM1 PICK UP SWITCH CONTROL* 

IN2.0.** AND GO SET SWITCH. 

DECPNT* ENTRY POINT FOR FLOATING POINT FRACTIONS. 



CLEAR N (NO INTEGER). 
SAVE CCXR4) FOR RETURN. 
CLEAR DOE (IMPLICIT EXPONENT). 
PICK UP SWITCH CONTROL. 
SET SWITCHES CM2» AND 
CMS. 

TURN OFF OV TRIGGER. 
GO GET NEXT NB CHARACTER IN THE AC.4F14019 

SAVE IT FOR STATE B» AND THEN 4F14020 

COMPARE IT WITH H. 4F14021 

IF H» GO TO HEX1T. 4F14022 

IF NOT H* CONTINUE 4F140 23 

AND COMPARE WITH TEN. 4F140 24 
CHAR EXCEEDS 10* SO IS NON-NUMERIC.4F14025 

CLEAR THE AC (MACHINE ERROR). 4F14026 

CHARACTER IS NUMERIC. SO HOLD IT. 4F140 27 

MULTIPLY THE PREVIOUS 4F14028 
PARTIAL RESULT (OR ZERO) _ 4F14029 

BY 10* 4F14030 

AND ADD IN 4F14031 

THE CURRENT DIGIT. 4F14032 

SWITCH (NO TRANSFER IF INTEGER). 4F14033 

TEST OVERFLOW* AND 4F14034 

IF NONE* SAVE NEW PARTIAL RESULT. 4F14035 

THEN GO PICK UP NEXT CHARACTER. 4F14036 

COMPARE NON-NUMERIC WITH A POINT. 4F14037 

IF GREATER THAN 27* GO OUT. 4F14038 

IF POINT* GO BACK AND SET SWITCH. 4F14039 

IF LESS THAN 27* COMPARE WITH E. 4F14040 

IF GREATER THAN 21* GO OUT. 4F14041 

IF E» GO TO EXPONENT ROUTINE. 4F14042 

SWITCH (NO TRANSFER IF INTEGER). 4F14043 



a 





07413 





50000 





01103 




CLA 


N 




07414 





76700 





00022 


MS9506 


ALS 


18 




07415 





60100 





01347 




STO 


G 




07416 





07400 


4 


00417 




TSX 


FXCNIX»4 




07417 


-0 


50100 





01517 




ORA 


FIXVAR 





07420 


1 


00000 





07521 




TXI 


EXITR.O 




07421 





14000 





07426 


NC3 


TOV 


NC8 




07422 





60100 





01103 




STO 


N 




07423 





50200 





01407 




CLS 


HI) 




07424 





40000 





01100 


NC9 


ADD 


DOE 




07425 





60100 





01100 




STO 


DOE 


D 


07426 


1 


00000 





07362 


NC8 


TXI 


NC5.0 




07427 





50000 





01407 


NC4 


CLA 


L(l) 


D 


07430 


1 


00000 





07424 




TXI 


NC9.0 




07431 





07400 


4 


01707 


EC1 


TSX 


C0190.4 




07432 





60200 





01124 




SLW 


CHSAVE 




07433 





60000 





01101 




STZ 


EKE 




07434 


. 


34000 





01401 




CAS 


112 


D 


07435 


1 


00000 





07465 




TXI 


FN5.0 





07436 


1 


00000 





07444 




TXT 


EC3»0 




07437 





34000 





01404 




CAS 


12Z 





07440 


1 


00000 





07465 




TXI 


FN5.0 


D 


07441 


1 


00000 





07451 




TXI 


EC6t0 




07442 





34000 





01420 




CAS 


MINUS 


D 


07443 


1 


00000 





07465 




TXI 


FN5.Q 




07444 





50200 





01101 


EC3 


CLS 


EKE 




07445 





34000 





01373 




CAS 


TEN 


D 


07446 


1 


ooooo 





07465 




TXI 


FN5»0 




07447 


-0 


75400 





OOOOO 


EC4 


PXD 


♦ 




07450 





60100 





01101 


EC5 


STO 


EKE 




07451 





07400 


4 


01707 


EC6 


TSX 


C0190#4 




07452 





60200 





01124 




SLW 


CHSAVE 




07453 





34000 





01373 




CAS 


TEN 


D 


07454 


1 


ooooo 





07465 




TXI 


FN5tO 




07455 


-0 


75400 





OOOOO 




PXD 


»0 




07456 





60100 





01102 




STO 


H 




07457 





50000 





01101 




CLA 


EKE 




07460 





76700 





00002 




ALS 


2 




07461 





40000 





01101 




ADD 


EKE 




07462 





76700 





00001 




ALS 


1 




07463 





36100 





01102 




ACL 


H 


D 


07464 


1 


ooooo 





07450 




TXI 


EC5.0 




07465 





50000 





01101 


FN5 


CLA 


EKE 




07466 





40000 





01100 




ADD 


DOE 




07467 





60100 





01100 




STO 


DOE 




07470 





50000 





01103 


FN4 


CLA 


N 




07471 





10000 





07516 




T2E 


MS9500 




07472 





62100 





07535 




STA 


Kl 




07473 





77100 





00017 




ARS 


15 




07474 





10000 





07476 




TZE 


FN1 




07475 


-0 


50100 





07536 




ORA 


K2 




07476 





30000 





07535 


FN1 


FAD 


Kl 




07477 


-0 


77300 





00010 




ROL 


8 




07500 





76000 





00010 




RND 





PICK UP CONVERTED CONSTANT* AND *£}*°*2 
STORE IN THE 4F14045 

DECREMENT OF G. AND 4F14046 

GO MAKE FIXCON ENTRY. 4F14047 

CREATE INTERNAL FXD-PT VARIABLE #AND4F14048 



60 TAKE EXITR. 

IF THERE WAS NO OVERFLOW. 

SAVE PARTIAL RESULT* AND 

SUBTRACT 1 FROM DOE 

TO ADJUST EXPONENT 

IN FINAL RESULT. 

THEN GO PICK UP NEXT CHARACTER. 

ADD 1 TO DOE . 

IF THERE WAS INTEGER OVERFLOW. 

GO GET NEXT NB CHARACTER IN THE AC.4F14058 

SAVE IT FOR STATE B. AND 4F14059 

CLEAR EKE (EXPLICIT EXPONENT). 4F14060 

COMPARE CHARACTER WITH A DASH. 4F14061 



4F14049 
4F14050 
4F14051 
4F14052 
4F14053 
4F14054 
4F14055 
4F14056 
4F14057 



IF GREATER THAN 32* GO OUT. 
IF A DASH. SET EKE MINUS. 



4F14062 
4F14063 



IF LESS THAN 32. COMPARE WITH PLUS.4F14064 
IF GREATER THAN 16. GO OUT. 4F14065 
IF PLUS. GO EXAMINE NEXT CHAR. 4F14066 
IF LESS THAN 16.C0MPARE WITH MINUS. 4F14067 
IF GREATER THAN 12. GO OUT. 4F14068 
IF MINUS. SET EKE TO -0. 4F14069 

COMPARE WITH TEN. 4F14070 

IF NON-NUMERIC. GO EXAMINE NEXT CH.4F14071 
CLEAR ACC. 4F14072 

SAVE PARTIAL RESULT(OR 0) IN EKE. 4F14073 
GO GET NEXT NB CHARACTER IN THE AC.4F14074 
SAVE IT FOR STATE B. 4F14075 

AND COMPARE WITH TEN. 4F14076 

CHAR EXCEEDS 10» SO IS NON-NUMERIC. 4F14077 
CLEAR THE AC (MACHINE ERROR). 4F14078 
CHARACTER IS NUMERIC. SO HOLD IT. 4F14079 
MULTIPLY THE PREVIOUS 4F14080 

PARTIAL RESULT (OR ZERO) 4F14081 

BY 10. 4F14082 

AND ADD IN 4F14083 

THE CURRENT DIGIT. 4F14084 

CONTINUE UNTIL NON-NUMERIC IS MET. 4F14085 
COMBINE EXPLICIT EXPONENT 4F14086 

WITH IMPLICIT EXPONENT. 4F14087 

AND SAVE IN DOE. 4F14088 

IF N CONTAINS ZERO. TAKE 4F14089 

FLO PT CONSTANT RETURN. 4F14090 

PUT INTEGER INTO FLO PT WORD. 4F14091 
ADJUST. AND 4F14092 

IF MORE THAN 15 BITS IN LENGTH 4F14093 
AFFIX CORRECT EXPONENT. 4F14094 

THEN FLOATING ADD THE RESULT 4F14095 
OF INTEGER CONVERSION, AND 4F14096 

ROUND —TO OBTAIN 4F14097 



< / 



u 



u 



07501 


-0 


50100 


07537 




ORA 


K3 


07502 





53400 1 


01100 




LXA 


D0E*1 


07503 


-3 


00000 1 


07516 




TXL 


MS95OO*l*0 


07504 


-3 


00062 1 


07506 




TXL 


FN2*1*50 


07505 


1 


00000 


07532 




TXI 


CER»0 


07506 





56000 


01100 


FN2 


LDQ 


DOE 


07507 





16200 


07524 




TOP 


FN3 


07510 





24100 1 


07623 




FDP 


TAB,1 


07511 


-0 


60000 


01103 




STQ 


N 


07512 





50000 


01103 




CLA 


N 


07513 





36100 


07540 




ACL 


K4 


07514 


-0 


76000 


00001 




PBT 




07515 


1 


0O000 


07532 




TXI 


CER»0 


07516 





60100 


01347 


MS9500 


STO 


G 


07517 





07400 4 


00424 




TSX 


FLCNIX*4 


©7520 


-0 


50100 


01513 




ORA 


FLOVAR 


07521 





60200 


01130 


EXITR 


SLW 


E+2 


07522 


-0 


53400 4 


07352 




LXD 


EXIT»4 


07523 





02000 4 


00002 




TRA 


2»4 


07524 





60100 


01103 


FN3 


STO 


N 


07525 





56000 


01103 




LDQ 


N 


07526 





26000 1 


07623 




FMP 


TABtl 


07527 





36100 


07541 




ACL 


K5 


07530 


-0 


76000 


00001 




PBT 




07531 


1 


00000 


07516 




TXI 


MS9500*0 


07532 





07400 4 


03400 


CER 


TSX 


DIA6*4 


07533 


-0 


53400 4 


07352 


HEXIT 


LXD 


EXIT*4 


07534 





02000 4 


00001 




TRA 


1*4 


07535 


+233000000000 


Kl 


OCT 


233000000000 


07536 


+252000000000 


K2 


OCT 


252000000000 


07537 


+000400000000 


K3 


OCT 


400000000 


07540 


+335000000000 


K4 


OCT 


335000000000 


07541 


+043000000000 


K5 


OCT 


43000000000 


07542 


000000000025 


L<E) 


BCD 


100000E 


07543 


+375536246150 




OCT 


375536246150 


07544 


+372430204754 




OCT 


372430204754 


07545 


+366700324573 




OCT 


366700324573 


07546 


+363546566774 




OCT 


363546566774 


07547 


+360436770626 




OCT 


360436770626 


07550 


+354713132675 




OCT 


354713132675 


07551 


+351557257061 




OCT 


351557257061 


07552 


+346445677215 




OCT 


346445677215 


07553 


+342726145174 




OCT 


342726145174 


07554 


+337570120775 




OCT 


337570120775 


07555 


+334454732312 




OCT 


334454732312 


07556 


+330741367020 




OCT 


330741367020 


07557 


+325601137163 




OCT 


325601137163 


07560 


+322464114134 




OCT 


322464114134 


07561 


+316755023372 




OCT 


316755023372 


07562 


+313612334310 




OCT 


313612334310 


07563 


+310473426555 




OCT 


310473426555 


07564 


+304770675742 




OCT 


304770675742 



NORMALIZED RESULT* 

EXAMINE THE C(DOE)* AND 

IF ZERO* TAKE FLO PT RETURN. 

IF GREATER THAN 50* THEN 

ERROR* — GO TO DIAGNOSTIC* 

DETERMINE WHETHER INTEGER WAS 

TO THE RIGHT OR TO THE LEFT OF DP 

IF TO THE RIGHT* DIVIDE BY A 

SUITABLE CONSTANT 

TO ADJUST RESULT 

AND TEST FOR OUT OF RANGE* 

IF P»l* SKIP TO ARITH RETURN* 

ERROR* —GO TO DIAGNOSTIC* 

STORE IN Gt AND 

GO MAKE FLOCON ENTRY* 

CREATE INTERNAL FLO-PT VARIABLE* 

SAVE VARIABLE IN E+2* 

RESTORE THE C(XR4). AND 

RETURN TO MAIN ROUTINE* 

IF INTEGER WAS SITUATED 

TO THE LEFT OF THE DECIMAL POINT* 

MULTIPLY BY A SUITABLE 

CONSTANT TO ADJUST AND TEST RANGE 

IF P«l* SKIP TO ERROR* 

RETURN TO ARITHMETIC ROUTINE* 

CONVERSION ERROR* GO TO DIAGNOSTI 

RESTORE THE CCXR4J* AND 

RETURN TO MAIN ROUTINE* 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 

48-TABLE 
47-TABLE 
46-TABLE 
45-TABLE 
44-TABLE 
43-TABLE 
42-TABLE 
41-TABLE 
40-TABLE 
39-TABLE 
38-TABLE 
37-TABLE 
36-TABLE 
35-TABLE 
34-TABLE 
33-TABLE 
32-TABLE 
31-TABLE 



USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 

USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 
USED BY 



ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 

ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV. 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 
ROYCNV* 



4F14098 
4F14099 
4F14100 
4F14101 
4F14102 
4F14103 
4F14104 
4F14105 
4F14106 
4F14107 
4F14108 
4F14109 
4F14110 
4F14111 
4F14112 
4F14113 
4F14114 
4F14115 
4F14116 
4F14117 
4F14118 
4F14119 
4F14120 
4F14121 
4F14122 
C*4F14123 
4F14124 
4F14125 
4F14126 
4F14127 
4F14128 
4F14129 
4F14130 
4F14131 
4F14132 
4F14133 
4F14134 
4F14135 
4F14136 
4F14137 
4F14138 
4F14139 
4F14140 
4F14141 
4F14142 
4F14143 
4F14144 
4F14145 
4F14146 
4F14147 
4F14148 
4F14149 
4F14150 
4F14151 



7C^ 



07565 
07566 
07567 
07570 
07571 
07572 
07573 
07574 
07575 
07576 
07577 
07600 
07601 
07602 
07603 
07604 
07605 
07606 
07607 
07610 
07611 
07612 
07613 
07614 
07615 
07616 
07617 
07620 
07621 
07622 
07623 



07624 



+301623713116 
+276503074076 
+273402374713 
+267635456171 
+264512676456 
+261410545213 
+255647410337 
+252522640262 
+247417031702 
+243661534466 
+240532743536 
+235425434430 
+231674055530 
+226543212741 
+223434157116 
+217706576512 
+214553630410 
+211443023471 
+205721522451 
+202564416672 
+177452013710 
+173734654500 
+170575360400 
+165461132000 
+161750220000 
+156606500000 
+153470400000 
+147764000000 
+144620000000 
+141500000000 
+136400000000 



TAB 



OCT 


301623713116 


30-TABLE 


USED 


BY 


ROYCNV. 


OCT 


276503074076 


29-TABLE 


USED 


BY 


ROYCNV. 


OCT 


273402374713 


28-TABLE 


USED 


BY 


ROYCNV. 


OCT 


267635456171 


27-TABLE 


USED 


BY 


ROYCNV. 


OCT 


264512676456 


26-TABLE 


USED 


BY 


ROYCNV. 


OCT 


261410545213 


25-TABLE 


USED 


BY 


ROYCNV. 


OCT 


255647410337 


24-TABLE 


USED 


BY 


ROYCNV. 


OCT 


252522640262 


23-TABLE 


USED 


BY 


ROYCNV. 


OCT 


247417031702 


22-TABLE 


USED 


BY 


ROYCNV* 


OCT 


243661534466 


21-TABLE 


USED 


BY 


ROYCNV. 


OCT 


240532743536 


20-TABLE 


USED 


BY 


ROYCNV. 


OCT 


235425434430 


19-TABLE 


USED 


BY 


ROYCNV. 


OCT 


231674055530 


18-TABLE 


USED 


BY 


ROYCNV. 


OCT 


226543212741 


17-TABLE 


USED 


BY 


ROYCNV. 


OCT 


223434157116 


16-TABLE 


USED 


BY 


ROYCNV. 


OCT 


217706576512 


15-TABLE 


USED 


BY 


ROYCNV. 


OCT 


214553630410 


14-TABLE 


USED 


BY 


ROYCNV. 


OCT 


211443023471 


13-TABLE 


USED 


BY 


ROYCNV. 


OCT 


205721522451 


12-TABLE 


USED 


BY 


ROYCNV. 


OCT 


202564416672 


11-TABLE 


USED 


BY 


ROYCNV. 


OCT 


177452013710 


10-TABLE 


USED 


BY 


ROYCNV. 


OCT 


173734654500 


09-TABLE 


USED 


BY 


ROYCNV. 


OCT 


170575360400 


08-TABLE 


USED 


BY 


ROYCNV. 


OCT 


165461132000 


07-TABLE 


USED 


BY 


ROYCNV. 


OCT 


161750220000 


06-TABLE 


USED 


BY 


ROYCNV. 


OCT 


156606500000 


05-TABLE 


USED 


BY 


ROYCNV. 


OCT 


153470400000 


04-TABLE 


USED 


BY 


ROYCNV. 


OCT 


147764000000 


03-TABLE 


USED 


BY 


ROYCNV. 


OCT 


144620000000 


02-TABLE 


USED 


BY 


ROYCNV. 


OCT 


141500000000 


01-TABLE 


USED 


BY 


ROYCNV. 


OCT 


136400000000 
END OF PROGRAM ROYCNV. 


OO-TABLE 


USED 


BY 


ROYCNV. 




************ 


******** 


***** 



* * * * * 



00001 01230 SIG1ST PZE SIGMA1+2»»1 
07625 STATEC BSS 

15215 ORG 2701+4096 

15215 ARGREG BSS 50 

15277 CBAR BSS 1 

15300 ABAR BSS 1 

15301 FSTYPE BSS 1 

15302 FSBITS BSS 1 

15303 FNBITS BSS 1 

15304 FNCTR BSS 1 

15305 ALPHA BSS 139 
15520 LAMBDA BSS 1200 

END OF ARITHMETIC / STATE B. 
*************** 



*************** 



ARITHMETIC / STATE C» 

STATE C. PERFORMS OPTIMIZATION ON LAMBDA TABLE. 



07625 



ORG STATEC 



4F14152 
4F14153 
4F14154 
4F14155 
4F14156 
4F14157 
4F14158 
4F14159 
4F14160 
4F14161 
4F14162 
4F14163 
4F14164 
4F14165 
4F14166 
4F14167 
4F14168 
4F14169 
4F14170 
4F14171 
4F14172 
4F14173 
4F14174 
4F14175 
4F14176 
4F14177 
4F14178 
4 F 14 179 
4F14180 
4F14181 
4F14182 
4F 14183 

*4F14184 
4F14185 
4F14186 
4F141865 
4F14187 
4F14188 
4F14189 
4F14190 
4F14191 
4F14192 
4F14193 
4F 14194 
4F14195 
4F14196 
4F14197 
4F14198 

•4F14199 
4F14200 
4F14201 
4F14204 
4F14205 
4F14206 



7 



/v/ 



U 



U 



07625 





56000 





01406 


ROOOOO 


LDQ 


L(0) 




07626 


-0 


53400 


1 


01360 




LXD 


NBAR»A 




07627 


-0 


63400 


1 


07636 




SXD 


R00700»A 




07630 


-0 


63400 


1 


07714 




SXO 


R05200*A 




07631 


-0 


63400 


1 


10266 




SXD 


AS0800*A 




07632 


-0 


63400 


1 


10313 




SXD 


AS2900«A 




07633 





53400 


7 


01406 




LXA 


L<0)*7 




07634 


-0 


60000 


2 


15044 


R00500 


STQ 


BETA*B 




07635 


1 


77777 


2 


07636 




TXI 


R00700*Bi 


>-l 


07636 


3 


00000 


2 


07634 


R00700 


TXH 


R00500#Bi 


>0 


07637 





50000 





01117 




CLA 


3LBAR 




07640 





62200 





07651 




STD 


R01700 




07641 





62200 





07726 




STD 


R06200 




07642 





50000 


1 


15520 


R01000 


CLA 


LAMBDA* A 




07643 





73400 


2 


00000 




PAX 


0*B 




07644 





50000 


2 


15044 




CLA 


BETA»B 




07645 





40000 





01506 




ADD 


BETAD1 




07646 





62200 


2 


15044 




STD 


BETA»B 




07647 





62100 


2 


15044 




STA 


BETAtB 




07650 


1 


77775 


1 


07651 




TXI 


R01700*Ai 


>-3 


07651 


3 


00000 


1 


07642 


R01700 


TXH 


R01000»Ai 


»0 


07652 


3 


77772 


1 


07703 


R01800 


TXH 


RQ4200»Ai 


>~6 


07653 





50000 


1 


15515 




CLA 


LAMBDA-3 


► A 


07654 





73400 


2 


00000 




PAX 


0»B 




07655 





50000 


2 


15044 




CLA 


BETA»B 




07656 





40200 





01506 




SUB 


BETAD1 




07657 





10000 





07661 




TZE 


R02600 




07660 


1 


00003 


1 


07652 




TXI 


R01800»A( 


»3 


07661 





56000 


1 


15516 


R02600 


LDQ 


LAMBDA-2 


► A 


07662 


-0 


76300 





00006 




LGL 


6 




07663 





40200 





01401 




SUB 


11Z 




07664 


-0 


10000 





07666 




TNZ 


R03200 




07665 


1 


00003 


1 


07652 




TXI 


R0180Q*A 


>3 


07666 


-0 


50000 





01527 


R03200 


CAL 


MASK1 




07667 





32000 


1 


15515 




ANS 


LAMBDA-3 


»A 


07670 





50000 


1 


15512 




CLA 


LAMBDA-6 


► A 


07671 


-o 


50100 


1 


15515 




OR A 


LAMBDA-3 


► A 


07672 





60200 


1 


15512 




SLW 


LAMBDA-6 


► A 


07673 


-0 


50000 


1 


15516 




CAL 


LAMBDA-2 


»A 


07674 


-0 


32000 





01470 




ANA 


MASK5 




07675 


-0 


60200 


1 


15513 




ORS 


LAMBDA-5 


»A 


07676 


-0 


50000 


1 


15517 




CAL 


LAMBDA-1 


>A 


07677 





60200 


1 


15514 




SLW 


LAMBDA-4 


»A 


07700 





60000 


2 


15044 




STZ 


BETA»B 




07701 





60000 


1 


15515 




STZ 


LAMBDA-3 


lA 


07702 


1 


00003 


1 


07652 




TXI 


R01800»A 


i3 


07703 





60000 





01347 


R04200 


STZ 


G 




07704 





.53400 


7 


01406 




LXA 


LI0>*7 




07705 





50000 


2 


15044 


R04500 


CLA 


BETA»B 




07706 





10000 





07713 




TZE 


R05100 




07707 





56000 





01347 




LDQ 


G 




07710 


-0 


62000 


2 


15044 




SLQ 


B£TA»B 




07711 





40000 





01347 




ADD 


G 




07712 





62200 





01347 




STD 


G 





CLEAR MQ 
LDXA WITH -N 



CLEAR XA»XB»XC» 



ADD INTO GAMMA COUNTERS 



(-3)*2**18+(-3) 



-3L IN XA AT END 

EXIT FROM SINGLE ELEMENT REDUCTION 



SINGLE ELEMENT 
EXAMINE OPERATION 



SINGLE ELEMENT* NON-UNARY OP 
EXTRACT TAGS AND STORE BACK 



EXTRACT FS BITS AND STORE BACK 



STORE BACK SYMBOL 

REDUCE GAMMA COUNT TO 
CLEAR TAG WORD 
RESUME SCAN-BACK 

CLEAR XA»XB»XC 

SET ORIGINS OF SCRIPL TABLE 



4F14207 

4F14208 

4F14209 

4F14210 

4F14211 

4F14212 

4F14213 

4F14214 

4F14215 

4F14216 

4F14217 

4F14218 

4F14219 

4F14220 

4F14221 

4F14222 

4F14223 

4F14224 

4F14225 

4F14226 

4F14227 

4F14228 

4F14229 

4F14230 

4F14231 

4F14232 

4F14233 

4F14234 

4F 14235 

4F14236 

4F14237 

4F 14238 

4F14239 

4F14240 

4F14241 

4F14242 

4F14243 

4F14244 

4F14245 

4F14246 

4F14247 

4F14248 

4F14249 

4F14250 

4F14251 

4F14252 

4F14253 

4F14254 

4F14255 

4F14256 

4F14257 

4F14258 

4F14259 

4F14260 



T 



07713 


1 


77777 


2 


07714 


R05100 


TXI 


R05200#B»-1 


07714 


3 


00000 


2 


07705 


R05200 


TXH 


R04500*B»0 


07715 


-0 


50000 


1 


15520 


R05300 


CAL 


LAMBDA* A 


07716 





10000 





07725 




TZE 


R06100 


07717 





60200 


4 


15520 




SLW 


LAMBDA »C 


07720 





50000 


1 


15521 




CLA 


LAMBDA +1 » A 


07721 





60100 


4 


15521 




STO 


LAMBDA+1»C 


07722 





50OO0 


1 


15522 




CLA 


LAMBDA+2*A 


07723 





60100 


4 


15522 




STO 


LAMBDA+2»C 


07724 


1 


77775 


4 


07725 




TXI 


R06100*C#-3 


07725 


1 


77775 


1 


07726 


R06100 


TXI 


R06200»A«-3 


07726 


3 


00000 


1 


07715 


R0620O 


TXH 


R05300*A*0 


07727 


-0 


63400 


4 


07750 




SXD 


R07800#C 


07730 


-0 


63400 


4 


10074 




SXO 


CS0760*C 


07731 





53400 


1 


01406 




LXA 


LfO)»A 


07732 





50000 


1 


15520 


R06400 


CLA 


LAMBDA »A 


07733 





73400 


2 


00000 




PAX 


0*B 


07734 





50000 


2 


15044 




CLA 


BETA»B 


07735 


-0 


73400 


4 


00000 




PDX 


0*C 


07736 





50000 


1 


15520 




CLA 


LAMBDA » A 


07737 





60100 


4 


16650 




STO 


SCR I PL »C 


07740 





50000 


1 


15521 




CLA 


LAMBDA+1»A 


07741 





60100 


4 


16651 




STO 


SCRIPL+1»C 


07742 





50000 


1 


15522 




CLA 


LAMBDA+2»A 


07743 





60100 


4 


16652 




STO 


SCRIPL+2»C 


07744 


1 


77775 


4 


07745 




TXI 


R075O0«Ct-3 


07745 


-0 


75400 


4 


00000 


R07500 


PXO 


OtC 


07746 





62200 


2 


15044 




STD 


BETA»B 


07747 


1 


77775 


1 


07750 




TXI 


R07800«A»-3 


07750 


3 


00000 


1 


07732 


R07800 


TXH 


R06400tA*0 


07751 





56000 





01406 


CS0OO0 


LDQ 


L(0) 


07752 


-0 


50000 


1 


16645 


CS0010 


CAL 


SCRIPL-3tA 


07753 


o 


10000 





07762 




TZE 


CS0080 


07754 





73400 


2 


00000 


CS0030 


PAX 


0*B 


07755 


-3 


00000 


2 


10062 




TXL 


CS0660*B»0 


07756 





62100 





07754 




STA 


CS0030 


07757 





50000 


2 


15044 




CLA 


BETA*8 


07760 





73400 


4 


00000 


CS0060 


PAX 


OfC 


07761 


-3 


77772 


4 


07763 




TXL 


CS0090»C»-6 


07762 


1 


00003 


1 


07752 


CS0080 


TXI 


CS0010»A«3 


07763 


-0 


63400 


1 


10036 


CS0090 


SXD 


CS0470#A 


07764 


-0 


63400 


4 


01357 




SXD 


LENGTH.C 


07765 


-3 


00000 


4 


07770 


CS0100 


TXL 


CS0130»C»0 


07766 


1 


00003 


1 


07767 




TXI 


CS0120*A»3 


07767 


1 


00003 


4 


07765 


CS0120 


TXI 


CS0100»Ct3 


07770 


-0 


50000 


1 


16645 


CS0130 


CAL 


5CRIPL-3tA 


07771 


-0 


10000 





07773 




TNZ 


CS0151 


07772 


1 


00003 


1 


07770 




TXI 


CS0130tA»3 


07773 





73400 


2 


00000 


CS0151 


PAX 


0»B 


07774 


-3 


00000 


2 


10055 




TXL 


CS0610»B»0 


07775 





62100 





07760 




STA 


CS0060 


07776 





50000 


2 


15044 




CLA 


BETA»B 


07777 





73400 


4 


00000 




PAX 


O.C 


10000 


-0 


75400 


4 


00000 




PXD 


OtC 



DEC(IU«DEC(ACC)*-3P AT END 

STRIN6 BEADS»»« COMPRESS LAMBDA TABLE 



-3P IN XC AT END 

STORE ORDERED* REDUCED LAMBDA TABLE 
IN SCRIPL TABLE 



-3P IN XA AT END 
ELIMINATE COMMON SEGMENTS 

ERASED SEGMENT - CONTINUE BACK-SCAN 

EXIT FROM CS ROUTINE 



AT LEAST TWO ELEMENTS 

ONE ELEMENT OR ERASED SEGMENT 

SAVE XA 

SAVE XC» CONTAINING LENGTH OF SEGMENT 

SEARCH UP FOR MATCHING SEGMENT 



ERASED SEGMENT 

GO ON TO NEXT SEGMENT 



4F14261 
4F14262 
4F14263 
4F14264 
4F14265 
4F14266 
4F14267 
4F14268 
4F14269 
4F14270 
4F14271 
4F 14272 
4F14273 
4F14274 
4F14275 
4F14276 
4F14277 
4F14278 
4F14279 
4F14280 
4F14281 
4F14282 
4F14283 
4F14284 
4F14S85 
4F14266 
4F 14287 
4F14288 
4F14289 
4F14290 
4F14291 
4F14292 
4F14293 
4F14294 
4F14295 
4F14296 
4F14297 
4F 14298 
4F14299 
4F14300 
4F14301 
4F14302 
4F14303 
4F14304 
4F14305 
4F14306 
4F14307 
4F14308 
4F14309 
4F14310 
4F14311 
4F14312 
4F14313 
4F14314 



7S* 



u 



u 



10001 
10002 
10003 
10004 
10005 
10006 
10007 
10010 
10011 
10012 
10013 
10014 
10015 
10016 
10017 
10020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 
10O30 
10031 
10032 
10033 
10034 
10035 
10036 
10037 
10040 
10041 
10042 
10043 
10044 
10045 
10046 
10047 
10050 
10051 
10052 
10053 
10054 
10055 
10056 
10057 
10060 
10061 
10062 
10063 
10064 
10065 
10066 



40200 
10000 
53400 
63400 
00000 
50000 
40200 
10000 
50000 
32000 
60200 
50000 
32000 
76000 
36100 
76000 
10000 
50000 
77100 
76700 
40200 
10000 
00003 
00003 
00003 
50000 
32000 
34000 
00003 
00000 
00003 
50000 
62100 
53400 
53400 
00000 
60000 
00003 
00003 
53400 
60000 
50000 
60200 
00000 
53400 
53400 
00000 
00003 
00003 
53400 
50000 
10000 
60200 
50000 



01357 
07765 
10036 
10054 
10032 
16647 
16647 
07765 
16645 
01527 
01347 
16645 
01527 
00006 
01347 
00006 
07765 
16646 
00006 
00006 
16646 
07765 
10030 
10031 
10005 
16650 
01452 
16647 
10034 
10040 
10034 
07754 
16647 
01357 
10054 
10050 
16645 
10047 
10044 
07760 
15044 
01401 
16651 
07770 
10036 
01357 
07752 
10061 
10057 
01406 
16650 
10073 
16650 
16651 



CS0250 



CS0360 
CS0370 
CS0430 

CS0450 

CS0470 

CS0490 

CS0530 



CS0560 
CS0570 



CS0600 
CS0610 

CS0630 

CS0650 
CS0660 
CS0670 



SUB 
TNZ 
LXD 
SXD 
TXL 
CLA 
SUB 
TNZ 
CAL 
ANA 
SLW 
GAL 
ANA 
COM 
ACL 
COM 
TNZ 
CLA 
ARS 
ALS 
SUB 
TNZ 
TXI 
TXI 
TXI 
CAL 
ANA 
CAS 
TXI 
TXI 
TXI 
CLA 
STA 
LXD 
LXD 
TXL 
STQ 
TXI 
TXI 
LXA 
STQ 
CAL 
ORS 
TXI 
LXD 
LXD 
TXL 
TXI 
TXI 
LXA 
CAL 
TZE 
SLW 
CLA 



LENGTH 

CS0100 

CS0470«B 

CS0600»A 

CS0430»C»0 

SCRIPL-1»B 

SCRIPL-1#A 

CS0100 

5CRIPL-3»B 

MASK1 

G 

SCRIPL-3»A 

MASK1 



CS0100 

SCRIPL-2»B 

6 

6 

SCRIPL-2#A 

CS0100 

CS0360»A»3 

CS0370>B»3 

CS0250»C#3 

SCRIPLfA 

MASK2 

SCRIPL-1»A 

CS0450»At3 

CS0490»0#0 

CS0450»A*3 

CS0030 

SCRIPL-1»A 

LENGTH»C 

CS0600»A 

CS0570»CtO 

SCRIPL-3»A 

CS0560*A*3 

CS053Q*C#3 

CS006Q*C 

BETA»C 

11Z 

SCRIPL+1»B 

C50130*0»0 

CS0470#A 

LENGTHtC 

CS0010»C»0 

CS0650»A»3 

CSO630#C»3 

LC0J.5 

SCRIPLtA 

CS0750 

SCRIPLtC 

SCRIPL+1»A 



NOT SAME LENGTH SEGMENT-CONTINUE SEARCH 
SAME LENGTH SEGMENT 

MATCHING SEGMENTS 



SYMBOLS MATCH 



TAGS MATCH 



OPS MATCH 



MATCHING SEGMENTS 
SEARCH FOR REFERENCES 



CHANGE REFERENCE 



ERASE DUPLICATE SEGMENT 



STORE CS BIT 



STRING BEADS* •• COMPRESS SCRIPL TABLE 



4F14315 

4F14316 

4F14317 

4F14318 

4F14319 

4F14320 

4F14321 

4F14322 

4F14323 

4F14324 

4F14325 

4F14326 

4F14327 

4F14328 

4F14329 

4F14330 

4F14331 

4F14332 

4F14333 

4F14334 

4F14335 

4F14336 

4F14337 

4F 14338 

4F14339 

4F14340 

4F14341 

4F14342 

4F 14343 

4F14344 

4F14345 

4F14346 

4F14347 

4F 1*348 

4F14349 

4F14350 

4F14351 

4F14352 

4F14353 

4F14354 

4F14355 

4F14356 

4F14357 

4F14358 

4F14359 

4FI4360 

4F14361 

4F14362 

4F14363 

4F14364 

4F14365 

4F14366 

4F14367 

4F14368 



"?' 



10067 





60100 


4 


16651 




STO 


SCRIPL+liC 


10070 





50000 


1 


16652 




CLA 


SCRIPL+2»A 


10071 





60100 


4 


16652 




STO 


SCRIPL+2»C 


10072 


1 


77775 


4 


10073 




TXI 


CS0750»C»-3 


10073 


1 


77775 


1 


10074 


CSO750 


TXI 


CS0760»A»-3 


10074 


3 


00000 


1 


10063 


CS0760 


TXH 


CS0670»A»0 


10075 


-0 


63400 


4 


10111 




SXD 


PM0080#C 


10076 


-0 


63400 


4 


10300 




SXD 


AS1800tC 


10077 


-0 


63400 


4 


10323 




SXD 


AS3600»C 


10100 





76000 





00140 


PM0000 


SLF 




10101 





53400 


1 


01406 




LXA 


L(0) »A 


10102 





50000 


1 


16650 


PMOQ10 


CLA 


SCRIPL*A 


10103 





73400 


2 


00000 




PAX 


O.B 


10104 





50000 


2 


15044 




CLA 


BETA»B 


10105 





73400 


4 


00000 




PAX 


0»C 


10106 


-0 


63400 


4 


10110 




SXD 


PM0070*C 


10107 


-3 


77767 


4 


10113 




TXL 


PMQ100#C»-9 


10110 


1 


00000 


1 


10111 


PM0070 


TXI 


PM0080»A»0 


10111 


-3 


00000 


1 


10256 


PM0080 


TXL 


ASO0OO»A»O 


10112 





02000 





10102 




TRA 


PM0010 


10113 





56000 


1 


16651 


PM0100 


LDQ 


SCRIPL+1»A 


10114 


-0 


75400 





00000 




PXD 


0*0 


10115 


-0 


76300 





00006 




LGL 


6 


10116 





40200 





01405 




SUB 


STAR 


10117 


-0 


10000 





10110 




TNZ 


PM0070 


10120 





16200 





10122 




TOP 


PM0170 


10121 





02000 





10110 




TRA 


PM0070 


10122 


-0 


63400 


4 


10131 


PM0170 


SXD 


PM0260»C 


10123 


-0 


63400 


4 


10147 




SXD 


PM0400«C 


10124 


-0 


63400 


4 


10200 




SXD 


PM0680»C 


10125 





53400 


4 


01406 




LXA 


L(0)»C 


10126 


1 


77775 


1 


10127 




TXI 


PM0240»A»-3 


10127 





76000 





00143 


PM0240 


SLN 


3 


10130 


1 


77775 


4 


10131 


PM0250 


TXI 


PM0260»Ct-3 


10131 


-3 


00000 


4 


10212 


PM0260 


TXL 


PMQ790*C»Q 


10132 


-0 


63400 


4 


10142 




SXD 


PM0340#C 


10133 


-0 


53400 


2 


10134 




LXD 


PM0290#B 


10134 


1 


00000 


3 


10135 


PM0290 


TXI 


PM0300»3#0 


10135 


-0 


75400 





00000 


PM0300 


PXD 


0*0 


10136 





56000 


1 


16651 




LDQ 


SCRIPL+ltA 


10137 


-0 


76300 





00006 




LGL 


6 


10140 





34000 





01402 




CAS 


SLASH 


10141 





00007 





00000 


FEXUB 


HTR 


0»0»7 


10142 


-3 


00000 





10174 


PM0340 


TXL 


PM0640*0»0 


10143 


-0 


76000 





00143 




SLT 


3 


10144 


1 


77775 


1 


10127 




TXI 


PM0240»A»-3 


10145 


1 


77775 


2 


10146 




TXI 


PM0390»B«-3 


10146 


1 


77775 


4 


10147 


PM0390 


TXI 


PM04O0*C»-3 


10147 


-3 


00000 


4 


10210 


PM0400 


TXL 


PM0770»CiO 


10150 


-0 


75400 





00000 




PXD 


0*0 


10151 





56000 


2 


16651 




LDQ 


SCRlPL+ltB 


10152 


-0 


76300 





00006 




LGL 


6 


10153 





40200 





01402 




SUB 


SLASH 


10154 





10000 





10156 




TZE 


PM0480 



-3Q IN XC AT END 



TURN OFF ALL SENSE LITES 
PERMUTE * AND / 



LDXC WITH SEGMENT LENGTH 



LENGTH LESS THAN 3 OR OD NOT * TO* 
EXIT FROM PERMUTATION ROUTINE 

SEGMENT LENGTH AT LEAST » TO 3 



LDXC WITH 
TURN * LITE ON 
EXIT 

XA TO XA AND XB 



/ SIGN 

« SIGN»»« IS * LITE ON 

NO 

YES - SEARCH FOR / SIGN 

EXIT 



4F14369 
4F14370 
4F14371 
4F14372 
4F14373 
4F14374 
4F14375 
4F14376 
4F14377 
4F14378 
4F14379 
4F14380 
4F14381 
4F14382 
4F14383 
4F14384 
4F14385 
4F14386 
4F14387 
4F14388 
4F14389 
4F14390 
4F14391 
4F14392 
4F14393 
4F14394 
4F14395 
4F14396 
4F14397 
4F14398 
4F14399 
4F14400 
4F14401 
4F14402 
4F14403 
4F14404 
4F14405 
4F14406 
4F14407 
4F14408 
4F14409 
4F14410 
4F14411 
4F14412 
4F14413 
4F14414 
4F14415 
4F14416 
4F14417 
4F14418 
4F14419 
4F14420 
4F14421 
4F14422 



r'( 



u 



u 



10155 
10156 
10157 
10160 
10161 
10162 
10163 
10164 
10165 
10166 
10167 
10170 
10171 
10172 
10173 
10174 
10175 
10176 
10177 
10200 
10201 
10202 
10203 
10204 
10205 
10206 
10207 
10210 
10211 
10212 
10213 
10214 
10215 
10216 
10217 
10220 
10221 
10222 
10223 
10224 
10225 
10226 
10227 
10230 
10231 
10232 
10233 
10234 
10235 
10236 
10237 
10240 
10241 
10242 



77775 
50000 
56000 
60000 
60100 
50000 
56000 
60000 
60100 
50000 
56000 
60000 
60100 
53400 
77775 
76000 
77775 
77775 
77775 
00000 
75400 
56000 
76300 
40200 
10000 
76000 
02000 
53400 
00000 
75400 
56000 
76300 
40200 
10000 
75400 
56000 
76300 
40200 
10000 
50000 
60100 
50000 
60100 
50000 
60100 



1 00003 



00003 
00000 
50000 
60100 
50000 
60100 
50000 



60100 



10146 
16650 
16650 
16650 
16650 
16651 
16651 
16651 
16651 
16652 
16652 
16652 
16652 
10142 
10130 
00143 
10177 
10130 
10200 
10210 
00000 
16651 
00006 
01402 
10175 
00143 
10156 
10211 
10212 
00000 
16646 
00006 
01402 
10111 
00000 
16643 
00006 
01402 
10111 
16645 
01126 
16646 
01127 
16647 
01130 
10233 
10234 
10244 
16645 
16650 
16646 
16651 
16647 
16652 



PM0480 



PM0640 
PM0650 

PM0670 
PM0680 



PM0770 
PM0780 
PM0790 



PM0980 
PM0990 



TXI 
CLA 
LDQ 
STQ 
STO 
CLA 
LDQ 
STQ 
STO 
CLA 
LDQ 
STQ 
STO 
LXD 
TXI 
SLT 
TXI 
TXI 
TXI 
TXL 
PXD 
LDQ 
LGL 
SUB 
TZE 
SLN 
TRA 
LXD 
TXI 
PXD 
LDQ 
LGL 
SUB 
TZE 
PXD 
LDQ 
LGL 
SUB 
TZE 
CLA 
STO 
CLA 
STO 
CLA 
STO 
TXI 
TXI 
TXL 
CLA 
STO 
CLA 
STO 
CLA 
STO 



PM0390»B»-3 

SCRIPLiA 

SCRIPL#B 

SCRIPL»A 

SCRIPL»B 

SCRIPL+1*A 

SCRIPL+1»B 

SCRIPL+ltA 

SCRIPL+1»B 

SCRIPL+2»A 

SCRIPL+2fB 

SCRIPL+2»A 

SCRIPL+2»B 

PM0340#C 

PM0250»A»-3 

3 

PM0670«B»-3 

PM025O*At-3 

PM0680»C«-3 

PM0770»C»0 

0*0 

SCRIPL+1*B 

6 

SLASH 

PM0650 

3 

PM0480 

PM0780#A 

PM0790«3»0 

0*0 

SCRIPL-2»A 

6 

SLASH 

PM0080 

0*0 

SCRIPL-5»A 

6 

SLASH 

PM0080 

SCRIPL-3»A 

E 

SCRIPL-2»A 

E+l 

SCRIPL-lfA 

E*2 

PM0980»A»3 

PM0990*C»3 

PM1070»C»0 

SCRIPL-3»A 

SCRIPL»A 

SCRIPL-2»A 

SCRIPL+1»A 

SCRIPL-1*A 

SCRIPL+2*A 



PERMUTE TAG WORDS 



PERMUTE OP WORDS 



PERMUTE SYMBOL WORDS 



RESUME SEGMENT SCAN 
/ SIQH... IS * LITE ON 
NO 



TORN * LITE ON 
XB TO XA»XB 

••• / - EXIT FROM SEGMENT SCAN 



*♦./*- EXIT FROM SEGMENT SCAN 
»•• ** 



FINIS 



4F14423 

4F 14424 

4F14425 

4F14426 

4 F 1442 7 

4F14428 

4F14429 

4F14430 

4F14431 

4F14432 

4F14433 

4F14434 

4F14435 

4F14436 

4F14437 

4F14438 

4F 14439 

4F14440 

4F14441 

4F14442 

4F14443 

4F14444 

4F14445 

4F14446 

4F14447 

4F14448 

4F 14449 

4F14450 

4F14451 

4F14452 

4F14453 

4F14454 

4F14455 

4 F 144 56 

4F 14457 

4F14458 

4F14459 

4F14460 

4F14461 

4F14462 

4F14463 

4F 14464 

4F14465 

4F14466 

4F 14467 

4F14468 

4F14469 

4F14470 

4F14471 

4F14472 

4F14473 

4F14474 

4F 14475 

4F14476 



10243 


1 


00003 


1 


10233 




TXI 


PM0980tAt3 


10244 





50000 





01126 


PM1070 


CLA 


E 


10245 





60100 


1 


16650 




STO 


SCRlPLtA 


10246 





50000 





01127 




CLA 


E+l 


10247 





60100 


1 


16651 




STO 


SCRIPL+ltA 


10250 





50000 





01130 




CLA 


E+2 


10251 





6O100 


1 


16652 




STO 


SCRIPL+2»A 


10252 


-0 


50000 


1 


16654 




CAL 


SCRIPL+4»A 


10255 


-0 


32000 





01401 




ANA 


112 


10254 


-0 


60200 


1 


16651 




ORS 


SCRIPL+lfA 


10255 





02000 





10110 




TRA 


PM0070 


10256 





53400 


7 


01406 


A50000 


LXA 


L(0)f7 


10257 





50000 


2 


15044 


AS0100 


CLA 


BETAtB 


10260 





10000 





10265 




TZE 


AS0700 


10261 


-0 


75400 


4 


00000 




PXD 


0*C 


10262 





77100 





00022 




ARS 


18 


10263 





62100 


2 


15044 




STA 


BETA»B 


10264 


1 


77777 


4 


10265 




TXI 


AS0700tCt-l 


10265 


1 


77777 


2 


10266 


AS0700 


TXI 


AS0800tBt-l 


10266 


3 


00000 


2 


10257 


AS0800 


TXH 


ASOlOOtBtO 


10267 





50000 


1 


16650 


AS0900 


CLA 


SCRlPLtA 


10270 





73400 


2 


00000 




PAX 


OtB 


10271 





50000 


2 


15044 




CLA 


BETA»B 


10272 





62100 


1 


16650 




STA 


SCRlPLtA 


10273 





56000 


1 


16652 




LDQ 


SCRIPL+2tA 


10274 


-0 


76300 





00001 




LGL 


1 


10275 





76000 





00001 




LBT 




10276 





16200 





10302 




TOP 


AS2000 


10277 


1 


77775 


1 


10300 




TXI 


AS1800»A»-3 


10300 


3 


00000 


1 


10267 


AS1800 


TXH 


AS0900*A»0 


10301 





02000 





10307 




TRA 


AS2500 


10302 


-0 


76300 





00043 


AS2000 


LGL 


35 


10303 





73400 


2 


00000 




PAX 


OtB 


10304 





50000 


2 


15044 




CLA 


BETAtB 


10305 





62100 


1 


16652 




STA 


SCRIPL+2«A 


10306 


1 


77775 


1 


10300 




TXI 


AS1800#A«-3 


10307 





53400 


3 


01406 


AS2500 


LXA 


L(0)t3 


10310 





56000 





01406 




LDQ 


LCO) 


10311 


-0 


60000 


2 


15044 


AS2700 


STQ 


BETAtB 


10312 


1 


77777 


2 


10313 




TXI 


AS2900*Bt-l 


10313 


3 


000 00 


2 


10311 


AS2900 


TXH 


AS2700»B»0 


10314 





50000 


1 


16650 


AS3000 


CLA 


SCRlPLtA 


10315 





73400 


2 


00000 




PAX 


OtB 


10316 





50000 


2 


15044 




CLA 


BETAtB 


10317 





40000 





01462 




ADD 


BETAD2 


10320 





62200 


2 


15044 




STD 


BETAtB 


10321 





62100 


2 


15044 




STA 


BETA»B 


10322 


1 


77775 


1 


10323 




TXI 


AS3600»A»-3 


10323 


3 


00000 


1 


1031A 


AS3600 


TXH 


AS3000»A»0 


10324 


-0 


63400 


1 


01117 




SXD 


3QBAR»A 


10325 


-0 


50000 


1 


16645 


CCSOOO 


CAL 


SCRIPL-3tA 


10326 





73400 


2 


00000 




PAX 


OtB 


10327 


-3 


00000 


2 


10354 




TXL 


CCS240tBt0 


10330 


-0 


50000 


2 


15044 




CAL 


BETAtB 



PRESERVE CS BIT 



RENUMBER SEGMENT OF SCRIPL 



LOXAtXB WITH 

CLEAR MO 

RECLEAR BETA TABLE 



ADD INTO GAMMA COUNTERS 



3*2**18+ (-3) 



-30 IN XA AT END 

-3Q TO 3QBAR * 3LBAR 

ELIMINATE COMMON SUBEXPRESSIONS 

LOAD XB WITH S< I ) 

EXIT AT SCO) 

OBTAIN LENGTH OF S(I> 



4F 14477 

4F14478 

4F14479 

4F14490 

4F14481 

4F14482 

4F14483 

4F14484 

4F14485 

4F14486 

4F14487 

4F14488 

4F14489 

4F14490 

4F14491 

4F14492 

4F14493 

4F14494 

4F14495 

4F14496 

4F 14497 

4F 14498 

4F14499 

4F 14500 

4F14501 

4F14502 

4F14503 

4F14504 

4F14505 

4F 14506 

4F14507 

4F14508 

4F14509 

4F14510 

4F14511 

4F14512 

4F14513 

4F14514 

4F14515 

4F14516 

4F14517 

4F14518 

4F14519 

4F14520 

4F14521 

4F14522 

4F14523 

4F14524 

4F14525 

4F14526 

4F14527 

4F14528 

4F14529 

4F14530 



/>■' 



u 



u 



10331 





62200 





10332 




STD 


CCS060 




10332 


1 


00000 


1 


10333 


CCS060 


TXI 


CCS070»A* 


>0 


10333 


-0 


50000 


1 


16651 


CCS070 


CAL 


SCRIPL+1) 


► A 


10334 


-0 


32000 





01401 




ANA 


112 




10333 





10000 





10325 




TZE 


CCSOOO 




10336 


-0 


75400 


2 


OOOOO 




PXD 


0»B 




10337 





77100 





00022 




ARS 


18 




10340 





53400 


4 


01406 




LXA 


L<0)»C 




10341 


-0 


53400 


2 


10342 




LXD 


CCS 140 »B 




10342 


1 


OOOOO 


3 


10343 


CCS140 


TXI 


CCS150»3 


► 


10343 


-3 


00000 


2 


10350 


CCS150 


TXL 


CCS200»B 


► 


10344 





34000 


2 


16647 




CAS 


SCRIPL-1 


»B 


10345 


1 


00003 


2 


10343 




TXI 


CCS150»Bi 


► 3 


10346 


1 


00001 


4 


10347 




TXI 


CCS190»G 


► 1 


10347 


1 


00003 


2 


10343 


CCS190 


TXI 


CCSl5Q»Bi 


► 3 


10350 


3 


00001 


4 


10325 


CCS200 


TXH 


CCSO00»C 


► 1 


10351 


-0 


50000 





01530 




CAL 


MASK4 




10352 





32000 


1 


16651 




ANS 


SCRIPL+1 


»A 


10353 





02000 





10325 




TRA 


CCSOOO 




10354 


-0 


53400 


1 


10323 


CCS240 


LXD 


AS3600»A 




10355 


-3 


OOOOO 


1 


10610 


PLOOOO 


TXL 


LK0O00»A 


► 


10356 





50000 


1 


16645 




CLA 


SCRIPL-3 


► A 


10357 





73400 


2 


OOOOO 




PAX 


0*3 




10360 


»o 


50000 


2 


15044 




CAL 


BETA#B 




10361 





73400 


4 


OOOOO 




PAX 


OfC 




10362 





62200 





10363 




STD 


PL0060 




10363 


1 


OOOOO 


1 


10364 


PL0060 


TXI 


PL0070»A 


► 


10364 


-0 


75400 





OOOOO 


PL0070 


PXD 


0*0 




10365 





56000 


1 


16651 




LDQ 


SCRIPL+1 


iA 


10366 


-0 


76300 





00006 




LGL 


6 




10367 





34000 





01427 




CAS 


SPECOP 




10370 





02000 





10465 




TRA 


PL0680 




10371 





02000 





10427 




TRA 


PL0460 




10372 


-0 


75400 





OOOOO 


PL0130 


PXD 


OtO 




10373 





56000 


1 


16652 




LDQ 


SCRIPL+2 


»A 


10374 


-0 


76300 





00001 




LGL 


1 




10375 





76000 





00001 




LBT 






10376 





16200 





10410 




TOP 


PL0300 




10377 


-0 


76300 





00005 




LGL 


5 




10400 





34000 





01423 


PL0135 


CAS 


L(H) 




10401 





34000 





01425 




CAS 


L(0) 




10402 





02000 





10405 




TRA 


PL0240 




10403 





02000 





10405 




TRA 


PL0240 




10404 





02000 





10355 




TRA 


PLOOOO 




10405 


-0 


50000 





01416 


PL0240 


CAL 


L(8) 




10406 


-0 


60200 


1 


16651 


PL0250 


ORS 


SCRIPL+1 


>A 


10407 


1 


OOOOO 





10355 


PL0260 


TXI 


PLOOOO»0 


»0 


10410 


-0 


53400 


2 


10411 


PL0300 


LXD 


PL0310»B 




10411 


1 


OOOOO 


3 


10412 


PL0310 


TXI 


PL0320*3 


»0 


10412 


=0 


63400 


4 


10413 


PL0320 


SXD 


PL0330*C 




10413 


1 


OOOOO 


2 


10414 


PL0330 


TXI 


PL0340»B 


»0 


10414 


-0 


50000 


2 


16650 


PLC340 


CAL 


SCRIPL»B 




10415 





73400 


4 


OOOOO 




PAX 


0*C 




10416 


-0 


32000 





01452 




ANA 


MASK2 





AND BACK UP TO p/ . UCMt 
BEGINNING OF CURRENT SEGMENT 

OBTAIN 0P1 (S(I> ) 

EXTRACT CS-BIT 

CONTINUE TO S(I-l) 



TO S(I) 

AND KEEP COUNT OF SAME 

XA TO XA»XB 

SEARCH-UP FINISHED* EXAMINE COUNT 

CONTINUE SEARCH 
RAISE REF COUNTER AND 
CONTINUE SEARCH 
MULTIPLE REFERENCE 
SINGLE REFERENCE - SO SET 
OPKSII) )30 TO 0» AND 
CONTINUE FOR S( 1-1) 
-3Q TO XA 
GO TO LINKAGE 



SET XA TO BEGINNING OF Sil) 

OBTAIN 

AND 

EXAMINE 0P1 iS(D) 



0P1 (S(I)J IS +> - OR * 

OBTAIN 

AND 

EXAMINE SYM1 (5(11) 

EX UN1TERNAL VAR1AVLE 

IS SYM1 (S<I)> FIX OR FLO PT 

FLO ?!• + • SET 0P1 (SUM 32 = 1 
FLO PT»«» DITTO 
FIX PT»«. 0P1 CS(I)) 32 = 
SET 0P1 (S(I>) 32 = 1 

CONTINUE SCAN 

SYM1 (S(I>) « SOME S(J) 

XA TO XA»XB 



4F14531 

4F14532 

4F14533 

4F14534 

4F14535 

4F14536 

4F14537 

4F14538 

4F14539 

4F14540 

4F14541 

4F14542 

4F14543 

4F14544 

4F14545 

4F14546 

4 F 145 47 

4F 14548 

4F14549 

4F14550 

4F14551 

4F14552 

4F14553 

4F14554 

4F14555 

4F1455& 

4F14557 

4F14558 

4F14559 

4F 14560 

4F14561 

4F14562 

4F14563 

4F14564 

4F 14565 

4F14566 

4F14567 

4F14568 

4F14569 

4F14570 

4F 14571 

4F14572 

4F14573 

4F14574 

4F14575 

4F14576 

4F14577 

4F14578 

4F14579 

4F14580 

4F14581 

4F14582 

4F 14583 

4F14584 



10417 





40200 


1 


16652 




SUB 


SCRIPL+2»A 


10420 





10000 





10424 




TZE 


PL0420 


10421 





50000 


4 


15044 




CLA 


BETAtC 


10422 





73400 


4 


00000 




PAX 


0»C 


10423 





02000 





10412 




TRA 


PL0320 


10424 


-0 


50000 


2 


16651 


PL0420 


CAL 


SCRIPL+1»B 


10425 


-0 


32000 





01416 




ANA 


L(8> 


10426 





02000 





10406 




TRA 


PL0250 


10427 


-0 


76300 





000 07 


PL0460 


LGL 


7 


10430 





16200 





10437 




TOP 


PL0465 


10431 





56000 


1 


16652 


PL0461 


LDQ 


SCRIPL+2»A 


10432 


-0 


75400 





00000 




PXD 


0*0 


10433 


-0 


76300 





00006 




LGL 


6 


10434 





40200 





01433 




SUB 


LfX) 


10435 


-0 


10000 





10405 




TNZ 


PL0240 


10436 





02000 





10355 




TRA 


PLOOOO 


10437 





76000 





00001 


PL0465 


LBT 




10440 





02000 





10445 




TRA 


PL0470 


10441 





56000 


1 


16652 




LDQ 


SCRIPL+2*A 


10442 


-0 


75400 





00000 




PXD 


♦ 


10443 


-0 


76300 





00006 




LGL 


6 


10444 





02000 





10400 




TRA 


PL0135 


10445 





50000 


1 


16652 


PL0470 


CLA 


SCRIPL+2»A 


10446 





53400 


2 


01406 




LXA 


L(0)»B 


10447 





34000 


2 


11117 


PL0480 


CAS 


OPSUB»B 


10450 


1 


77777 


2 


10453 




TXI 


PL0520tB»-l 


10451 





02000 





10462 




TRA 


PL0650 


10452 


1 


77777 


2 


10453 




TXI 


PL0520»B»-1 


10453 


3 


77754 


2 


10447 


PL0520 


TXH 


PL048Q»B*-2 


10454 





60100 





01347 




STO 


G 


10455 


-0 


63400 


1 


10407 




SXD 


PL0260»A 


10456 





07400 


1 


03321 




TSX 


TETOO*A 


10457 





00000 





00011 




HTR 


9 


10460 


-0 


53400 


1 


10407 




LXD 


PL0260»A 


10461 





02000 





10431 




TRA 


PL0461 


10462 


-0 


50000 





01412 


PL0650 


CAL 


L(4) 


10463 


-0 


60200 


1 


16651 




ORS 


SCRIPL+1»A 


10464 





02000 





10431 




TRA 


PL0461 


10465 





16200 





10372 


PL0680 


TOP 


PL0130 


10466 


-0 


75400 





00000 




PXD 


0*0 


10467 





56000 


1 


16652 




LDQ 


SCRIPL+2»A 


10470 


-0 


76300 





00001 




LGL 


1 


10471 





76000 





00001 




LBT 




10472 





16200 





10550 




TOP 


PL1000 


10473 


-0 


76300 





00005 




LGL 


5 


10474 





34000 





01423 




CAS 


L(HJ 


10475 





34000 





01425 




CAS 


L(0) 


10476 





02000 





10501 




TRA 


PL0800 


10477 





02000 





10501 




TRA 


PL0800 


10500 





02000 





10503 




TRA 


PL0830 


10501 


-0 


50000 





01416 


PL0800 


CAL 


L(8) 


10502 


-0 


60200 


1 


16651 


PL0820 


ORS 


SCR1PL+1»A 


1Q503 


-0 


75400 





00000 


PL0830 


PXD 


0»0 


10504 





56000 


1 


16655 




LDQ 


SCRIPL+5»A 



SYMlfS(I)) = S(J) 

EXTRACT 0P1 «S(J>) 32 AND GO 

SET 0P1 (Sin) 32 = 0P1 (S(JJ) 32 

opi (sun is spop 

FS NAME - 

EXAMINE SUM1 IS( I ) ) S» 1-5 



FLO PT»*» GO SET OPI (SUl) 32 = 1 
FIX PT »•• 0P1 tS(I>) 32 « 



NOT AN FS NAME 



SET 0P1 (SUM 33 *1 



OPI CSU) IS ** 
OBTAIN AND 
EXAMINE 
SYM1 (Sill) 

EX (IN)TERNAL VARIABLE 
IS OT FIX OR FLO PT 



FIX PT 

FLO ?!••• SET OPI <S(I>> 32 * 1 



OBTAIN 



4F14585 

4F14586 

4F14587 

4F14588 

4F14589 

4F14590 

4F14591 

4F 14592 

4F14593 

4F14594 

4F14595 

4F14596 

4F14597 

4F14598 

4F14599 

4F14600 

4F14601 

4F14602 

4F14603 

4F14604 

4F14605 

4F14606 

4F14607 

4F14608 

4F14609 

4F14610 

4F14611 

4F14612 

4F14613 

4F14614 

4F14615 

4F14616 

4F14617 

4F14618 

4F14619 

4F14620 

4F14621 

4F14622 

4F14623 

4F14624 

4F14625 

4F 14626 

4F 14627 

4F14628 

4F14629 

4F14630 

4F14631 

4F14632 

4F 14633 

4F14634 

4F14635 

4F14636 

4F14637 

4F 14638 



u 



o 



10505 
10506 
10507 
10510 
10511 
10512 
10513 
10514 
10515 
10516 
10517 
10520 
10521 
10522 
10523 
10524 
10525 
10526 
10527 
10530 
10531 
10532 
10533 
10534 
10535 
10536 
10537 
10540 
10541 
10542 
10543 
10544 
10545 
10546 
10547 
10550 
10551 
10552 
10553 
10554 
10555 
10556 
10557 
10560 
10561 
10562 
10563 
10564 
10565 
10566 
10567 
10570 
10571 
10572 



-0 


76300 





00001 




LGL 


1 





76000 





00001 




LBT 







16200 





10567 




TOP 


PL 1200 


-0 


76300 





00005 




LGL 


5 





34000 





01423 




CAS 


L(H) 





34000 





01425 




CAS 


L(0) 





02000 





10545 




TRA 


PL0940 





02000 





10545 




TRA 


PL0940 


-0 


75400 





00000 


PL0850 


PXD 


0*0 


■0 


76300 





00006 




LGL 


6 





40200 





01375 




SUB 


OPEN 


■0 


10000 





10355 




TNZ 


PLOOOO 


-0 


76300 





00031 




LGL 


25 





40000 





10537 




ADD 


PL0880 





62100 





10515 




ST A 


PL0850 





76200 





00302 




RDR 


FXCODR 





46000 





10515 




LDA 


PL0850 





70000 





01347 




CPY 


G 





70000 





01350 




CPY 


G+l 





50000 





01347 




CLA 


G 





34000 





01350 




CAS 


6+1 





02000 





10534 




TRA 


*+2 





02000 





10535 




TRA 


PL1570 





07400 


4 


03A00 




TSX 


DIAG»4 





10000 





10355 


PL1570 


TZE 


PLOOOO 





34000 





10141 




CAS 


FEXUB 


3 


00000 





00002 


PL0880 


TXH 


FIXCONfO»0 





02000 





10355 




TRA 


PLOOOO 





60100 


1 


16655 




STO 


SCRIPL+5»A 


•0 


50000 





01412 




CAL 


L(4) 


•0 


60200 


1 


16651 




ORS 


SCRIPL+1»A 





02000 





10355 




TRA 


PLOOOO 


■0 


50000 





01416 


PL0940 


CAL 


L(8) 


■0 


60200 


1 


16654 




ORS 


SCRIPL+4»A 





02000 





10355 




TRA 


PLOOOO 


•0 


53400 


2 


10551 


PL1000 


LXD 


PLIOlOtB 


1 


00000 


3 


10552 


PL1010 


TXI 


PL1020»3*0 


>0 


63400 


4 


10553 


PL1020 


SXD 


PL1030*C 


1 


00000 


2 


10554 


PL1030 


TXI 


PL1040»B»0 


•0 


50000 


2 


16650 


PL1040 


CAL 


SCRIPLtB 





73400 


4 


00000 




PAX 


0»C 


•0 


32000 





01452 




ANA 


MASK2 





40200 


1 


16652 




SUB 


SCRIPL+2»A 





10000 





10564 




TZE 


PL1130 





50000 


4 


15044 




CLA 


B£TA»C 





73400 


4 


00000 




PAX 


0»C 





02000 





10552 




TRA 


PL1020 


•0 


50000 


2 


16651 


PL1130 


CAL 


SCRlPL+liB 


•0 


32000 





01416 




ANA 


L<8) 





02000 





10502 




TRA 


PL082Q 


■0 


53400 


2 


10570 


PL1200 


LXD 


PL1210*B 


1 


00000 


3 


10571 


PL121Q 


TXI 


PLl220t3»0 


•0 


53400 


4 


10603 


PL1220 


LXD 


PL1330»C 


■0 


63400 


4 


10573 


PL1230 


SXD 


PL1240»C 



AND 

EXAMINE 
SYM2 tSUH 



SYM2 (SU>> IS FLO PT» SO GO 
SET 0P2 tSUH 32 = 1 
SYM2(SU1I IS FIX PT 



SYM2 fSU)> IS EXTERNAL 

SYM2 CSdM IS INTERNAL (AND FIX PT) 



GO TO THE DIAGNOSTIC. 

* GO TO THE DIAGNOSTIC. 
EXP IS 0* SO 0P1 IS(I>) 33 * 

EXP NOT LESS THAN 7» SO 

opi rsun 33 = 

EXP LESS THAN 7» SO STORE EXP 
AS SY.M2 IS<I») AND SET 
0P1 fS(I>) 33 = 1 

SYM2 (StlU IS FLO PT 
SET 0P2 (SUM 32= 1 

SYM1 (SUM IS SOME St J) 
XA TO XA»XB 



SYM2 (SUM * SOME SU) 
XA TO XA»XB 
LKXC WITH -6 



4F14639 

4F14640 

4F14641 

4F14642 

4F 14643 

4F14644 

4F14645 

4F 14646 

4F14647 

4F14648 

4F14649 

4F14650 

4F14651 

4F 14652 

4F14653 

4F14654 

4F14655 

4F14656 

4F14657 

4F14658 

4F14659 

4F14660 

4F14661 

4F14662 

4F14663 

4F 14664 

4F14665 

4F 14666 

4F14667 

4F14668 

4F14669 

4F14670 

4F14671 

4F14672 

4F14673 

4F14674 

4F14675 

4F14676 

4F14677 

4F14678 

4F14679 

4F14680 

4F14681 

4F14682 

4F14683 

4F14684 

4F14685 

4F14686 

4F14687 

4F14688 

4F14689 

4F14690 

4F14691 

4F14692 



10573 


1 


00000 


2 


10574 


PL 1240 


TXI 


PL1250»B»0 


10574 


-0 


50000 


2 


16650 


PL1250 


CAL 


SCRIPLtB 


10575 





73400 


4 


00000 




PAX 


0»C 


10576 


-0 


32000 





01452 




ANA 


MASK2 


10577 





40200 


1 


16655 




SUB 


SCRIPL+5#A 


10600 





10000 





10604 




TZE 


PL1340 


10601 





50000 


4 


15044 




CLA 


BETA»C 


10602 





73400 


4 


00000 




PAX 


0»C 


10603 


1 


77772 





10572 


PL 13 30 


TXI 


PLl230»0»-6 


10604 


-0 


50000 


2 


16651 


PL1340 


CAL 


SCRIPL+1»B 


10605 


-0 


32000 





01416 




ANA 


L(8) 


10606 


-0 


60200 


1 


16654 




ORS 


SCRIPL+4*A 


10607 





02000 





10355 




TRA 


PLOOOO 


10610 


-0 


53400 


1 


10323 


LK0OO0 


LXD 


AS3600»A 


10611 


-0 


50000 


1 


16645 


LK0030 


CAL 


SCRIPL-3*A 


10612 





73400 


2 


00000 




PAX 


0»B 


10613 


-3 


00000 


2 


11020 




TXL 


LK1610tB»0 


10614 





56000 


1 


16646 




LDQ 


SCRIPL-2#A 


10615 





50000 


2 


15044 




CLA 


BETA»B 


10616 





62200 





10617 




STD 


LIC0110 


10617 


1 


00000 


1 


10620 


LIC0110 


TXI 


LIC0120tA»0 


10620 


-0 


53400 


4 


10621 


LK0120 


LXD 


LK0130fC 


10621 


1 


00000 


5 


10622 


LK0130 


TXI 


LK0140»5»0 


10622 


-0 


63400 


1 


10323 


LK0140 


SXD 


AS3600»A 


10623 





50000 


2 


15043 




CLA 


BETA-1#B 


10624 


-0 


73400 


2 


00000 




PDX 


0*8 


10625 


-0 


63400 


2 


10626 




SXD 


Ltt0180*B 


10626 


1 


00000 


4 


10627 


UC0180 


TXI 


LK0190»C»0 


10627 





16200 


o, 


10753 


LK0190 


TOP 


LK1200 


10630 


-0 


77300 





00001 




RQL 


1 


10631 





16200 





10753 




TOP 


LK1200 


10632 


-0 


50000 





01404 




CAL 


12Z 


10633 


-0 


60200 


1 


16651 




ORS 


SCRIPL+ltA 


1063* 


-0 


75400 





00000 




PXD 


0*0 


10635 





56000 


4 


16651 




LDQ 


SCRIPL+ltC 


10636 


-0 


76300 





00006 




L6L 


6 


10637 





34000 





01427 




CAS 


SPECOP 


10640 





02000 





10643 




TRA 


LK0320 


10641 





02000 





10730 




TRA 


LK0950 


10642 





02000 





10611 




TRA 


LK0030 


10643 





16200 





10664 


LKQ320 


TOP 


LK0570 


10644 


-0 


76300 





00033 




L6L 


27 


10645 


-0 


50O00 


1 


16650 




CAL 


SCRIPL»A 


10646 


-0 


32000 





01452 




ANA 


MASK2 


10647 





16200 





10657 




TOP 


LK0480 


10650 





40200 


4 


16652 




SUB 


SCRIPL+2*C 


10651 


-0 


10000 





10611 




TNZ 


LK0030 


10652 


-0 


50000 





01411 




CAL 


L(3) 


10653 


-0 


60200 


4 


16651 


LK0430 


ORS 


SCRIPL+ltC 


10654 


-0 


50000 





01436 


LK0440 


CAL 


BIT29 


10655 


-0 


60200 


1 


16651 




ORS 


SCRIPL+1*A 


10656 





02000 





10611 




TRA 


LK0030 


10657 





40200 


4 


16655 


LK0480 


SUB 


SCRIPL+5»C 


10660 


-0 


10000 





10611 




TNZ 


LK0030 



SYM2CSCI)) a SCIC) 



SET 0P2CSU)) 32 * 0P1 (S(K>) 32 



RESUME SCAN 
-3Q TO XA 

SCI) TO XB 

EXIT UPON ENCOUNTERING SCO) 

PLACE LAST OP OP SU) IN MQ 



MOVE XA TO BEGINNING OF S<I) 
XA TO XA»XC 

LENGTH OF S(I-l) TO XB 

MOVE XC TO BEGINNING OF SCI-1) 
SI I ) TYPE AC 

S(I> TYPE AC 

SCI) RESULTS IN MQ CTYPE MQ) 

SET 0P1 CSC I)) 31 « 1 

PLACE 0P1 CSCI-IH IN MQ 



SCDTYPTMQ* SCI-DTYPEAC . 0P1 t SC I ) ) 29=0 
SCDTYPE MQ» OPICSCl-l) * ** 

EXTRACT SCI) IN ACC 

0P1 CSU-D) 33 * 

0P1 CS(I-D) 33 * 1» OPEN ** SUBROUTINE. 

SET 0P1 CSt I)) 29 = 0P1 CSCI-1)) 35 = 

SCI) * SYM1 CSC !-!>)• SO 



0P1 CSCI-D) « 0. CLOSED ** SUBROUTINE. 
SET OPliSCI))29»OPlCSCI-l))35=0 



4F14693 
4F14694 
4F14695 
4F14696 
4F14697 
4F14698 
4F14699 
4F14700 
4F14701 
4F14702 
4F14703 
4F14704 
4F14705 
4F14706 
4F14707 
4F14708 
4F14709 
4F14710 
4F14711 
4F14712 
4F14713 
4F 14714 
4F14715 
4F14716 
4F14717 
4F14718 
4F14719 
4F14720 
4F14721 
4F 14722 
4F14723 
4F 14724 
4F14725 
4F14726 
4F 14727 
4F 14728 
4F 14729 
4F 14730 
4F14731 
4F14732 
4F14733 
4F14734 
4F14735 
4F14736 
4F 14737 
4F14738 
4F14739 
4F14740 
4F14741 
4F14742 
4F14743 
4F14744 
4F14745 
4F14746 



~> / 



u 



u 



10661 


-0 


50000 





01407 




CAL 


L(l) 


10662 


-0 


60200 


4 


16654 




ORS 


SCRIPL+4»C 


10663 





02000 





10654 




TRA 


LK0440 


10664 


-0 


75400 





00000 


LK0570 


PXD 


0*0 


10665 





56000 


4 


16654 




LDQ 


SCRIPL+4»C 


10666 


-0 


76300 





00006 




LGL 


6 


10667 





40200 





01405 




SUB 


STAR 


10670 


-0 


10000 





10611 




TNZ 


LK0030 


10671 


-0 


50000 





01410 




CAL 


L(2) 


10672 


-0 


60200 


4 


16651 




ORS 


SCRIPL+1»C 


10673 


-0 


50000 


1 


16650 


LK0630 


CAL 


SCRIPL»A 


10674 


-0 


32000 





01452 




ANA 


MASK2 


10675 


-3 


00000 


2 


10610 


LK0650 


TXL 


LKOOOOtBiO 


10676 





34000 


1 


16647 




CAS 


SCRIPL-1»A 


10677 


1 


00003 


1 


10702 




TXI 


LK0700»At3 


10700 





02000 





10703 




TRA 


LK0710 


10701 


1 


00003 


1 


10702 




TXI 


LK0700»A»3 


10702 


1 


77775 


2 


10675 


LK0700 


TXI 


LKG650»B»-3 


10703 





56000 


1 


16646 


LK0710 


LDQ 


SCRIPL-2»A 


10704 


-0 


77300 





00001 




RQL 


1 


10705 





16200 





10707 




TOP 


LK0750 


10706 


1 


0000 3 


1 


10702 




TXI 


LK07OO»A»3 


10707 





50000 


4 


16650 


LK0750 


CLA 


SCRIPL»C 


10710 





56000 


1 


16645 




LDQ 


SCRIPL-3*A 


10711 





60100 


1 


16645 




STQ 


SCRIPL-3«A 


10712 


-0 


60000 


4 


16650 




STQ 


SCRIPL#C 


10713 


-0 


50000 


4 


16651 




CAL 


SCRIPL+1*C 


10714 





56000 


1 


16646 




LDQ 


SCRIPL-2.A 


10715 





60200 


1 


16646 




SLW 


SCRIPL-2»A 


10716 


-0 


60000 


4 


16651 




STQ 


SCRIPL+1>C 


10717 


-0 


32000 





01452 




ANA 


MASK2 


10720 


-0 


60200 


4 


16651 




ORS 


SCRIPL+1»C 


10721 





50000 


4 


16652 




CLA 


SCRIPL+2»C 


10722 





56000 


1 


16647 




LDQ 


SCRIPL-1#A 


10723 





60100 


1 


16647 




STO 


SCRIPL-ltA 


10724 


-0 


60000 


4 


16652 




STQ 


SCRIPL+2»C 


10725 


-0 


53400 


1 


10323 




LXD 


AS3600»A 


10726 


-0 


50000 





01407 


LK0900 


CAL 


L(l) 


10727 





02000 





10653 




TRA 


LK0430 


10730 


-0 


77300 





00033 


LK095Q 


RQL 


27 


10731 


-0 


50000 


1 


16650 




CAL 


SCRIPLtA 


10732 


-0 


32000 





01452 




ANA 


MASK2 


10733 





16200 





10742 




TOP 


LK1050 


10734 


3 


00006 


2 


10611 




TXH 


LK0030»B»6 


10735 





40200 


4 


16655 




SUB 


SCRIPL+5»C 


10736 


-0 


10000 





10611 




TNZ 


LK0030 


10737 


-0 


50000 





01411 




CAL 


L(3) 


1.0740 


-0 


60200 


4 


16654 




ORS 


SCRIPL+4»C 


10741 





02000 





10654 




TRA 


LK0440 


10742 


-0 


77300 





00017 


LK1050 


RQL 


15 


10743 





16200 





10745 




TQP 


LK1100 


10744 





02000 





10611 




TRA 


LK0030 


10745 


-3 


00006 


2 


10611 


LK1100 


TXL 


LK0030»B»6 


10746 





40200 


4 


16660 




SUB 


SCRIPL+8tC 



S(I) * SYM2 (SU~1>>» SO 
SET 0P2 (SU-in 35 = 1 

S(I) TYPE MQ» 0P1 CSII-DJ » * 
PLACE P02 (SU-1M IN MQ 
IS 0P2 (su-m * * 

NO - SET 0P1 (S(U) 29 = 0P1 (S(I-1>> 35 

YES 

SET 0P1CS(I-1»)34=1 

SEARCH FOR S{I) IN S(I-l) 
NOT FOUND AT ALL 



NOT FOUND - CONTINUE SEARCH 

sui is symj csti-m 

IS OPJ isu-m = * 

NO... CONTINUE SEARCH 

YES.. .PERMUTE ELKSd-lM WITH ELJ(SCI-l) 

EXCHANGE 

TAG 

WORDS 

PLACE 0P1 (SU-IM IN ACC 

PLACE OPJ (S(I-m IN MQ 

EXCHANGE 

OP 

WORDS AND 

SET OPHS£l-l))30-33= OPJ« S( 1-1 )) 30-33 

THEN 

EXCHANGE 

SYMBOL 

WORDS 

RESTORE XA 

AND 

S(I) TYPE MQ» 0P1 (SU-1)) = SPOP 

EXTRACT S(l) IN ACC 

0P1 (SII-1H 33 = (CLOSED SUBROUTINE) 

OPEN MULTIV... SET 0P1 (SCI>> 29 « 

OPEN UNIV..* IS S(I) = SUM2 CS(I~1)> 

N0.». SET 0P1 <S<I>>29 = 0P2 IS(I-1)»35 * 

AND 

SET 0P2 (S{I-U)34 = 0P2 (SII-1M35 = 1 



TEST 0PHS(I-1))12 

FN-NAME 

CLOSED UNIV. SBRTN 

CLOSED MULTIV. SBRTN 



4F 14747 
4F14748 
4F 14749 
4F14750 
4F14751 
4F14752 
4F14753 
=04F14754 
4F14755 
4F14756 
4F14757 
4F14758 
4F14759 
4F14760 
4F14761 
4F14762 
4F14763 
4F14764 
4F14765 
4 F 14766 
4F14767 
4F14768 
) 4F14769' 
4F14770 
4F14771 
4F14772 
4F 14773 
4F14774 
4F14775 
4F14776 
4F 14777 
4F14778 
4F14779 
4F14780 
4F14781 
4F14782 
4F14783 
4F14784 
4F14785 
4F 14786 
4F14787 
4F14788 
4F14789 
4F14790 
4F14791 
04F14792 
4F14793 
4F14794 
4F14795 
4F14796 
4F14797 
4F14798 
4F14799 
4F14800 



10747 
10750 
10751 
10752 
10753 
10754 
10755 
10756 
10757 
10760 
10761 
10762 
10763 
10764 
10765 
10766 
10767 
10770 
10771 
10772 
10773 
10774 
10775 
10776 
10777 
11000 
11001 
11002 
11003 
11004 
11005 
11006 
11007 
11010 
11011 
11012 
11013 
11014 
11015 
11016 
11017 
11020 
11021 
11022 
11023 
11024 
11025 
11026 
11027 
11030 
11031 
11032 
11033 
11034 



10000 
50000 
60200 
02000 
75400 
56000 
76300 
34000 
02000 
02000 
50000 
32000 
00000 
34000 
00003 
02000 
00003 
77775 
16200 
50000 
32000 
40200 
10000 
02000 
75400 
56000 
76300 
40200 
10000 
50000 
60200 
02000 
77300 
50000 
32000 
16200 
00006 
02000 
77300 
16200 
02000 
53400 
75400 
56000 
00003 
76300 
40200 
10000 
50000 
32000 
10000 
50000^ 
32000 
10000 



10611 
01407 
16657 
10654 
00000 
16651 
00006 
01427 
10771 
11007 
16650 
01452 
10610 
16647 
10770 
10707 
10770 
10763 
10777 
16650 
01452 
16652 
10611 
10726 
00000 
16654 
00006 
01402 
10673 
01410 
16651 
10610 
00033 
16650 
01452 
11015 
10611 
10657 
00017 
10657 
10611 
15044 
00000 
16646 
11042 
00006 
01401 
11047 
16652 
01527 
11047 
16654 
01404 
11047 



LK1200 



LK.1280 



LIC 1330 
LK1340 



LK1410 



LK1470 



LK1520 
LK1530 



LK1610 



TN2 LK.0030 

CAL L(l) 

ORS SCRIPL+7tC 

TRA LK0440 

PXD 0»0 

LDQ SCRIPL+1#C 

LGL 6 

CAS SPECOP 

TRA LK1340 

TRA LK1470 

CAL SCRIPL»A 

ANA MASK2 

TXL LK0O0O#B»O 

CAS SCRIPL-1>A 

TXI LK1330tA»3 

TRA LK.0750 

TXI LK1330*At3 

TXI LK1280>Bt-3 

TOP LK1410 

CAL SCR I PL » A 

ANA MASK2 

SUB SCRIPL+2»C 

TNZ LK0030 

TRA LK0900 

PXD 0»0 

LDQ SCRIPL+4»C 

LGL 6 

SUB SLASH 

TZE LK0630 

CAL L(2) 

ORS SCRIPL+1»C 

TRA LKOOOO 

ROL 27 

CAL SCRIPL»A 

ANA MASK2 

TOP LK1530 

TXH LK0030»B#6 

TRA LK0480 

RQL 15 

TQP LK0480 

TRA LK0030 

LXD BETA»B 

PXD 0*0 

LDQ SCRIPL~2#A 

TXH LK1780»B«3 

LGL 6 

SUB HZ 

TZE LKKOOO 

CAL 5CRIPL+2 

ANA MASK1 

TNZ LJCKOOO 

CAL SCRIPL+4 

ANA 12Z 

TZE LKKOOO 



S(I) NOT = SYM3 (S (1-1)) 
S(I) s SYM3 (S(I-l))* SO 
SET 0P3 (S(I-1))35 * 1 

SCI) TYPE AC 

PLACE 0P1 (S(I-D) IN MQ 



S( II TYPE AC* 0P1 (S(I-l)) * + OR - 
SEARCH FOR S(l) IN SM-1) 
NOT FOUND AT ALL 



S(I) ■■ SOME SYMJ (S(I-1))»*« GO PERMUTE 
NOT FOUNDS. CONTINUE SEARCH 



S(I) TYPE AC* 0P1 1-5(1-1 n * ** 

IS S(I) = SYM1 (S(I-ll) 

NO 

YES 

S(I) TYPE AC, 0P1 (5(1-1 1) * * 

IS 0P2 (S(I-l)) * 1 

YES 

NO 

SET 0P1 CS< 1-1)1 34 » 1 

S(I) TYPE AC» 0P1 CS(I-D) * SPOP 

EXTRACT S(!) IN ACC 

OPEN MULT IV* 



FN-NAME 

IS 5(0) A SINGLE ELEMENT 



NO 
YES 

is op rscoi ) ■ + or - 

OP (S(O)) ■ - 

OP (5(0)) ■■+ 

DOES SYM (SCO)) * S(l) 

NO 

YES - PLACE 0P1 (S(l)) IN ACC 

OPl (5(1)) 31 * 



4F14801 

4F14802 

4F 14803 

4F 14804 

4F14805 

4F 14806 

4F14807 

4F14808 

4F14809 

4F14810 

4F14811 

4FI4812 

4F14813 

4F14814 

4F14815 

4F14816 

4F14817 

4F14818 

4F14819 

4F14820 

4F14821 

4F14822 

4F14823 

4F 14824 

4F14825 

4F14826 

4F14827 

4F14828 

4F14829 

4F14830 

4F14831 

4F14832 

4F14833 

4F14834 

4F14835 

4F14836 

4F14837 

4F14838 

4F14839 

4F14840 

4F 14841 

4F14842 

4F 14843 

4F14844 

4F14845 

4F14846 

4F 14847 

4F14848 

4F 14849 

4F14850 

4F14851 

4F14852 

4F14853 

4F14854 



1<*l> 



u 



u 



11035 


-0 


60200 





16651 




ORS 


SCRIPL+1 


11036 





76700 





00002 




ALS 


2 


11037 


-0 


60200 





16654 




ORS 


SCRIPL+4 


11040 





77100 





00006 




ARS 


6 


11041 





02000 





11046 




TRA 


LK1820 


11042 





16200 





11047 


LK.1780 


TOP 


LKKOOO 


11043 


-0 


77300 





00001 




RQL 


1 


11044 





16200 





11047 




TOP 


LICKOOO 


11045 


-0 


50000 





01404 




CAL 


121 


11046 


-0 


60200 





16651 


LK1820 


ORS 


SCRIPL+1 


11047 


-0 


53400 


5 


01117 


LKK000 


LXD 


3QBARf5 


11050 


-0 


50000 


4 


16645 




CAL 


SCRIPL-3*C 


11051 





73400 


2 


00000 




PAX 


0*B 


11052 





50000 


2 


15044 




CLA 


BETAtB 


11053 





62200 





11054 




STD 


LKK050 


11054 


1 


00000 


4 


11055 


LKK050 


TXI 


LKK060»C«0 


11055 


-o 


75400 





00000 


LKK060 


PXD 


0»0 


11056 





56000 


4 


16651 




LDQ 


SCRIPL+1 »C 


11057 


-0 


76300 





00006 




LGL 


6 


11060 





40200 





01405 




SUB 


STAR 


11061 


-0 


10000 





11070 




TNZ 


PCOOOO 


11062 





16200 





11064 




TQP 


LKK130 


11063 





02000 





11070 




TRA 


PCOOOO 


11064 





56000 


4 


16654 


LKK130 


LDQ 


SCRIPL+4tC 


11065 


-0 


76300 





00002 




LGL 


2 


11066 


G 


76000 





00001 




LB7 




11067 


-0 


60200 


4 


16651 




ORS 


SCRIPL+1 »C 


11070 


-0 


53400 


4 


01122 


PCOOOO 


LXD 


ARGCTR»C 


11071 


3 


00000 


4 


11073 




TXH 


PC0030»C#0 


11072 


1 


00001 


4 


11074 




TXI 


PC0040#C»1 


11073 





53400 


4 


01406 


PC0030 


LXA 


L(0)tC 


11074 


-0 


50000 


1 


16645 


PC0040 


CAL 


SCRIPL-3fA 


11075 





73400 


2 


00000 




PAX 


0»B 


11076 


-3 


00000 


2 


11112 




TXL 


PCG190*B>0 


11077 





50000 


2 


15044 




CLA 


BETA»B 


11100 





62200 





11101 




STD 


PC0100 


11101 


1 


00000 


1 


11102 


PC0100 


TXI 


PC0110»A»0 


11102 





56000 


1 


16651 


PC0110 


LDQ 


SCRIPL+1»A 


11103 


-0 


76300 





00036 




LGL 


30 


11104 





76000 





00001 




LBT 




11105 


1 


00454 





11107 


PC0140 


TXI 


PC0160*Ot300 


11106 





16200 





11074 




TQP 


PC0040 


11107 


-0 


75400 


4 


00000 


PC0160 


PXD 


0»C 


11110 





62200 


2 


15044 




STD 


BETA*B 


11111 


1 


00001 


4 


11074 




TXI 


PC0040fC*l 


11112 


-0 


53400 


2 


11105 


PC0190 


LXD 


PC0140#B 


11113 





50000 


2 


15520 


PCC200 


CLA 


BETA+300»B 


11114 





60100 


2 


16650 




STO 


CPBETA+300tB 


11115 


2 


00001 


2 


11113 




TIX 


PC0200*Btl 


11116 


n 


02000 





11155 




TRA 


STATED 



SET OP (SiOH 31 « 1 
SET 0P1 <S(1)> 29 = 1 

SCO) TYPT AC 

SIO) TYPE AC 
SCO) TYPE MQt SO 

-3Q TO XA»XC 

BACK UP XA TO 1ST ELEMENT OF LAST SEGMENT 
PLACE 0P1 OF LAST SEGMENT IN MQ 



0P1 OF LAST SEGMENT IS * 



0P2 IS *» SO SET 0P1 (S(L)> 34 = 1 
IS THIS AN FS 

NO 
YES 



11117 -272122626060 



OP SUB 



******* 

DICTIONARY OF 
OCT 672122626060 



EXIT AT StO) 



PLACE 0P1 (S(IU IN MQ 



0P1 CSCIM 29= 1 AND 0P1 tSUH 30 = 
0P1 {S(I)> 29 = OR 0P1 (SUM 30 * 1 
STORE ERAS* REL« ADD. COUNT IN BETA* 
AND UPDATE FOR NEXT SEGMENT 



60 FETCH STATE D 
*********************** 

OPEN SUBROUTINES FOLLOWS 
XABS 



4F14855 
4F 14856 
4F14857 
4F14858 
4F14859 
4F14860 
4F14861 
4F14862 
4F14863 
4F 14864 
4F14865 
4F14866 
4F14867 
4F14868 
4F14869 
4F14870 
4F14871 
4F14872 
4F14873 
4F14874 
4F14875 
4F14876 
4F14877 
4F 14878 
4F14679 

4F14881 
4F14882 
4F14883 
4F14884 
4F14885 
4F14886 
4F 14887 
4F14888 
4F14889 
4F 14890 
4F14891 
4F14892 
4F14893 
4F 14894 
4F14895 
4F14896 
4F1A897 
4F14898 
4.F14899 
4F14900 
4F14901 
4F14902 
4F14903 
4F14904 
♦4F14905 
4F14906 
4F14907 
4F14908 



11120 +212262606060 

11121 -273145636060 

11122 +314563606060 

11123 -274446246060 

11124 -044624606060 

11125 -274421670060 

11126 -042167016060 

11127 -274421670160 
11130-042167006060 

11131 -274431450060 

11132 -043145016060 

11133 -274431450160 

11134 -043145006060 

11135 +264346216360 

11136 -272631676060 

11137 -223127456060 

11140 -276231274560 

11141 -272431446060 

11142 +243144606060 

11143 



OCT 212262606060 ABS 

OCT 673145636060 XI NT 

OCT 314563606060 INT 

OCT 674446246060 XMOD 

OCT 444624606060 MOD 

OCT 674421670060 XMAXO 

OCT 442167016060 MAX1 

OCT 674421670160 XMAXl 

OCT 442167006060 MAXO 

OCT 674431450060 XMINO 

OCT 443145016060 MINI 

OCT 674431450160 XMIN1 

OCT 443145006060 MINO 

OCT 264346216360 FLOAT 

OCT 672631676060 XFIX 

OCT 623127456060 SIGN 

OCT 676231274560 XSIGN 

OCT 672431446060 XDIM 

OCT 243144606060 DIM 



BSS 10 

* * * 



************* 



************** 



11155 
11156 
11157 
11160 
11161 
11162 
11163 
11164 
11165 
11166 
11167 
11170 
11171 
11172 
11173 
11174 
11175 
11176 
11177 
11200 
11201 
11202 
11203 
11204 



53400 
63400 
53400 
63400 
50000 
73400 
50000 
73400 
63400 
63400 
77772 
76000 
75400 
56000 
76300 
34000 
16200 
00000 
76300 
16200 
76000 
75400 
56000 
76300 



11155 STATED BSS 



15044 
15044 



11155 

01117 
11227 
01406 
11176 
16650 
00000 
16174 
00454 
11226 
11233 
11226 
00140 
00000 
16651 
00006 
01427 
11177 
11226 
00032 
11202 
00141 
OOOOO 
16652 
00001 



BETA 



MCOOOO 

MC0030 
MC0050 
MC0070 



ORG 2596+4096 
BSS 300 

END OF ARITHMETIC / STATE C« 

**************** 



************ 



* * 



ORG 
LXD 
SXD 
LXA 



XASAVE 
MC0180 



MC0210 



ARITHMETIC / STATE D» 

STATED 

3QBAR*A 

MC0420*A 

LC0>*A 
SXD XASAVE* A 
CAL SCR I PL* A 
PAX »2 

CLA CPBETA#B 
PAX TAU2»B 
SXD MC0410»B 
SXD MC0460»B 
TXH MC04lO»Bt-6 
SLF 

PXD 0*0 
LDQ SCRIPL+UA 

6 

SPECOP 

MC0180 

MC0410»0»0 

26 
TOP MC0210 
SLN 1 
PXD 0»0 
LDQ SCRIPL+2fA 
LGL 1 



MODE CHECKING ROUTINE 



S(I) TO XB 



SINGLE ELEMENT - GO ONTO SU + 1) 
TURN OFF ALL SENSE LITES 
CLEAR ACC 
PLACE 0P1 (SCI)) IN MQ 



LGL 
CAS 
TOP 
TXI 
LGL 



0P1 fSUIt 

FIX PT 
FLO PT 



a +» - OR * 



PLACE SYMJ IS(ll) IN MQ - J « !••»• 



4F14909 
4F14910 
4F14911 
4F14912 
4F14913 
4F14914 
4F14915 
4F14916 
4F14917 
4F14918 
4F 14919 
4F 14920 
4F14921 
4F 14922 
4F 14923 
4F14924 
4F 14925 
4F 14926 
4F 14927 
4F14928 

♦4F14929 
4F149295 
4F14930 
4F14931 
4F14932 
4F14933 

•4F14934 
4F14935 
4F14936 
4F 14939 
4F 14940 
4F14941 
4F 14942 
4F 14943 
4F 14944 
4F14945 
4F14946 
4F14947 
4F 14948 
4F14949 
4F14950 
4F14951 
4F14952 
4F14953 
4F 14954 
4F14955 
4F14956 
4F14957 
4F14958 
4F 14959 
4F14960 
4F 14961 
4F14962 
4F14963 



y.t 



u 



u 



11205 





76000 





00001 




LBT 




11206 





16200 





11231 




TOP 


MC0440 


11207 


-0 


76300 





00005 




LGL 


5 


11210 





34000 





01423 




CAS 


L(HJ 


11211 





34000 





01425 




CAS 


LtO) 


11212 


1 


00000 





11217 


XBSAVE 


TXI 


MC0340»0»0 


11213 





02000 





11217 




TRA 


MC0340 


11214 


-0 


76000 





00141 


MC0310 


SLT 


1 


11215 


1 


00003 


2 


11223 




TXI 


MC0380*B#3 


11216 





07400 


4 


03400 




TSX 


DIAGf4 


11217 


-0 


76000 





00141 


MC0340 


SLT 


1 


11220 





07400 


4 


03400 




TSX 


DIAG»4 


11221 





76000 





00141 




SLN 


1 


11222 


1 


00003 


2 


11223 




TXI 


MC0380»B#3 


11223 


-3 


00000 


2 


11225 


MC0380 


TXL 


MC0400»B»0 


11224 


1 


77775 


1 


11202 




TXI 


MC0210»A*-3 


11225 


-0 


53400 


1 


11176 


MC0400 


LXD 


XASAVE«A 


11226 


1 


00000 


1 


11227 


MC0410 


TXI 


MC0420«A*0 


11227 


3 


000 00 


1 


11160 


MC0420 


TXH 


MC0030»A*0 


11230 





02000 





11254 




TRA 


CPOOOO 


11231 


-0 


63400 


2 


11212 


MC0440 


SXD 


XBSAVE sB 


11232 


-0 


53400 


4 


11176 




LXD 


XASAVEfC 


11233 


1 


00000 


4 


11234 


MC0460 


TXI 


MC0470»C*0 


11234 


-0 


50000 


4 


16650 


MC0470 


CAL 


SCRIPLtC 


11235 


-0 


32000 





01452 




ANA 


MASK2 


11236 





34000 


1 


16652 




CAS 


SCRIPL+2tA 


11237 





02000 





11241 




TRA 


MC0520 


11240 





02000 





11246 




TRA 


MC0570 


11241 





73400 


2 


01226 


MC0520 


PAX 


SIGMA1.B 


11242 





50000 


2 


16174 




CLA 


CPBETA*B 


11243 





73400 


2 


OOOOO 


MC0540 


PAX 


TAU1»B 


11244 


-0 


63400 


2 


11245 




SXD 


MC0560.B 


11245 


1 


00000 


4 


11234 


MC0560 


TXI 


MC0470*C»0 


11246 


-0 


53400 


2 


11212 


MC0570 


LXD 


XBSAVEtB 


11247 


-0 


50000 


4 


16651 




CAL 


SCRIPL+1»C 


11250 





77100 





00003 




ARS 


3 


11251 





76000 





00001 




LBT 




11252 





02000 





11214 




TRA 


MC0310 


11253 





02000 





11217 




TRA 


MC0340 


11254 





76000 





00140 


CPOOOO 


SLF 




11255 





60000 





16160 




STZ 


FNSW 


11256 


-0 


53400 


4 


01122 




LXD 


ARGCTR*C 


11257 


-3 


ooooo 


4 


11265 




TXL 


CP0090*C.O 


11260 





07400 


4 


01731 




TSX 


CIT00»C 


11261 





OOOOO 





01531 




HTR 


ALL1 


11262 





OOOOO 





01531 




HTR 


ALL1 


11263 





OOOOO 





01531 




HTR 


ALL1 


11264 





ooooo 





01531 




HTR 


ALL1 


11265 


-o 


50000 





00030 


CP0090 


CAL 


EIFNO 


11266 


-0 


32000 





01527 




ANA 


MASK1 


11267 





60200 





16164 




SLW 


CW 


11270 


-0 


53400 


1 


01117 




LXD 


3QBAR»A 


11271 





50000 


1 


16645 


CP0130 


CLA 


SCRIPL-3»A 



SYMJ I Sf 111 IS A VARIABLE 



FLO PT 
FLO PT 
SYMJ <S(I>I IS A FIX PT VARIABLE 

OK 

ERROR.* FLO PT LITE ON 
SYMJfSCin IS A FLO PT VARIABLE 
ERROR*. FLO PT LITE OFF 
RESTORE FLO PT LITE 

FINISHED WITH SJ 1) 

CONTINUE SCANNING SU). J TO J+l 

60 TO S( 1+1) 



EXIT TO COMPILER 

SYMJ (SCITT * SAME SiK) 

MOVE XC TO 1ST ELEMENT OF SU + 1) 

EXTRACT S(K> IN ACC 

AND COMPARE WITH SYMJ tS(II) 



S(K) TO XB 



SYMJ IStin a SU) FOR SOME K 
PLACE OP1 (SU>) IN ACC 



S(K) IS FIX PT 
S<K) IS FLO PT 

TURN OFF ALL SENSE LITES 

IS THIS AN FS STATEMENT 

NO 

YES - COMPILE FOUR 36 - BIT 

STRINGS IN 1 AS A PRELUDE TO 

FS STATEMENT COMPILATION 



STO INT* FORM. NO. IN DEC. FIELD OF CW. 

-3Q TO XA 

EXTRACT CURRENT S( I J 



4F 14964 

4F14965 

4F14966 

4F14967 

4F14968 

4F 14969 

4F14970 

4F14971 

4F14972 

4F14973 

4F14974 

4F14975 

4F14976 

4F 14977 

4F 14978 

4F14979 

4F14980 

#F14981 

4F14982 

4F14983 

4F14984 

4F14985 

4F14986 

4F14987 

4F 14968 

4F14989 

4F14990 

4F14991 

4F 14992 

4 F 14993 

4F 14994 

4F 14995 

4F14996 

4F14997 

4F 14998 

4F14999 

4F15000 

4F15001 

4F15002 

4F15003 

4F15004 

4F15005 

4F15006 

4F15007 

4F15008 

4F15009 

4F15010 

4F15011 

4F15012 

4F15013 

4F15014 

4F15015 

4F15016 

4F15017 



7*7 



11272 
11273 
11274 
11275 
11276 
11277 
11300 
11301 
11302 
11303 
11304 
11305 
11306 
11307 
11310 
11311 
11312 
11313 
11314 
11315 
11316 
11317 
11320 
11321 
11322 
11323 
11324 
11325 
11326 
11327 
11330 
11331 
11332 
11333 
11334 
11335 
11336 
11337 
11340 
11341 
11342 
11343 
11344 
11345 
11346 
11347 
11350 
11351 
11352 
11353 
11354 
11355 
11356 
11357 



73400 2 

50000 2 

62200 

32000 

73400 2 

63400 2 

76000 

40000 

76700 

62200 

00000 

63400 

56000 

76300 

76000 

02000 

16200 

76000 

77300 

16200 

76000 

77300 

02000 

77300 

16200 

76000 

00000 

02000 

76000 

75400 

56000 

76300 

34000 

00000 

77775 

40200 

10000 

76300 O 

16200 

53400 

00003 

00000 

63400 

77775 

75400 

56000 

76300 

34000 

02000 

02000 

40200 

10000 

50000 

76000 



00000 
16174 
01363 
01452 
01356 
11324 
00006 
01407 
00022 
11304 
11305 
01117 
16651 
00036 
00001 
11313 
11321 
00141 
00001 
11317 
00142 
00001 
11322 
00002 
11326 
00144 
00000 
11327 
00144 
00000 
16651 
00006 
01427 
11407 
11543 
01401 
11365 
00035 
11425 
11324 
11343 
12337 
11324 
11346 
00000 
16651 
00006 
01405 
11433 
11506 
01401 
11400 
01550 
00144 



CP0140 



CP0180 



CP0240 
CP0250 



CP0310 



CP0350 

CP0370 
CP0380 

CP0400 

CP0420 
CP0430 



CP0540 
CP0560 

CP0590 



PAX #2 

CLA CPBETAfB 

STD PHI (I) 

ANA MASK.2 

PAX TAU3#B 

SXD CP0400»b 

COM 

ADO L(l) 

ALS 18 

STD CP0240 

TXI CP0250»A»0 

SXD 3QBAR»A 

LDQ SCRIPL+1»A 

LGL 30 

LBT 

TRA CP0310 

TOP CP0370 

SLN 1 

ROL 1 

TOP CP0350 

SLN 2 

RQL 1 

TRA CP0380 

RQL 2 

TQP CP0420 

SLT 4 

TXH 0*0»0 

TRA CP0430 

SLN 4 

PXD 0»0 

LDQ SCRIPL+1#A 

LGL 6 

CAS SPECOP 

TXI CP0960»0»0 

TXI CP2040»A»-3 

SUB HZ 

TZE CP0760 

LGL 29 

TQP CP1130 

LXD CP0400#B 

TXI CP0560»B»3 

TXL ESOOOO»BtO 

SXD CP0400*B 

TXI CP0590»A«-3 

PXD 0»0 

LDQ SCRIPL+ltA 

LGL 6 

CAS STAR 

TRA CP1200 

TRA CP1720 

SUB HZ 

TZE CP0880 

CAL L(FAD) 

SLT 4 



* 



STO ERAS. REL* ADD» IN PHI (I) 



MOVE XA TO 1ST ELEMENT OF CURRENT S( I) 
EXAMINE 0P1 CSU>) 29»30*31»32 



0P1 ($(lt) 29 « 

opi (sun 30 a o 

0P1 (SHU 29 = OR OPI (SUM 30 = 1» 
SET STORE LITE 

OPI (S(i)l 31 » 0» SO SET STO LITE 

OPI tS(Il) 31 = 1» SO SET STQ LITE 



TEST OPI <S(in 32 

OPI CS<I>» 32 = 1» SO SET FLPTSW 



OPI (SUM 32 * 0# SO SET FXPTSW 
PLACE QP1 (S(I)> IN MQ 



opi rsm> * +. 

OPI (SCI)) 35 = 
OPI (SCI)) 35 * 1 

GO TO END-OF-SEGMENT SBRTN 



PLACE OPJ (Sim IN MQ 



OPJ (SUM * / 

opj <s(i>) » * 

opj rs(in * - 

opj csm> * + 



4F15018 
4F15019 
4F15020 
4F15021 
4F15022 
4F15023 
4F15024 
4F15025 
4F15026 
4F15027 
4F15028 
4F15029 
4F15030 
4F15031 
4F15032 
4F15033 
4F15034 
SO 4F15035 
4F15036 
4F15037 
4F150 38 
4F15039 
4F 15040 
4 F_l 5 041 

4F15043 
4F15044 
4F15045 
4F15046 
4F15047 
4F15048 
4F15049 
4F15050 
4F15051 
4F15052 
4F15053 
4F 15054 
4F15055 
4F15056 
4F15057 
4F15058 
4F15059 
4F15060 
4F15061 
4F15062 
4F15063 
4F15064 
4F15065 
4F15066 
4F15067 
4F15068 
4F15069 
4F15070 
4F15071 



nO 



U 



u 



11360 
11361 
11362 
11363 
11364 
11365 
11366 
11367 
11370 
11371 
11372 
11373 
11374 
11375 
11376 
11377 
11400 
11401 
11402 
11403 
11404 
11405 
11406 
11407 
11410 
11411 
11412 
11413 
11414 
11415 
11416 
11417 
11420 
11421 
11422 
11423 
11424 
11425 
11426 
11427 
11430 
11431 
11432 
11433 
11434 
11435 
11436 
11437 
11440 
11441 
11442 
11443 
11444 
11445 



02000 
76000 
50000 
60200 
02000 
76300 
16200 
50000 
60200 
60000 
60000 
07400 
02000 
50000 
60200 
02000 
50000 
76000 
02000 
76000 
50000 
60200 
02000 
16200 
02000 
76300 
76000 
76000 
02000 
76000 
00000 
16200 
02000 
50000 
76000 
02000 
76000 
50000 
60200 
07400 
07400 
60000 
02000 
76000 
02000 
76000 
02000 
76000 
07400 
00000 
00000 
00000 
00000 
02000 



11363 
00144 
01532 
16165 
11503 
00035 
11375 
01540 
16165 
16166 
16167 
12621 
11341 
01543 
16165 
11427 
01553 
00144 
11405 
00144 
01574 
16165 
11503 
11411 
12100 
00035 
00143 
00001 
11417 
00143 
00000 
11421 
11341 
01556 
00143 
11426 
00143 
01541 
16165 
12627 
12621 
16164 
11341 
00143 
11446 
00144 
11501 
00144 
01731 
01406 
01560 
01406 
01472 
11451 



CP0740 
CP0760 



CP0850 
CP0880 

CP0940 
CP0960 
CP0980 



CP1050 
CP1070 



CP1130 
CP1140 
CP1150 



CP1200 



TRA CP0740 

SLN 4 

CAL L(ADD) 

SLW CW+1 

TRA CP1690 

L6L 29 

TOP CP0850 

CAL L(CHS) 

SLW CW+1 

STZ CW+2 

STZ CW+3 

TSX COMP»B 

TRA CP0540 

CAL L(CLS) 

SLW CW+1 

TRA CP1150 

CAL L1FSB) 

SLT 4 

TRA CP0940 

SLN 4 

CAL L!SU8) 

SLW CW+1 

TRA CP1690 

TOP CP0980 

TRA CP4140 

LGL 29 

SLN 3 

L8T 

TRA CP1050 

SLT 3 

TXH 0»0»0 

TOP CP1070 

TRA CP0540 

CAL L(LDQ) 

SLT 3 

TRA CP1140 

SLN 3 

CAL L(CLA) 

SLW CW+1 

TSX ACOOOOtC 

TSX COMPtB 

STZ CW 

TRA CP0540 

SLT 3 

TRA CP1330 

SLT 4 

TRA CP1670 

SLN 4 

TSX CITOO»C 

HTR LtOi 

HTR L(LRS) 

HTR L(OJ 

HTR DEC35 

TRA CP1450 



FIX PT. RESTORE FXPTSW 



0P1 f$U>> = - 

0P1 (S(1H 35 * 1* SO 
COMPILE CHS FOR 1ST ELEMENT 



0P1 (StU) 35 « 0» SO 

COMPILE CLS SYM1 fS(IM FOR 1ST ELEMENT 

opj tsun ■ - 



FIX PT* RESTORE FXPTSW 



opi csun * * 

TURN LITE 3 ON 

TEST OPI <SU!) 34 

OPI (SUM 34 s 0» SO LEAVE LITE 3 ON 

opi es(in 34 ■ it so turn lite 3 off 



opi csun 35 = It so GO modify J 

opi tsun 35 a 

ELI CSUI) TO MQ 

ELI (S(II) TO ACC 



ADDRESS COMPILE SYM1 (SU)) 

RESET CW 
GO MODIFY J 

opj csun = / 

PREDECESSOR IN ACC 
FLO PT* 

FIX PT* RESTORE FXPTSW 
COMPILE LRS 35 



4F15072 

4F15073 

4F15074 

4F15075 

4F15076 

4F 15077 

4F15078 

4F15079 

4F15080 

4F15081 

4F15082 

4F15083 

4F15084 

4F15085 

4F15086 

4F15087 

4F15088 

4F15089 

4F15090 

4F15091 

4F15092 

4F15093 

4F15094 

4F15095 

4F15096 

4F15097 

4F15098 

4F15099 

4F1510Q 

4F15101 

4F15102 

4F15103 

4F15104 

4F15105 

4F15106 

4F15107 

4F15108 

4F15109 

4F15110 

4F15111 

4F15112 

4F15113 

4F15114 

4F15115 

4F15116 

4F15117 

4F15118 

4F15119 

4F15120 

4F15121 

4F15122 

4F15123 

4F15124 

4F15125 



11446 
11447 
11450 
11451 
11452 
11453 
11454 
11455 
11456 
11457 
11460 
11461 
11462 
11463 
11464 
11465 
11466 
11467 
11470 
11471 
11472 
11473 
11474 
11475 
11476 
11477 
11500 
11501 
11502 
11503 
11504 
11505 
11506 
11507 
11510 
11511 
11512 
11513 
11514 
11515 
11516 
11517 
11520 
11521 
11522 
11523 
11524 
11525 
11526 
11527 
11530 
11531 
11532 
11533 



76000 
02000 
76000 
50000 
60100 
|7400 
07400 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
02000 
50000 
60100 
50000 
60100 
60000 
07400 
50000 
60100 
07400 
50000 
60100 
07400 
07400 
02000 
76000 
02000 
50000 
60100 
50000 
60100 
60000 
07400 
50000 
60100 
07400 
76000 
07400 
76000 
02000 
76000 
50000 
60100 
07400 
07400 
00000 
00000 



00144 
11470 
00144 
01547 
16165 
12627 
12621 
01731 
01406 
01542 
01406 
01406 
01731 
01406 
01557 
01406 
01466 
11341 
01573 
16165 
01505 
16166 
16167 
12621 
01541 
16165 
12621 
01551 
16165 
12627 
12621 
11341 
00143 
11521 
01572 
16165 
01505 
16166 
16167 
12621 
01556 
16165 
12621 
00143 
12627 
00144 
11537 
00144 
01562 
16165 
12621 
01731 
01406 
01533 



CP1330 
CP1450 



CP1570 



CP1670 
CP1690 

CP1720 



CP1840 



SLT 4 

TRA CP1570 
5LN 4 
CLA L(DVP) 
STO CW+1 
TSX AC0000*C 
TSX C0MP»B 
TSX CITOOtC 
HTR LtO) 
HTR L(CLM) 
HTR LtO) 
HTR LtO) 
TSX CI TOO* C 
HTR LtO J 
HTR LtLLS) 
HTR LtO) 
HTR DEC18 
TRA CP0540 
CLA L(STQ) 
STO CW+1 
CLA X( 
STO CW+2 
STZ CW+3 
TSX COMP#B 
CLA L(CLA) 
STO CW+1 
TSX COMP»B 
CLA L(FDP) 
STO CW+1 
TSX AC 0000 »C 
TSX C0MP»B 
TRA CP0540 
SLT 3 

TRA CP1840 
CLA L(STO) 
STO CW+1 
CLA Xt 
STO CW+2 
STZ CW+3 
TSX COMP#B 
CLA L(LOQ) 
STO CW+1 
TSX COMP*B 
SLN 3 

TSX AC00OO»C 
SLT 4 

TRA CP2000 
SLN 4 
CLA L(MPY) 
STO CW+1 
TSX C0MP#B 
TSX CITOOtC 
HTR L(OJ 
HTR LtALS) 



PREDECESSOR IN MQ 

AND SEGMENT IS 

FIX PT. RESTORE FXPTSW 



ADDRESS COMPILE SYMJ tStl) ) 
COMPILE DVP SYMJ (S(D) 
COMPILE CLM 



COMPILE LLS 18 



GO MODIFY J 
PREDECESSOR IN MQ 
AND SEGMENT IS FLO PT 



COMPILE STO 700000 



COMPILE CLA 700000 

COMPILE FDP SYMJ fSUH 
ADDRESS COMPILE SYMJ (SUM 

GO MODIFY J 
OPJ tSt I H ** 

PREDECESSOR IN ACC 



COMPILE STO 700000 



COMPILE LDQ 700000 

TURN LATE 3 ON 

ADDRESS COMPILE SYMJ (St I)) 



FIX PT. RESTORE FXPTSW 



COMPILE MPY SYMJ (St IU 
COMPILE ALS 17 



4F15126 

4F15127 

4F15128 

4F15129 

4F15130 

4F15131 

4F15132 

4F15133 

4F15134 

4F15135 

4F15136 

4F15137 

4F15138 

4F15139 

4F15140 

4F15141 

4F15142 

4F15143 

4F15144 

4F15145 

4F15146 

4F15147 

4F15148 

4F15149 

4F15150 

4F15151 

4F15152 

4F15153 

4F15154 

4F15155 

4F15156 

4F15157 

4F15158 

4F15159 

4F15160 

4F15161 

4F15162 

4F15163 

4F15164 

4F15165 

4F15166 

4F15167 

4F15168 

4F15169 

4F15170 

4F15171 

4F15172 

4F15173 

4F15174 

4F15175 

4F15176 

4F15177 

4F15178 

4F15179 



n1 



O 



u 



1153* 
11535 
11536 
11537 
11540 
11541 
11542 
11543 
11544 
11545 
11546 
11547 
11550 
11551 
11552 
11553 
11554 
11555 
11556 
11557 
11560 
11561 
11562 
11563 
11564 
11565 
11566 
11567 
11570 
11571 
11572 
11573 
11574 
11575 
11576 
11577 
11600 
11601 
11602 
11603 
11604 
11605 
11606 
11607 
11610 
11611 
11612 
11613 
11614 
11615 
11616 
11617 
11620 
11621 



00000 

00000 

02000 

50000 

60100 

07400 

02000 

76300 

76000 

16200 

16200 

75400 

76300 

50100 

60200 

32000 

50100 

60200 

50000 

76000 

02000 

07400 

00000 

00000 

00000 

00000 

77775 

50000 

60200 

07400 

07400 

02000 

60000 

53400 

00003 

77772 

63400 

50000 

76000 

02000 

07400 

00000 

00000 

00000 

00000 

77775 

50000 

60200 

07400 

07400 

02000 

50000 

60200 

53400 



01406 HTR LCO) 
01465 HTR DEC17 
11341 TRA CP0540 
01552 CP2000 CLA L(FMP) 
16165 STO CW+1 
12621 TSX COMP»B 
11341 TRA CP0540 
00007 CP2040 LGL 7 
00001 LBT 
11665 TOP CP2650 
12210 TQP CP5000 

00000 PXD 0*0 
00017 LLS 15 
01503 ORA P( 

16162 SLW ARGORG 
01452 ANA MASK2 
01505 ORA X( 

16163 SLW XRSAVE 
16651 CLA SCRIPL+1»A 

00001 LBT 

11567 TRA CP2150 
01731 CP2100 TSX CIT00»C 
01406 HTR LCO) 

01572 HTR L(STO) 
16162 HTR ARGORG 
01406 HTR LCO) 

11574 TXI CP220O»A»-3 
01541 CP2150 CAL L(CLA) 
16165 SLW CW+1 
12627 TSX AC0000#C 
12621 TSX COMP»B 
11561 TRA CP2100 

16164 CP2200 STZ CW 
11324 LXD CP0400»B 
11577 TXI CP2230*B»3 
11642 CP2230 TXH CP2500tB»-6 
11324 SXD CP0400*B 
16651 . CLA SCRIPL+ltA 
00001 LBT 

11612 TRA CP2300 
01731 CP2250 TSX ClTQOfC 
01406 HTR LCO) 

01573 HTR LCSTQ) 
16162 HTR ARGORG 
01454 HTR 2E18 
11617 TXI CP235Q»A»-3 
01556 CP2300 CAL LCLDO) 

16165 SLW CW+1 
12627 TSX ACOOOO»C 
12621 TSX COMP»B 
11604 TRA CP2250 
01521 CP2350 CLA DECMI2 
16161 SLW PCCNTR 
11324 CP2370 LXD CP0400»B 



GO MODIFY J 
FLO PT. 

COMPILE FMP SYMJCS(U) 

GO MODIFY J« 

OP1CSCI»)*SPOP 

TEST 0P1CSCDH2 

LIB OR OPEN FUNCTION 

FN-FUNCTION 

FS-FUNCTION 

PUT TYPE NO IN ADD(ACC) 

FORM 4...TYPE NO. 

AND STO IN ARGORG 

FORM 7.. .TYPE NO. 
AND STO IN XRSAVE 

EXAMINE OP2CSUM35 

1ST ARG STORED 

1ST ARG IN ACC 

COMPILE STO 4...TYPE NO. + 



GO ON TO 0P3C5C1J) 



ADDRESS COMPILE SYM2CSC2)) 
COMPILE CLA SYM2CSUH 

RESET CW 



FINISHED WITH SCI) 



EXAMINE OP3CSCIM35 

2ND ARG STORED 

2ND ARG IN MQ 

COMPILE STQ 4.*«TYPE NO. + 1 



GO ON TO SYM4CSC I) ) 



ADDRESS COMPILE SYM3(S(U) 
COMPILE LDQ SYM3C5CIH 

INITIALIZE DECCPCCNTR) TO 2 



4F15180 

4F15181 

4F15182 

4F15183 

4F15184 

4F15185 

4F15186 

4F15187 

4F15188 

4F15189 

4F15190 

4F15191 

4F15192 

4F15193 

4F15194 

4F15195 

4F 15196 

4F15197 

4F15198 

4F15199 

4F15200 

4F15201 

4F15202 

4F15203 

4F15204 

4F15205 

4F15206 

4F15207 

4F15208 

4F15209 

4F15210 

4F15211 

4F15212 

4F15213 

4F15214 

4F15215 

4F15216 

4F15217 

4F15218 

4F15219 

4F15220 

4F15221 

4F15222 

4F15223 

4F15224 

4F15225 

4F15226 

4F15227 

4F15228 

4F15229 

4F15230 

4F15231 

4F15232 

4F15233 



n 



11622 


1 


00003 2 


11623 


TXI 


CP2390#B#3 


11623 


3 


77772 2 


11642 CP2390 


TXH 


CP2500»B»-6 


11624 


-0 


63400 2 


11324 


SXO 


CP0400iB 


11625 


-0 


50000 


01541 


CAL 


LtCLAl 


11626 





60200 


16165 


SLW 


CW+1 


11627 





07400 4 


12627 


TSX 


AC0OO0»C 


11630 





07400 2 


12621 


TSX 


COMP»B 


11631 





07400 4 


01731 


TSX 


CIT0O»C 


11632 





00000 


01406 


HTR 


L(0) 


11633 





00000 


01572 


HTR 


L(STO) 


11634 





00000 


16162 


HTR 


AR60RG 


11635 





00000 


16161 


HTR 


PtCNTR 


11636 





50000 


16161 


CLA 


P(CNTR 


11637 





40000 


01454 


ADO 


2E18 


11640 





60100 


16161 


STO 


PtCNTR 


11641 


1 


77775 1 


11621 


TXI 


CP2370»At-3 


11642 


-0 


53400 1 


01117 CP2500 


LXD 


3QBAR*A 


11643 


-0 


50000 


01575 


CAL 


LCSXD) 


11644 





60200 


16165 


SLW 


CW+1 


11645 


-0 


50000 


16163 


CAL 


XRSAVE 


11646 





60200 


16166 


SLW 


CW+2 


11647 


-0 


50000 


01412 


CAL 


L(4) 


11650 





60200 


16167 


SLW 


CW+3 


11651 





07400 2 


12621 


TSX 


COMPtB 


11652 


-0 


50000 


01602 


CAL 


L(TSX) 


11653 





60200 


16165 


SLW 


CW+1 


11654 


-0 


50000 1 


16652 


CAL 


SCRIPL+2tA 


11655 





60200 


16166 


SLW 


CW+2 


11656 





07400 2 


12621 


TSX 


COMP>B 


11657 


-0 


50000 


01561 


CAL 


LtLXD) ' 


11660 





60200 


16165 


SLW 


CW+1 


11661 


-0 


50000 


16163 


CAL 


XRSAVE 


11662 





60200 


16166 


SLW 


CW+2 


11663 





02000 


12756 


TRA 


CP6000 


11664 


1 


00000 


12337 CP5830 


TXI 


ESOOOO*0»0 


11665 


-0 


76300 


00024 CP2650 


LGL 


20 


11666 





16200 


11734 


TOP 


CP3060 


11667 





50200 


16164 


CLS 


CW 


11670 





60100 


16164 


STO 


CW 


11671 





50000 1 


16647 


CLA 


5CRIPL-1»A 


11672 





60100 


16166 


STO 


CW+2 


11*73 





07400 2 


12621 


TSX 


COMPtB 


11674 





60000 


16164 


STZ 


CW 


11675 


-0 


53400 2 


11324 


LXD 


CP0400#8 


11676 


-3 


77767 2 


11720 


TXL 


CP2930»B#~9 


11677 


-0 


50000 


01531 


CAL 


ALL1 


11700 





60200 


16164 


SLW 


CW 


11701 





50000 1 


16651 


CLA 


SCRIPL+lfA 


11702 





76000 


00001 


LBT 




11703 





02000 


11716 


TRA 


CP2900 


11704 





77100 


00001 


ARS 


1 


11705 





56000 


01512 


LDQ 


ADPLUS 


11706 





76000 


00001 


LBT 





FINISHED WITH St I) 



ADDRESS COMPILE SYMJ(Stl)># J*4>««« 
COMPILE CLA SYMJCS(I))» Js4»*«* 
COMPILE STO 4...TYPE NO. + J-2» J»4>*.« 



UPDATE PtCNTR 



FINISHED WITH S(l> 



COMPILE SXO 7...TYPE NO. » 4 



COMPILE TSX SYMltStI)lf4 



TEST 0PICStin33 
0*** LIB* SBRTN 
1»*« OPEN SBRTN 
CW TO -CW 



COMPILE FUNCTION NAME 
RESET CW 



OPEN UNIVARIATE FUNCTION 



EXAMINE OP2tS(I))35 
0..4 ARG STORED 
!*•• ARG NOT STORED 



4F15234 
4F15235 

4F15236 

4F15237 

4F15238 

4F15239 

4F15240 

4F15241 

4F15242 

4F15243 

4F 15244 

4F15245 

4F15246 

4F15247 

4F 15248 

4F15249 

4F15250 

4F15251 

4F15252 

4F15253 

4F15254 

4F15255 

4F15256 

4F15257 

4F15258 

4F15259 

4F15260 

4F15261 

4F 15262 

4F 15263 

4F15264 

4F15265 

4F15266 

4F15267 

4F 15268 

4F15269 

4F15270 

4F15271 

4F15272 

4F15273 

4F 15274 

4F 15275 

4F15276 

4F15277 

4F15278 

4F15279 

4F15280 

4F15281 

4F15282 

4F15283 

4F15284 

4F15285 

4F15286 

4F15287 



??v 



/< C 



u 



u 



11707 





02000 





11711 




11710 





56000 





01524 




11711 


-0 


60000 





16166 


CP2860 


11712 





60000 





16167 




11713 





07400 


2 


12621 


CP2880 


11714 





60000 





16164 




11715 





02000 





12337 




11716 





07400 


4 


12627 


CP2900 


11717 





02000 





11713 




11720 





07400 


4 


12627 


CP2930 


11721 


-0 


53400 


2 


11324 




11722 


1 


0000 3 


2 


11723 




11723 


3 


77772 


2 


11727 


CP2960 


11724 


-0 


63400 


2 


11324 




11725 





07400 


2 


12621 




11726 


1 


77775 


1 


11720 




11727 


-0 


50000 





01531 


CP300G 


11730 





60200 





16164 




11731 





07400 


2 


12621 




11732 





60000 





16164 




11733 





02000 





12337 




11734 


-3 


77767 


2 


11763 


CP3060 


11735 





50000 


1 


16651 




11736 





76000 





00001 




11737 





02000 





11755 




11740 





50000 





01575 


CP3100 


11741 





60100 





16165 




11742 





5 0000 





01505 




11743 


Q 


60100 





16166 




11744 





5000Q 





01412 




11745 





60100 





16167 




11746 





07400 


2 


12621 




11747 





50000 





01602 




11750 





60100 





16165 




11751 





50000 


1 


16647 




11752 





60100 





16166 




11753 





07400 


2 


12621 




11754 





02000 





12332 




11755 





50000 





01541 


CP3280 


11756 





60100 





16165 




11757 





07400 


4 


12627 




11760 





07400 


2 


12621 




11761 





60000 





16164 




11762 





02000 





11740 




11763 


-3 


77764 


2 


12007 


CP3350 


11764 





50000 


1 


16651 




11765 





76000 





00001 




11766 





02000 





11775 




11767 





50000 





01556 


CP3390 


11770 





60100 





16165 




11771 


1 


77775 


1 


11772 




11772 





07400 


4 


12627 


CP3420 


11773 





07400 


2 


12621 




11774 


1 


00003 


1 


11740 





TRA CP2860 

LDQ ADSTAR 

STQ CW+2 

STZ CW+3 

TSX COMPfB 

STZ CW 

TRA ESOOOO 

TSX ACOOOOtC 

TRA CP2880 

TSX ACOOOOtC 

LXD CP0400*B 

TXI CP2960*8f3 

TXH CP3000*B#-6 

SXO CP0400fB 

TSX COMPtB 

TXI CP2930»A*-3 

CAL ALL1 

SLW CW 

TSX COMPtB 

STZ CW 

TRA ESOOOO 

TXL CP3350*Bt-9 

CLA SCRIPL+ltA 

LBT 

TRA CP3280 

CLA LfSXD) 

STO CW+1 

CLA X( 

STO CW+2 

CLA Li'4) 

STO CW+3 

TSX COMPtB 

CLA LCTSX) 

STO CW+1 

CLA SCRIPL-1»A 

STO CW+2 

TSX COMPtB 

TRA CP5780 

CLA L(CLA) 

STO CW+1 

TSX ACOOOOtC 

TSX COMPtB 

STZ CW 

TRA CP3100 

TXL CP3560tBt-12 

CLA SCRIPL+ltA 

LBT 

TRA CP3450 

CLA L(LDQ) 

STO CW+1 

TXI CP3420tA»-3 

TSX ACOOOOtC 

TSX COMPtB 

TXI CP3100tAt3 



COMPILE ACC OR MQ INDICATOR 
RESET CW 

AODRESS COMPILE SYM2(S(I)) 
GO COMPILE SYM2(S( II > 
OPEN MULTIVARIATE FUNCTION 



COMPILE SYMJf SUM 



COMPILE LAST ARGUMENT NAME 

RESET CW 

GO TO END-OF-SEGMENT SBRTN 

CLOSED UNIVARIATE FUNCTION 
EXAMINE OP2(SU>)35 
0»*« ARG STORED 
1... ARG IN ACC 



COMPILE SXD7**«0»4 



COMPILE TSX SYMl(S(I))t4 

COMPILE FLOW TRACE INFO AND LXD 7Ct4 



ADDRESS COMPILE SYM2(S(I!) 

COMPILE CLA SYM2(S(in 

RESET CW 

GO COMPILE SXDtTSXtLXD SEQUENCE 

CLOSED BIVARIATE FUNCTION 
EXAMINE OP2{S(D)35 
0..» ARG1 STORED 
!••• ARG1 IN ACC 



ADDRESS COMPILE SYM3(S< I>) 

COMPILE LDQ SYM3(S<in 

GO COMPILE SXDtTSXtLXD SEQUENCE 



4F15288 

4F15289 

4F15290 

4F15291 

4F15292 

4F15293 

4F 15294 

4F15295 

4F15296 

4F15297 

4F15298 

4F15299 

4F15300 

4F15301 

4F15302 

4F15303 

4F15304 

4F15305 

4F15306 

4F15307 

4F15308 

4F15309 

4F15310 

4F15311 

4F15312 

4F15313 

4F15314 

4F15315 

4F15316 

4F15317 

4F15318 

4F15319 

4F15320 

4F15321 

4F 15322 

4F15323 

4F15324 

4F15325 

4F15331 

4F15332 

4F15333 

4F15334 

4F15335 

4F15336 

4F15337 

4F15338 

4F15339 

4F15340 

4F15341 

4F15342 

4F15343 

4F15344 

4F15345 

4F15346 



1 /■» 



11775 
11776 
11777 
12000 
12001 
12002 
12003 
12004 
12005 
12006 
12007 
12010 
12011 
12012 
12013 
12014 
12015 
12016 
12017 
12020 
12021 
12022 
12023 
12024 
12025 
12026 
12027 
12030 
12031 
12032 
12033 
12034 
12035 
12036 
12037 
12040 
12041 
12042 
12043 
12044 
12045 
12046 
12047 
12050 
12051 
12052 
12053 
12054 
12055 
12056 
12057 
12060 
12061 
12062 



50000 
76000 
02000 
02000 
50000 
60100 
07400 
07400 
60000 
02000 
50000 
76000 
77772 
77772 
50000 
60100 
50000 
60100 
07400 
07400 
50000 
60100 
50000 
60100 
50000 
60100 
40200 
60100 
07400 
53400 
00003 
77764 

53400 

1 77775 
63400 
77775 
50000 
76000 
00006 
50000 
60100 
50000 
60100 
07400 
07400 
50000 
60100 
50000 
60100 
50000 
60100 
40200 
60100 
07400 



16654 CP3450 CLA SCRIPL+4»A 

00001 LBT 

12001 TRA CP3490 

11755 TRA CP3280 

01541 CP3490 CLA UCLA) 

16165 STO CW+1 

12627 TSX AC0O00»C 

12621 TSX COMP»B 

16164 STZ CW 
11767 TRA CP3390 
16651 CP3560 CLA SCRIPL+1»A 
00001 LBT 
12041 TXI CP3820»A»-6 
12013 TXI CP36O0»A#~6 
01521 CP3600 CLA DECMI2 
16161 STO P(CNTR 
01556 CP3620 CLA L(LDQ) 

16165 STO CW+1 
12627 TSX ACO000»C 
12621 TSX COMPtB 
01573 CLA L(STQ) 

16165 STO CW+1 
01503 CLA P( 

16166 STO CW+2 
16161 CLA PfCNTR 

16167 STO CW+3 
01454 SUB 2E18 
16161 STO P(CNTR 
12621 TSX COMP»B 
11324 LXD CP0400»B 
12034 TXI CP3770tB»3 
12037 CP3770 TXL CP380Q*Bt-12 
01117 LXD 30BAR»A 
11767 TXI CP3390»A»-3 
11324 CP3800 SXD CP0400*B 
12015 TXI CP3620#A»-3 
16646 CP3820 CLA SCRIPL-2#A 
00001 LBT 
12072 TXI CP4070*A»6 
01521 CLA DECMI2 
16161 STO PCCNTR 

01541 CP3870 CLA L(CLA) 

16165 STO CW+1 

4 12627 TSX ACOOOOtC 

2 12621 TSX COMP#B 

01572 CLA LtSTO) 

16165 STO CW+1 

01503 CLA P( 

16166 STO CW+2 
16161 CLA PCCNTR 

16167 STO CW+3 
01454 SUB 2E18 
16161 STO PCCNTR 
12621 TSX COMP»B 



EXAMINE OP3CSCIH35 
0.»« ARG2 STORED 
!*«« AR62 IN MQ 



ADDRESS COMPILE SYM2CSCI)) 

COMPILE CLA SYM2(SU>) 

REST CW 

GO COMPILE LDQ»SXD*TSX»LXD SEQUENCE 

CLOSED MULTIVARIATE FUNCTION 

EXAMINE OP2(S(I))35 

0... ARG1 STORED 

It*. ARG1 IN ACC 

INITIALIZE PtCNTR TO -2 

ADDRESS COMPILE SYMJCSCIM FOR J=4»5»»*« 
COMPILE LDQ SYMJCSCIM 



COMPILE STQ 4«*»0-{J-2) 



FINISHED WITH ARG VECTOR 



GO PICK UP NEXT ARG» 

EXAMINE OP3CSCIH35 
0»»« ARG2 STORED 
!»«• ARG2 IN MO 



ADDRESS COMPILE SYMJCSUU FOR Js4»5»**« 
COMPILE CLA SYMJCSCIM 



COMPILE STO 4.»«0-(J-2) 



4F15347 
4F15348 
4F 15349 
4F15350 
4F15351 
4F 15352 
4F15353 
4F15354 
4F15355 
4F15356 
4F15357 
4F15358 
4F15359 
4F15360 
4F15361 
4F15362 
4F15363 
4F15364 
4F15365 
4F15366 
4F15367 
4F15368 
4F 15369 
4F15370 
4F15371 
4F 15372 
4F 15373 
4F15374 
4F15375 
4F15376 
4F15377 
4F15378 
4F15379 
4F15380 
4F15381 
4F15382 
4F15383 
4F15384 
4F15385 
4F15386 
4F15387 
4F15388 
4F15389 
4F15390 
4F15391 
4F15392 
4F15393 
4F15394 
4F15395 
4F15396 
4F15397 
4F15398 
4F15399 
4F 15400 



77^ 



u 



A i 



u 



r 



12063 
12064 
12065 
12066 
12067 
12070 
12071 
12072 
12073 
12074 
12075 
12076 
12077 
12100 
12101 
12102 
12103 
12104 
12105 
12106 
12107 
12110 
12111 
12112 
12113 
12114 
12115 
12116 
12117 
12120 
12121 
12122 
12123 
12124 
12125 
12126 
12127 
12130 
12131 
12132 
12133 
12134 
12135 
12136 
12137 
12140 
12141 
12142 
12143 
12144 
12145 
12146 
12147 
12150 



53400 

1 00003 
77764 
53400 
77775 
63400 
77775 
50000 
60100 
07400 
07400 
60000 
77772 
76300 
16200 
76000 
02000 
50000 
02000 
50000 
60100 
76300 
16200 
56000 



i WW 

56000 
60000 
60000 
02000 
07400 
50200 
60100 
07400 
60000 
50000 
60100 
07400 
60000 
02000 
76300 
76000 
02000 
50000 
60100 
77775 
07400 
07400 
50000 
60100 
50000 
60100 
50000 
60100 
07400 



11324 
12065 
12070 
01117 
11755 
11324 
12046 
01541 
16165 
12627 
12621 
16164 
12013 
00033 
12132 
00001 
12106 
01525 
12107 
01524 
16165 
00002 
12120 
01524 



CP4140 



CP4200 
CP4210 



00001 



01512 
16166 
16167 
12121 
12627 
16164 
16164 
12621 
16164 
16655 
16166 
12621 
16165 
12337 
00003 
00001 
12177 
01556 
16165 
12140 
12627 
12621 
01575 
16165 
01505 
16166 
01412 
16167 
12621 



LXD CP0400*8 

TXI CP4020»B»3 
CP4020 TXL CP4050*B»-12 

LXD 3QBAR»A 

TXI CP3280»A»-3 
CP4050 SXD CPQ400«B 

TXI CP3870»A»-3 
CP4070 CLA L(CLA) 

STO CW+1 

TSX ACOOOOtC 

TSX C0MP»B 

ST2 CW 

TXI CP360O»A»-6 

LGL 27 

TQP CP4410 

LBT 

TRA CP4200 

CLA STRSTR 

TRA CP4210 

CLA ADSTAR 

STO CW+1 

LGL 2 

TOP CP4310 

LDO ADSTAR 

LBT 

LDQ ADPLUS 

STO CW+2 

STZ CW+3 

TRA CP4320 
CP4310 TSX AC000O»C 
CP4320 CLS CW 

STO CW 

TSX COMPtB 

STZ CW 

CLA SCRIPL+5»A 

STO CW+2 

TSX COMP»B 

STZ CW+1 

TRA ES0O00 
CP4410 LGL 3 

LBT 

TRA CP4860 
CP4440 CLA L(LDO) 

STO CW+1 

TXI CP4470»A«-3 
CP4470 TSX AC0000»C 

TSX COMP»B 
CP4490 CLA L(SXD) 

STO CW+1 

CLA X( 

STO CW+2 

CLA L(4) 

STO CW+3 

TSX C0MP#B 



FINISHED WITH ARG VECTOR 



GO PICK UP NEXT ARG 

ADDRESS COMPILE SYM2(S(I>) 
COMPILE CLASYM2(S( I) ) 
RESET CW 

OPHS(I))*** 

CLOSED SBRTN SINCE OP1 ( S( I ) ) 33=0 
OPEN SBRTN SINCE OP1 <S t I ) ) 33=1 
BASE FIX PT SINCE OP1(SU))32 = 
BASE FLO PT SINCE 0P1 (S( 1 1 >) 32=1 



EXAMINE 0PHSUH35 
<)•»• BASE STORED 
l.». BASE NOT STORED 
EXAMINE OPlfS{I>}34 
0*.. BASE IN ACC 
1*»«BASE IN MQ 



ADDRESS COMPILE SYM1(S(IM 

CW TO -CW 
COMPILE BASE 
RESET CW 



COMPILE FIX PT CONSTANT EXPONENT 
RESET CW+1 

CLOSED EXP* SBRTN 
EXAMINE OPKSUU35 
0»*« BASE STORED 
!••• BASE IN ACC. 



ADDRESS COMPILE SYM2(S(II> 
COMPILE LDQ SYM2 tStll) 



COMPILE SXD 7.«»0»4 



4F15401 

4F15402 

4F 15403 

4F15404 

4F15405 

4F15406 

4F15407 

4F15408 

4F15409 

4F15410 

4F15411 

4F15412 

4F15413 

4F15414 

4F15415 

4F15416 

4F15417 

4F15418 

4F15419 

4F15420 

4F15421 

4F15422 

4F 15423 

4F15424 

4F15425 

4F15426 

4F15427 

4F15428 

4F15429 

4F15430 

4F15431 

4F15432 

4F15433 

4F15434 

4F15435 

4F 15436 

4F15437 

4F15438 

4F15439 

4F 15440 

4F15441 

4F15442 

4F15443 

4F 15444 

4F 15445 

4F 15446 

4F15447 

4F15448 

4F15449 

4F15450 

4F 15451 

4F15452 

4F15453 

4F15454 



vi 



12151 





50000 





01602 




CLA 


LCTSX) 


12152 





60100 





16165 




STO 


CW-H 


12153 





50C00 


1 


16651 




CLA 


SCRIPL+1»A 


12154 





77100 





00003 




ARS 


3 


12155 





76000 





00001 




LBT 




12156 


1 


00003 


1 


12164 




TXI 


CP4660«A»3 


12157 





50000 





01516 




CLA 


FLFL 


12160 





56000 


1 


16646 




LDQ 


SCRIPL-2#A 


12161 


-0 


77300 





00040 




RQL 


32 


12162 





16200 





11216 




TOP 


MC0310+2 


12163 





02000 





12171 




TRA 


CP4730 


12164 





56000 


1 


16651 


CP4660 


LDQ 


SCRIPL+1»A 


12165 


-0 


77300 





00040 




RQL 


32 


12166 





50000 





01514 




CLA 


FXFX 


12167 





16200 





12171 




TOP 


CP4730 


12170 





50000 





01515 




CLA 


FLFX 


12171 





60100 





16166 


CP4730 


STO 


CW+2 


12172 





60100 





01347 




STO 


G 


12173 





07400 


2 


12621 




TSX 


C0MP»B 


12174 





07400 


1 


03321 




TSX 


TETOO.A 


12175 





00000 





00011 




HTR 


9 


12176 





02000 





12332 




TRA 


CP5780 


12177 





50000 





01541 


CP4860 


CLA 


L(CLA) 


12200 





60100 





16165 




STO 


CW+1 


12201 





07400 


4 


12627 




TSX 


ACOOOO.C 


12202 





07400 


2 


12621 




TSX 


COMP»B 


12203 





60000 





16164 




ST2 


CW 


12204 





50O00 


1 


16654 




CLA 


SCRIPL+4»A 


12205 





76000 





00001 




LBT 




12206 


1 


00000 





12135 




TXI 


CP4440*G»0 


12207 


1 


77775 


1 


12142 




TXI 


CP4490»A#-3 


12210 





50000 





00030 


CP5000 


CLA 


EIFNO 


12211 





40000 





01454 




ADD 


2E18 


12212 





60100 





00030 




STO 


EIFNO 


12213 





60100 





16160 




STO 


FNSW 


12214 





62200 





01105 




STD 


1C 


12215 





53400 


4 


01407 




LXA 


L(1)»C 


12216 





50000 


1 


16650 


CP5050 


CLA 


SCR1PL»A 


12217 


-0 


12000 





12233 




TMI 


CP5180 


12220 


-0 


63400 


2 


11664 




SXD 


CP5830*B 


12221 


-0 


63400 


4 


12314 




SXD 


STACTR*C 


12222 





07400 


4 


12627 




TSX 


ACOOOOfC 


12223 


-0 


50000 





16173 




CAL 


TAGPRT 


12224 


-0 


10000 





12237 




TNZ 


CP5220 


12225 


-o 


50000 





16167 




CAL 


CW+3 


12226 





77100 





00013 




ARS 


11 


12227 


-0 


50100 





01474 




ORA 


NGTBIT 


12230 


-0 


60200 


1 


16651 




ORS 


SCRIPL+1#A 


12231 


-0 


53400 


4 


12314 


CP5160 


LXD 


STACTR»C 


12232 


-0 


53400 


2 


11664 




LXD 


CP5830«B 


12233 


1 


00003 


2 


12234 


CP5180 


TXI 


CP5190»3»3 


12234 


3 


77772 


2 


12267 


CP5190 


TXH 


CP5460»B#-6 


12235 


1 


00001 


4 


12236 




TXI 


CP5210»C»1 



EXAMINE 0P2(S(I))32 

0*** 

1*»« FLO**FLO 

EXAMINE 0P1(S(I))32 TO CHECK 

FOR MIXED EXPONENTIAL EXPRESSION 

ERROR FIX PT BASE. FLOAT EXP* 



EXAMINE 0P1(S(I))32 



©••♦FX**FX 
!•»• FL**FX 



COMPILE TSX FXFX/FLEX/FLFL»4 
COMPILE FLOW TRACE INFO AND LXD 71 >4 



ADDRESS COMPILE SYMltS(D) 
COMPILE CLA SYMKS(Il) 



EXAMINE 0P2(SU>)35 
0»**EXP STORED 
1*«* EXP IN MQ 

FN FUNCTION 

UPDATE EIFNO 

AND 

SET FN SWITCH 

KEEP 1C UPDATED FOR PENDING TIFGO ENTRY. 

INITIALIZE STAIX TO 1 

EXAMINE TAGJCS(I))* J=2»»«» 

NONSUBSCRIPTED 

SUBSCRIPTED- IS THERE A GENERAL TAG 



GENERAL TAG PRESENT 
NO GENERAL TAG PRESENT »S0 PLACE 
RELATIVE ADDRESS IN OPJ(S( I H 14-28 AND 
SET 0PJ(S(I))10»1 FROM NGTBIT 



FINISHED WITH PRELUDE* IF ANY 
NOT FINISHED-STAIX=STAIX+1 



4F15455 
4F 15456 
4F15457 
4 F 154 58 
4F 15459 
4F15460 
4F15461 
4F15462 
4F15463 
4F15464 
4F15465 
4F15466 
4F15467 
4F15468 
4F15469 
4F15470 
4F15471 
4F15472 
4F15473 
4F15474 
4F15475 
4F15476 
4F15482 
4F15483 
4F 15484 
4F15485 
4F15486 
4F15487 
4F15488 
4F15489 
4F15490 
4F15491 
4F15492 
4F15493 
4F 15494 
4F15495 
4F15496 
4F15497 
4F15498 
4F15499 
4F15500 
4F15501 
4F15502 
4F15503 
4F15504 
4F15505 
4F15506 
4F15507 
4F15508 
4F15509 
4F15510 
4F155U 
4F15512 
4F15513 



-n< 



u 



u 



12236 
12237 
12240 
12241 
12242 
12243 
12244 
12245 
12246 
12247 
12250 
12251 
12252 
12253 
12254 
12255 
12256 
12257 
12260 
12261 
12262 
12263 
12264 
12265 
12266 
12267 
12270 
12271 
12272 
12273 
12274 
12275 
12276 
12277 
12300 
12301 
12302 
12303 
12304 
12305 
12306 
12307 
12310 
12311 
12312 
12313 
12314 
12315 
12316 
12317 
12320 
12321 
12322 
12323 



77775 
50000 
60200 
07400 
60000 
07400 
00000 
00000 
00000 
00000 
07400 
00000 
00000 
00000 
00000 
50000 
60200 
50000 
32000 
60200 
53400 
75400 
60200 
07400 
00000 
53400 
50000 
60200 
50000 
60200 
50000 
60200 
07400 
50000 
32000 
60200 
50000 
60200 
50000 
60200 
07400 
60000 
77775 
50000 
12000 
07400 
00000 
56000 
76300 
76000 
56000 
60000 
50000 
60200 



12216 
01566 
16165 
12621 
16164 
01731 
01406 
01535 
01406 
01466 
01731 
01406 
01532 
01511 
01521 
01571 
16165 
00030 
01527 
16166 
12314 
00000 
16167 
12621 
12231 
01117 
01575 
16165 
01505 
16166 
01412 
16167 
12621 
00030 
01527 
16164 
01602 
16165 
16652 
16166 
12621 
16164 
12311 
16650 
12315 
12627 
12324 
16651 
00013 
00001 
01406 
16167 
16652 
16166 



CP5210 
CP5220 



CP5460 



CP5680 



STACTR 
CP5700 



TXI CP5050»A»-3 

CAL L(PXO) 

SLW CW+1 

TSX COMP#B 

STZ CW 

TSX ClTOOiC 

HTR HO) 

HTR L(ARS) 

HTR LCO) 

HTR DEC18 

TSX CITOO»C 

HTR L(0) 

HTR L(ADD) 

HTR PROCTR 

HTR DECM12 

CAL LCSTAJ 

SLW CW+1 

CAL EIFNO 

ANA MASK1 

SLW CW+2 

LXD STACTR»C 

PXD 0»C 

SLW CW+3 

TSX COMP»B 

TXI CP5160*O*0 

LXD 3QBAR*A 

CAL LfSXD) 

SLW CW+1 

CAL X( 

SLW CW+2 

CAL L(4) 

SLW CW+3 

TSX COMP»B 

CAL EIFNO 

ANA MASKl 

SLW CW 

CAL L(TSX) 

SLW CW+1 

CAL SCRIPL+2»A 

SLW CW+2 

TSX COMP»B 

STZ CW 

TXI CP5680«A»~3 

CLA SCR I PL f A 

TPL CP5700 

TSX AC0000#C 

TXI CP5720rO»0 

LDQ SCRIPL+1»A 

LGL 11 

LBT 

LDQ LCO) 

STQ CW+3 

CAL SCRIPL+2»A 

SLW CW+2 



60 ON TO NEXT ARGUMENT 

COMPILE PXD SYMJtSUH* TAGJISCIH 

RESET CW 
COMPILE ARS 18 



COMPILE ADD *-2 



COMPILE STA IFN+STAIX 

GO ON TO NEXT ARGUMENT* IF ANY 



COMPILE SXD 7»4 



COMPILE TSX SYM1(S(I))»4 

RESET CW 

POSITION XA TO SYM2(S(in 



NONSUBSCRIPTED 
SUBSCRIPTED 



GENERAL TAG PRESENT 
NO GENERAL TAG PRESENT 



4F15514 

4F15515 

4F15516 

4F15517 

4F15518 

4F15519 

4F15520 

4F15521 

4F15522 

4F15523 

4F15524 

4F15525 

4F15526 

4F15527 

4F15528 

4F15529 

4F15530 

4F15531 

4F15532 

4F15533 

4F15534 

4F15535 

4F15536 

4F15537 

4F15538 

4F15539 

4F 15540 

4F15541 

4F15542 

4F15543 

4F15544 

4F15545 

4F15546 

4F15547 

4F 15548 

4F15549 

4F15550 

4F15551 

4F15552 

4F15553 

4F15554 

4F15555 

4F15556 

4F15557 

4F15558 

4F15559 

4F15560 

4F15561 

4F15562 

4F15563 

4F15564 

4F15565 

4F15566 

4F15567 



IT) 



12324 
12325 
12326 
12327 
12330 
12331 
12332 
12333 
12334 
12335 
12336 
12337 
12340 
12341 
12342 
12343 
12344 
12345 
12346 
12347 
12350 
12351 
12352 
12353 
12354 
12355 
12356 
12357 
12360 
12361 
12362 
12363 
12364 
12365 
12366 
12367 
12370 
12371 
12372 
12373 
12374 
12375 
12376 
12377 
12400 
12401 
12402 
12403 
12404 
12405 
12406 
12407 
12410 
12411 



07400 
53400 
00003 
77772 
63400 
77775 
07400 
00000 
00000 
00000 
00000 
53400 
76000 
02000 
50000 
32000 
10000 
50000 
60100 
50000 
60100 
50000 
76000 
50000 
60100 
07400 
02000 
56000 
76300 
34000 
02000 
02000 
34000 
02000 
02000 
34000 
02000 
02000 
77100 
53400 
00000 
34000 
34000 
02000 
02000 
76000 
02000 
50000 
76000 
50000 
60100 
50000 
60100 
50000 



12621 
11324 
12327 
12332 
11324 
12311 
03401 
01406 
01561 
01505 
01412 
01117 
00141 
11271 
16650 
01452 
12357 
01120 
16166 
01363 
16167 
01573 
00142 
01572 
16165 
12621 
11271 
01356 
00014 
01450 
12364 
12556 
01451 
12367 
12561 
01447 
12372 
12615 
00006 
01122 
12533 
01423 
01425 
12465 
12465 
00144 
12420 
01573 
00142 
01572 
16165 
01354 
16170 
01355 



CP5720 
CP5750 
CP5780 

ES0O00 



ES0160 

ES0200 
ES0210 
ES0220 



ES0710 
ES0730 



TSX 

LXD 
TXI 
TXH 
SXD 
TXI 
TSX 
HTR 
HTR 
HTR 
HTR 
LXD 
SLT 
TRA 
CAL 
ANA 
TZE 
CLA 
STO 
CLA 
STO 
CLA 
SLT 
CLA 
STO 
TSX 
TRA 
LDQ 
L6L 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
ARS 
LXD 
TXH 
CAS 
CAS 
TRA 
TRA 
SLT 
TRA 
CLA 
SLT 
CLA 
STO 
CLA 
STO 
CLA 



COMP»B 

CP0400*B 

CP5750»B«3 

CP5780»B*-6 

CP0400»B 

CP5680*At-3 

FLTR00»4 

L(0) 

L(LXD) 

X( 

L(4) 

3QBAR»A 

1 

CP0130 

SCRIPL»A 

MASK2 

ES0160 

ARERAS 

CW+2 

PHKIJ 

CW+3 

L(STQ) 

2 

LCSTO) 

CW+1 

C0MP»B 

CP0130 

LEFT+2 

12 

IFSYM 

ES0200 

ES1500 

CALLER 

ES0210 

ES1520 

SAPSYM 

ES0220 

ES1710 

6 

AR6CTR»C 

ES1300»C»0 

LIH) 

L(0) 

ES0300 

ES0300 

4 

ES0870 

L(STO) 

2 

L(STO) 

CW+1 

LEFT 

TAGWRD 

LEFT+1 



COMPILE TSX SYMJCSCIH * J=2»»»« 

FINISHED SCANNING 

COMPILE FLOW TRACE INFO AND LXD 7(*4 

-3Q TO XA 

GO TO NEXT SEGMENT 

S(I> NOT * SCO) 



COMPILE STO/STQ !»•• TYPE NO + PHKI) 

GO TO NEXT SEGMENT 

S<I)«S<0) 

IS THIS AN IF STATEMENT 



IS THIS A CALL STATEMENT 



IS THIS A FUNCTION STATEMENT 

YES 

NOT A FUNCTION STATEMENT 



FX(FLO) PT ON LEFT* FX(FLO) PT ON RIGHT 



4F15568 

4F15569 

4F15570 

4F15571 

4F15572 

4F15573 

4F15574 

4F15575 

4F15576 

4F15577 

4F15578 

4F15579 

4F15580 

4F15581 

4F15582 

4F15583 

4F15584 

4F15585 

4F15586 

4F15587 

4F15588 

4F15589 

4F15590 

4F15591 

4F15592 

4F15593 

4F15594 

4F15595 

4F15596 

4F15597 

4F15598 

4F155-99 

4F15600 

4F15601 

4F15602 

4F15603 

4F15604 

4F15605 

4F15606 

4F15607 

4F15608 

4F15609 

4F15610 

4F15611 

4F15612 

4F15613 

4F15614 

4F15615 

4F15616 

4F15617 

4F15618 

4F15619 

4F15620 

4F25621 



7$ 



o 



u 



12412 





60100 





16171 


STO 


OP WORD 


12413 





50000 





01356 


CLA 


LEFT+2 


12414 





60100 





16172 


STO 


SYMWRD 


12415 





07400 


4 


12635 


TSX 


AC0060*C 


12416 





07400 


2 


12621 


TSX 


COMP »B 


12417 





02000 





12601 


TRA 


ES1590 


12420 


-0 


76000 





00142 


ES0870 SLT 


2 


12421 





02000 





12433 


TRA 


ES0990 


12422 





50000 





01573 


CLA 


LfSTQ) 


12423 





60100 





16165 


STO 


CW+1 


12424 





50000 





01505 


CLA 


Xt 


12425 





60100 





16166 


STO 


CW+2 


12426 





60000 





16167 


STZ 


CW+3 


12427 





07400 


2 


12621 


TSX 


COMP»B 


12430 





50000 





01541 


CLA 


L(CLA) 


12431 





60100 





16165 


STO 


CW+1 


12432 





07400 


2 


12621 


TSX 


COMP»B 


12433 





C7400 


4 


01731 


ES0990 TSX 


CI TOO » C 


12434 





000430 





01406 


HTR 


LCO) 


12435 





00000 





01603 


HTR 


L(UFA) 


12436 





00000 





01504 


HTR 


0( 


12437 





0000Q 





01406 


HTR 


LfO) 


12440 





07400 


4 


01731 


TSX 


ciToa»c 


12441 





00000 





02406 


HTR 


Ltd 


12442 





00000 





01560 


HTR 


L(LRS) 


12443 





00000 





01406 


HTR 


L(0) 


12444 





00000 





01406 


HTR 


LfO) 


12445 





07400 


4 


01731 


TSX 


CIT00*C 


124^6 





00000 





01406 


HTR 


LiO) 


12447 





00000 





01534 


HTR 


L{ANA) 


12450 





00000 





01504 


HTR 


0( 


12451 





00000 





01454 


HTR 


2E18 


12452 





07400 


4 


01731 


TSX 


CI TOO* C 


12453 





00000 





01406 


HTR 


LfO) 


12454 





00000 





01557 


HTR 


L(LLS) 


12455 





ooooo 





01406 


HTR 


L(O) 


12456 





00000 





01406 


HTR 


L(0) 


12457 





07400 


4 


01731 


TSX 


CI TOO 4 C 


12460 





ooooo 





01406 


HTR 


LfO) 


12461 





ooooo 





01533 


HTR 


L(ALS) 


12462 





ooooo 





01406 


HTR 


LfO) 


12463 





ooooo 





01466 


HTR 


DEC 18 


12464 





02000 





12521 


TRA 


ES0610 


12465 


-0 


76000 





00144 


ES0300 SLT 


4 


12466 





02000 





12403 


TRA 


ES0710 


12467 


-0 


76000 





00142 


ES0320 SLT 


2 


12470 





02000 





12502 


TRA 


ES0440 


12471 





50000 





01573 


CLA 


LfSTQ) 


12472 





60100 





16165 


STO 


CW+1 


12473 





50000 





01505 


CLA 


X{ 


12474 





60100 





16166 


STO 


CW+2 


12475 


c 


60000 





16167 


STZ 


CW+3 


12476 





7-00 


2 


12621 


TSX 


COMP.B 


12477 





50000 





01541 


CLA 


LtCLAl 



ADDRESS COMPILE VARIABLE ON LEFT 

COMPILE STO/STQ LEFT+2 

EXIT TO FETCH STATE A 

FX PT ON LEFT* FLO PT ON RIGHT 

RESULT ON RIGHT APPEARS IN MQ 



COMPILE STQ 700000 



COMPILE CLA 7 OOOOO 

COMPILE FIXING INSTRUCTIONS* WHEN 

RESULT ON RIGHT IS IN ACC« 



FLO PT ON LEFT* FX PT ON RIGHT 
RESULT ON RIGHT APPEARS IN MQ 

COMPILE STQ 700000 



4F15622 

4F15623 

4F15624 

4F15625 

4F15626 

4F15627 

4F15628 

4F15629 

4F15630 

4F15631 

4F 15632 

4F15633 

4F15634 

4F 15635 

4F15636 

4F15637 

4F 156-38 

4F 15639 

4F15640 

4F 15641 

4F15642 

4F15643 

4F15644 

4 F 15 645 

4F15646 

4F15647 

4F15648 

4 F 15 649 

4F 15650 

4F 15651 

4F 15652 

4F15653 

4 F 15654 

4F15655 

4F15656 

4F15657 

4F15658 

4F15659 

4F 15660 

4F15661 

4F15662 

4 F 15 663 

4F15664 

4F15665 

4F15666 

4F 15667 

4 F 15668 

4F15669 

4F15670 

4F15671 

*F15672 

4F156T3 

4F15674 

4F15675 



Yd 



12500 





60100 





16165 




STO 


CW+1 


12501 





07400 


2 


12621 




TSX 


C0MP»B 


12502 





07400 


4 


01731 


ES0440 


TSX 


CITOOtC 


12503 





00000 





01406 




HTR 


LCO) 


12504 





00000 





01560 




HTR 


LURS) 


12505 





00000 





01406 




HTR 


LCO) 


12506 





00000 





01466 




HTR 


DEC18 


12507 





07400 


4 


01731 




TSX 


CITOO#C 


12510 





00000 





01406 




HTR 


L(0) 


12511 





00000 





01564 




HTR 


LCORA) 


12512 





00000 





01504 




HTR 


OC 


12513 





00000 





01406 




HTR 


LCO) 


12514 





07400 


4 


01731 




TSX 


CITOOtC 


12515 





00000 





01406 




HTR 


LCO) 


12516 





00000 





01550 




HTR 


L(FAD) 


12517 





00000 





01504 




HTR 


0( 


12520 





0OQ00 





01406 




HTR 


LCO) 


12521 


-0 


53400 


4 


01122 


ES0610 


LXD 


ARGCTRfC 


12522 


-3 


00000 


4 


12405 




TXL 


ES0730»C»0 


12523 





50000 





01601 


ES0630 


CLA 


LCTRA) 


12524 





60100 





16165 




STO 


CW+1 


12525 





60000 





16166 




ST2 


CW+2 


12526 


-0 


50000 





01454 




CAL 


2E18 


12527 


-0 


50100 





01412 




ORA 


L(4) 


12530 





60200 





16167 




SLW 


CW+3 


12531 





07400 


2 


12621 




TSX 


COMPtB 


12532 





02000 





12601 




TRA 


ES1590 


12533 





40200 





01433 


ES1300 


SUB 


LtX) 


12534 





10000 





12540 




TZE 


ES1360 


12535 


-0 


76000 





00144 




SLT 


4 


12536 





02000 





12542 




TRA 


ES1360 


12537 





02000 





12467 




TRA 


ES0320 


12540 


-0 


76000 





00144 


ES1360 


SLT 


4 


12541 





02000 





12420 




TRA 


ES0870 


12542 


-0 


76000 





00142. 


ES1380 


SLT 


2 


12543 





02000 





12523 




TRA 


ES0630 


12544 





50000 





01573 




CLA 


LCSTQ) 


12545 





60100 





16165 




STO 


CW+1 


12546 





50000 





01505 




CLA 


X( 


12547 





60100 





16166 




STO 


CW+2 


12550 





60000 





16167 




STZ 


CW+3 


12551 





07400 


2 


12621 




TSX 


COMP»B 


12552 





50000 





01541 




CLA 


L(CLA) 


12553 





60100 





16165 




STO 


CW+1 


12554 





07400 


2 


12621 




TSX 


C0MP#B 


12555 





02000 





12523 




TRA 


ES0630 


12556 





07400 


1 


03321 


ES1500 


TSX 


TET0Q»1 


12557 





00000 





00002 




PZE 


2 


12560 





02000 





12565 




TRA 


ES1530 


12561 


-0 


53400 


4 


00030 


ES1520 


LXD 


EIFN0»4 


12562 


-0 


63400 


4 


01123 




SXD 


CALLNM»4 


12563 





07400 


1 


03321 




TSX 


TET00»1 


12564 





00000 





00020 






16 


12565 


-0 


76000 





00142 


ES1530 


SLT 


2 



COMPILE CLA 700000 

COMPILE FLOATING INSTRUCTIONS* WHEN 

RESULT ON RIGHT IS IN ACC 



IS THIS A FUNCTION STATEMENT 

NO 

YES 



COMPILE TRA 1»4 

EXIT TO FETCH STATE A 



COMPILE STQ 700000 



COMPILE CLA 700000 

* GO TO PROGRAM TET TO ENTER 1C»1C+1 
INTO TIFGO TABLE CTABLE 2>« 

PREPARE ENTRY FOR TABLE OF CALL FIRST AND 
LAST IFN NUMBERS. 



4F15676 

4F15677 

4F15678 

4F15679 

4F15680 

4F15681 

4F15682 

4F15683 

4F15684 

4F15685 

4F15686 

4F15687 

4F15688 

4F15689 

4F15690 

4F15691 

4F15692 

4F15693 

4F15694 

4F15695 

4F15696 

4F15697 

4F 15698 

4F15699 

4F15700 

4F15701 

4F15702 

4F15703 

4F15704 

4F15705 

4F15706 

4F15707 

4F15708 

4F15709 

4F15710 

4F15711 

4F15712 

4F15713 

4F15714 

4F15715 

4F15716 

4F15717 

4F15718 

4F15719 

4F15720 

4F15721 

4F15722 

4F15723 

4F15724 

4F15725 

4F15726 

4F15727 

4F15728 

4F15729 



-?■ 



1/ 



G 



U 



12566 





02000 





12601 


TRA 


ES1590 


12567 





07400 


4 


01731 


TSX 


CITOOfC 


12570 





00000 





01406 




LfO) 


12571 





00000 





01573 




L(STO) 


12572 





00000 





01505 




X( 


12573 





00000 





01406 




LCO) 


12574 





07400 


4 


01731 


TSX 


CIT00*4 


12575 





ooooo 





01406 




L(0) 


12576 





00000 





01541 




L(CLA) 


12577 





ooooo 





01505 




X( 


12600 





ooooo 





01406 




LfO) 


12601 





50000 





16160 ES1590 


CLA 


FNSW 


12602 





10000 





03440 


TZE 


MTROOO 


12603 





50000 





01151 


CLA 


F-l 


12604 





40200 





01477 


SUB 


5BLANS 


12605 





10000 





03440 


TZE 


MTROOO 


12606 





50200 





00030 


CLS 


EIFNO 


12607 





60100 





00030 


STO 


E1FN0 


12610 





07400 


1 


03321 


TSX 


TETOOfA 


12611 





OOOOO 





OOOOO 


HTR 





12612 





50200 





00030 


CLS 


EIFNO 


12613 





60100 





00030 


STO 


EIFNO 


12614 





02000 





03440 


TRA 


MTROOO 


12615 


-0 


53400 


2 


00637 ES1710 


LXD 


BBOXtB 


12616 





50000 





01362 


CLA 


OPNWRD 


12617 





60100 


2 


00635 


STO 


CIB-3»B 


12620 





02000 





03440 


TRA 


MTROOO 


12621 





07400 


4 


01731 COMP 


TSX 


CITOO.C 


12622 





OOOOO 





16164 


HTR 


CW 


12623 





OOOOO 





16165 


HTR 


CW+1 


12624 





OOOOO 





16166 


HTR 


CW+2 


12625 





ooooo 





16167 


HTR 


CW+3 


12626 





02000 


2 


00001 


TRA 


1»B 


12627 





50000 


1 


16650 ACOOOO 


CLA 


SCRIPL»A 


12630 





60100 





16170 


STO 


TAGWRD 


12631 





50000 


1 


16651 


CLA 


SCRIPL+1» 


12632 





60100 





16171 


STO 


OPWORO 


12633 





50000 


1 


16652 


CLA 


SCRIPL+2* 


12634 





60100 





16172 


STO 


SYMWRD 


12635 


-0 


50000 





16170 AC0060 


CAL 


TAGWRD 


12636 


-0 


32000 





01527 


ANA 


MASK1 


12637 


-0 


76000 





00001 


PBT 




12640 





02000 





12721 


TRA 


AC0540 


12641 


-0 


75400 





OOOOO 


PXD 


0*0 


12642 





56000 





16172 


LDQ 


SYMWRD 


12643 


•o 


76300 





00001 


LGL 


1 


12644 





76000 





00001 


LBT 




12645 





16200 





12712 


TOP 


AC0460 


12646 


-0 


76300 





00013 


LGL 


11 


12647 





40200 





01444 


SUB 


L(A( ) 


12650 





10000 





12705 


TZE 


AC0410 


12651 





40000 





01444 


ADD 


L(A() 



EXIT TO FETCH STATE A 
COMPILE LLS 37 



EXTRACT TAGS IN ACC. 



NON-SUBSCRIPTED SYMBOL 



SYMBOL IS SOME SU) 

NON- SUBSCRIPTED EX/ INTERNAL VARIABLE 

IS THIS A FLO PT CONSTANT 

YES 

NO 



4F1573Q 

4F15731 

4F15732 

4F15733 

4F15734 

4F15735 

4F15736 

4F15737 

4F15733 

4F15739 

4F15740 

4F15741 

4F15742 

4F15743 

4F15744 

4F15745 

4F15746 

4F15747 

4F15748 

4F15749 

4F15750 

4F15751 

4F15752 

4F15753 

4F15754 

4F15755 

4F15756 

4F15757 

4F15758 

4F15759 

4F15760 

4F15761 

4F15762 

4F15763 

4F 15764 

4F15765 

4F15766 

4F15767 

4F15768 

4F15769 

4F15770 

4F15771 

4F15772 

4F15773 

4F15774 

4F15775 

4F15776 

4F15777 

4F15778 

*F15779 

4F15780 

4F15781 

4F15782 

4F15783 



in 



12652 





40200 





01446 




SUB 


L(I() 


12653 





10000 





12703 




TZE 


AC039O 


12654 





40000 





01446 




ADO 


LtlU 


12655 





40200 





01445 




SUB 


LCH( ) 


12656 





10000 





12701 




TZE 


AC0350 


12657 





56000 





16171 




LDQ 


OPWORD 


12660 


-0 


76300 





00015 




LGL 


13 


12661 





16200 





12676 




TOP 


AC0340 


12662 





76300 





00017 




LLS 


15 . 


12663 





76000 





00006 




COM 




12664 





40200 





01407 




SUB 


L( 11 


12665 





73400 


2 


00000 




PAX 


0»B 


12666 


-0 


75400 


2 


00000 




PXD 


O.B 


12667 





60200 





16167 




SLW 


CW+3 


12670 


-0 


53400 


2 


00470 




LXD 


BK»B 


12671 


-0 


50000 


2 


00470 




CAL 


F0RSUB-1*B 


12672 


-0 


32000 





01452 




ANA 


MASK2 


12673 


-0 


50100 





01503 




OR A 


P( 


12674 





60200 





16166 


AC0320 


SLW 


CW+2 


12675 





02000 


4 


00001 




TRA 


1»C 


12676 





60000 





16167 


AC0340 


ST2 


CW+3 


12677 


-0 


50000 





16172 




CAL 


SYMWRD 


12700 





02000 





12674 




TRA 


AC0320 


12701 


-0 


50000 





01522 


AC0350 


CAL 


H( 


12702 





02000 





12706 




TRA 


AC0420 


12703 





50000 





01501 


AC0390 


CLA 


I< 


12704 





02000 





12706 




TRA 


AC0420 


12705 





50000 





01502 


AC0410 


CLA 


A( 


12706 





60100 





16166 


AC0420 


STO 


CW+2 


12707 


-o 


77300 





00006 




RQL 


6 


12710 


-0 


60000 





16167 




STQ 


CW+3 


12711 





02000 


4 


00001 




TRA 


1#C 


12712 


-0 


76300 





00043 


AC0460 


LGL 


35 


12713 





73400 


2 


00000 


TDRADO 


PAX 


0»B 


12714 


-0 


50000 


2 


16174 




CAL 


CPBETAtB 


12715 


-0 


32000 





01527 




ANA 


MASK1 


12716 





60200 





16167 




SLW 


CW+3 


12717 


-0 


50000 





01120 




CAL 


ARERAS 


12720 





02000 





12674 




TRA 


AC0320 


12721 





60200 





16170 


AC0540 


SLW 


TAGWRD 


12722 





56000 





16170 




LDQ 


TAGWRD 


12723 


-0 


75400 





00000 




PXD 


• 


12724 


-0 


76300 





00014 




LGL 


12 


12725 





60200 





16167 




SLW 


CW+3 


12726 





16200 





12731 




TOP 


*+3 


12727 





60000 





16167 




ST2 


CW+3 


12730 


-0 


50000 





01454 




CAL 


2E1S 


12731 





60200 





16173 




SLW 


TAGPRT 


12732 


-0 


76300 





00001 




LGL 


1 


12733 


-0 


75400 





00000 




PXD 


•0 


12734 


-0 


76300 





00010 




LGL 


8 


12735 





76700 





00001 




ALS 


1 


12736 





40100 





00446 




ADM 


SIG1IX-2 


12737 





62100 





12740 




STA 


SDRADD 



IS THIS A FIX PT CONSTANT 

YES 

NO 

IS THIS A HOLLERITH FIELD 

YES 

NON-SUBSCRIPTED EXTERNAL VARIABLE 

IS THIS A FREE VARIABLE 

NO 

YES 



STORE ARGUMENT BUFFER RELATIVE ADDRESS 



EXTRACT FUNCTION STATEMENT TYPE 



RETURN 

NON- SUBSCRIPTED* REAL VARIABLE 



FIX PT INTERNAL VARIABLE 
FLO PT INTERNAL VARIABLE 



RETURN 

SYMBOL IS SOME S(K) 



EXTRACT PHI(K) 



SUBSCRIPTED VARIABLE 

CLEAR AC. 

I-TAU TAGS TO AC. 

STORE FOR NEXT CIT ENTRY. 



REPLACE NULL TAG. 
SAVE FOR LATER USE. 

CLEAR AC. 

FORM TWICE SIGMA TAG. 

FORM BASE OF TABLE + SIGMA TAG. 



4F15784 

4F15785 

4F15786 

4F15787 

4F15788 

4F15789 

4F15790 

4F15791 

4F15792 

4F15793 

4F15794 

4F15795 

4F15796 

4F15797 

4F15798 

4F15799 

4F15800 

4F15801 

4F15802 

4F15803 

4F15804 

4F15805 

4F15806 

4F15807 

4F15808 

4F15809 

4F15810 

4F15811 

4F15812 

4F15813 

4F15814 

4F15815 

4F15816 

4F15817 

4F15818 

4F15819 

4F15820 

4F15821 

4F15822 

4F15823 

4F15824 

4F15825 

4F15826 

4F15827 

4F15828 

4F15829 

4F15830 

4F15831 

4F15832 

4F15833 

4F15834 

4F15835 

4F15836 

4F15837 



1( 



^J 



u 



r> 



12740 
12741 
12742 
12743 
12744 
12745 
12746 
12747 
12750 
12751 
12752 
12753 
12754 
12755 

12756 
12757 
12760 
12761 
12762 
12763 



75400 
76200 
46000 
70000 
76000 
70000 
76000 
10000 
07400 
50000 
60200 
50000 
60100 
02000 

07400 
00000 
00000 
00000 
00000 
02000 



00000 
00302 
12740 
02365 
00006 
02365 
00006 
12751 
03400 
02365 
16167 
16172 
16166 
00001 



SDRADO PXD 
RDR 
LDA 
CAD 
COM 
CAD 
COM 
TZE 
TSX 
CAL 
ORS 
CLA 
STO 
TRA 



***0 
2 

SDRADD 
DUMP 

DUMP 

*+2 

DIAG#4 

DUMP 

CW+3 

SYMWRD 

CW+2 

1*4 



03401 CP6000 TSX FLTR0Q»4 



CHECK SUM TEST. 

ERROR SIGMA1 CKSUM FAILS 

ADD RELATIVE ADDRESS TO I-TAU TAG* 
MOVE VARIABLE NAME FOR NEXT CIT ENTRY* 

RETURN TO CALLER 

COMPILE FLOW TRACE INFORMATION AND THEN 
COMPILE LXD 7ITYPE **4 



16164 CW 

16165 CW+1 

16166 CW+2 

16167 CW+3 
12337 TRA ESOOOO 

***************************** 

12764 ENDD BSS 



16160 ORG 

16160 FNSW BSS 

16161 PJCNTR BSS 

16162 ARGORG BSS 

16163 XRSAVE BSS 

16164 CW BSS 

16170 TAGWRD BSS 

16171 OPWORD BSS 

16172 SYMWRD BSS 

16173 TAGPRT BSS 

16174 CPBETA BSS 
16650 SCRIPL BSS 



3184+4096 

1 

1 

1 

1 

4 

1 

1 

1 

1 

300 

600 

END OF ARITHMETIC / STATE D« 
**************** 



************** 



01100 
00004 
01101 
01501 
01531 



SYNONYMS USED BY SECTION ONE. 
IE SYN ERASE COMMON WORKING STORAGE* 

1T0CS SYN 4 ENTRY TO SYSTEM TAPE MONITOR* 

2E SYN ERASE+1 COMMON WORKING STORAGE* 

2P SYN I( 



360NES SYN ALL1 

01102 3E SYN ERASE+2 
01117 30BAR SYN 3LBAR 

01103 4E SYN ERASE+3 
0O001 A EQU 1 
01430 ABLANK SYN BLANK 
01376 ACOMMA SYN COMMA 
01532 ADO SYN L(ADD) 
01400 AEQUAL SYN EQUAL 
01375 ALPAR SYN OPEN 



COMMON WORKING STORAGE* 



COMMON WORKING STORAGE. 



4F15838 

4F15839 

4F15840 

4F15841 

4F15842 

4F15843 

4F15844 

4F15845 

4F 15846 

4F15847 

4F15848 

4F15849 

4F15850 

4F15851 

4F158511 

4F158512 

4F158513 

4F158514 

4F158515 

4F158516 

4F158517 

♦4F15852 
4F158525 
4F15853 
4F15854 
4F15855 
4F15856 
4F15857 
4F15858 
4F15859 
4F15860 
4F15861 
4F15862 
4F15863 
4F15864 
4F15865 
4F15866 

•4F15867 
4F15866 
4F15869 
4F15870 
4F15871 
4F15872 
4F15873 
4F15874 
4F15875 
4F15676 
4F15877 
4F15878 
4F15879 
4F15880 
4F15881 
4F15882 
4F15883 



/ 



1< 



06323 


ARITH 


01377 


ARPAR 


01535 


ARS 


00002 


B 


00004 


C 


01537 


CAL 


01731 


CIT 


01150 


CITMQR 


00223 


CITTAP 


01101 


CITXR1 


01102 


CITXR2 


01544 


CPY 


01454 


Dl 


01101 


D12 


01466 


D18 


01102 


D3 


01546 


DEO 


00310 


DIM1 


00764 


DIM2 


01440 


DIM3 


01100 


DIMCTR 


01500 


DMP 


01100 


DOE 


01103 


DRCKSM 


01104 


DRMADR 


01413 


DRMERC 


01100 


DRSYM 


01100 


E1TDR 


01101 


E2C 


01101 


E2TDR 


01102 


E3C 


01102 


E3TDR 


01101 


EKE 


01103 


ENOND 


01104 


FEOD 


00002 


FIXCON 


00312 


FLQCON 


00002 


FXCOOR 


01102 


H 


01522 


H( 


01554 


HPR 


01555 


LDA 


01561 


LXD 


01373 


LUO) 


01400 


L(ll) 


01420 


L(12) 


01454 


L(1DJ 


01374 


L(63) 


03440 


MEMORG 


01452 


MSK 


03440 


MTROOO 


01103 


N 


01404 


PLUS 


01566 


PXD 



SYN STATEB 
SYN CLOS 
SYN LIARS J 
EQU 2 
EOU 4 
SYN LCCAL) 
SYN CI TOO 
SYN E1C 
SYN 147 
SYN ERASE+1 
SYN ERASE+2 
SYN L(CPY) 
SYN 2E18 
SYN ERASE+1 
SYN DEC 18 
SYN ERASE+2 
SYN LCDED) 
SYN 02 00 
SYN 0500 
SYN 0800 
SYN ERASE 
SYN E( 
SYN ERASE 
SYN ERASE+3 
SYN ERASE+4 
SYN L(5) 
SYN ERASE 
SYN ERASE 
SYN ERASE+1 
SYN ERASE+1 
SYN ERASE+2 
SYN ERASE+2 
SYN ERASE+1 
SYN ERASE+3 
SYN ERASE+4 
SYN 0002 
SYN 202 
SYN 2 

SYN ERASE+2 
SYN ADSPOP 
SYN L(HPR) 
SYN L(LDA) 
SYN L(LXD) 
SYN TEN 
SYN EQUAL 
SYN MINUS 
SYN 2E18 
SYN ENDMK 
SYN 1824 
SYN MASK2 
SYN STATEA 
SYN ERASE+3 
SYN 12Z 
SYN LCPXD) 



ERASABLE STORAGE. « 
COMPILED INSTRUCTION TAPE. 
ERASABLE STORAGE. 
ERASABLE STORAGE. 



COMMON WORKING STORAGE. 
COMMON WORKING STORAGE. 

DRUM TABLE ORIGIN -DRTABS»DIM.SR. 
DRUM TABLE ORIGIN -DRTABS»DIM.SR« 
DRUM TABLE ORIGIN -DRTABS>DIM.SR. 
COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

ERASABLE STORAGE. 

NUMBER OF DRUM READING ATTEMPTS. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING ST0RA6E. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. 

COMMON WORKING STORAGE. , 

DRUM TABLE ORIGIN -DRTABS. 

DRUM TABLE ORIGIN -DRTABS. 

COMMON WORKING STORAGE. 



MEMORY ORIGIN FOR ALL STATES. 



COMMON WORKING STORAGE. 



4F15884 

4F15885 

4F 15886 

4F15887 

4F15888 

4F15889 

4F15890 

4F15891 

4F15892 

4F15893 

4F15894 

4F15895 

4F15896 

4F15897 

4F15898 

4F15899 

4F15900 

4F15905 

4F15906 

4F15907 

4F15908 

4F15909 

4F15910 

4F15911 

4F15912 

4F15913 

4F15914 

4F15915 

4F15916 

4F15917 

4F15918 

4F15919 

4F15920 

4F15921 

4F15922 

4F15923 

4F15924 

4F15925 

4F15926 

4F15927 

4F15928 

4F15929 

4F15930 

4F15931 

4F15932 

4F15933 

4F15934 

4F15935 

4F15936 

4F15937 

4F15938 

4F15943 

4F15945 

4F15946 



9# 



U 



u 



01100 


RAXR4 


01226 


SIGMA1 


01101 


SR6WRK 


01416 


ST 


01571 


STA 


01104 


STCKSM 


00224 


TABTAP 


01453 


TAG4 


00000 


TAU1 


00454 


TAU2 


01356 


TAU3 


01413 


TERC 


01103 


TETMQR 


01102 


TETWRK 


01100 


TETXR2 


01101 


TETXR4 


01576 


TIX 


01504 


ZER 


00000 


• • 



SYN ERASE 
SYN 0662 
SYN ERASE+1 
SYN L(8) 
SYN L(STA) 
SYN ERASE+4 
SYN 148 
SYN 2E17 
SYN 0000 
SYN 0300 
SYN 0750 
SYN L(5) 
SYN ERASE+3 
SYN ERASE+2 
SYN ERASE 
SYN ERASE+1 
SYN LtTIXJ 
SYN 0( 
EQU 

END OF SYNONYMS USED 



************ 



END OF SECTION ONE* 



COMMON WORKING STORAGE* 
DRUM TABLE ORIGIN -DRTA8S* 
ERASABLE STORAGE* 



COMMON WORKING STORAGE* 
TABLE TAPE* 

DRUM TABLE ORIGIN -DRTABS* 
DRUM TABLE ORIGIN -DRTABS* 
DRUM TABLE ORIGIN -DRTABS* 
TAPE ERROR COUNTER* 
ERASABLE STORAGE* 
ERASABLE STORAGE* 
ERASABLE STORAGE* 
ERASABLE STORAGE* 



BY SECTION ONE* 

**************** 



* * 



ooooo 



END 



4F15947 
4F15948 
4F15949 
4F15950 
4F15951 
4F15952 
4F15953 
4F15954 
4F15955 
4F15956 
4F15957 
4F15958 
4F15959 
4F15960 
4F15961 
4F15962 
4F15963 
4F15964 
4F15965 
4F15966 
*4F 15967 
4F15968 
4F15969 
4F15970 



,>7 



REM .704 FORTRAN II* SECTION V* TAG ANALYSIS* 8-1-6-2 F5G0Q010 

704 FORTRAN II » SECTION V* TAG ANALYSIS* 8-1-6-2 F5G0O01O 

DAVID STERNLIGHT I*B*M. WORLD HEADQUARTERS 5 NOV 58* F5G00020 

INTRODUCTION F5G0O03O 

THE GENERAL PHILOSOPHY OF SECTION 5 IS TO REDUCE A PROGRAM F5G00040 

USING AS MANY INDEX REGISTERS AS NEEDED TO ONE USING 3 INDEX F5G00050 



REGISTERS IN AS EFFICIENT A MEANS AS POSSIBLE* CALLING ON 



F5G00060 



INDEX CELLS WHICH ARE STORAGE LOCATIONS* TO RETAIN DISPLACED F5G00070 
INFORMATION WHEN THE CONTENTS OF AN INDEX REGISTER MUST BE F5G00080 
REPLACED* THUS THE INDEX CELLS CORRESPOND TO ORIGINAL INDEX F5G00090 
REGISTERS USED IN THE FORTRAN OBJECT PROGRAM BEFORE SECTIQN5.F5G0010O 



THE MAIN PROBLEMS SECTION 5 HANDLES ARE THOSE OF KEEPING 



F5G00110 



INDEX CELLS UP TO DATE* AND EFFICIENTLY SEEING TO IT THAT THEF5G00120 

3 INDEX REGISTERS CONTAIN THE PROPER INFORMATION AT ALL F5G00130 

TIMES FOR THE CORRECT EXECUTION OF TAGGED INSTRUCTIONS* F5G00140 

GENERALLY* SECTION 5 COMPILES SX*S WHENEVER AN INDEX CELL F5G00150 

MUST BE UPDATED SO THAT IF AN INDEX QUANTITY IS NEEDED AND F5G00160 

NOT PRESENT IN AN INDEX REGISTER* AN LX CAN BE USED WITHOUT F5G00170 

CONCERN ABOUT WHAT IS WIPED OUT. THE SKILLFUL PLACEMENT OF F5G00180 

THESE SX*S IS ONE OF THE MAJOR JOBS OF SECTION 5* F5G00190 

THE PROGRAM IS ANALYZED USING THE CONCEPT OF BASIC BLOCKS* F5G00200 

PROGRAM UNITS HAVING A SINGLE ENTRY AND EXIT POINT* AS DEFIN-F5G00210 

ED BY SECTION 4* THE LINKS BETWEEN BASIC BLOCKS ARE LABELED F5G00220 

BY FREQUENCY IN SECTION 4* BY ACTUAL PROGRAM SIMULATION* F5G00230 

SECTION 5 ANALYSES THE OBJECT PROGRAM BY STARTING WITH THE F5G00240 

HIGHEST FREQUENCY LINK BETWEEN BB»S AND EXPANDING OUTWARD F5G00250 

ALONG PREDECESSOR AND SUCCESSOR BASIC BLOCKS* THE AREA FORM-F5G00260 

ED IN THIS MANNER IS A PORTION OF THE OBJECT PROGRAM AND IS F5G00270 

CALLED A LOOPLIST. THIS IS TREATED TO REDUCE THE NUMBER OF F5G00280 

INDEX REGISTERS TO 3* IS THEN CALLED A REGION* AND CAN ENTER F5G00290 

FUTURE LOOPLISTS. THE LOOPLIST PROCESS IS CONTINUED* F5G00300 

CONSTANTLY EXPANDING THE TREATED AREA OF THE OBJECT PROGRAM F5G00310 

BY THE INCLUSION OF ALREADY TREATED REGIONS IN THE CURRENT F5G00320 

LOOPLIST WHERE APPROPRIATE TO THE FLOW OF THE PROGRAM* THESEF5G00 330 

REGIONS BECOME A PART OF THIS LATEST LOOPLIST*S REGION AT THEF5G00340 

END OF THE LOOPLIST TREATMENT* FORMING A NEW* SINGLE REGION* F5G00350 

FINALLY THE ENTIRE PROGRAM HAS BEEN TREATED* A FURTHER PRIN-F5G00360 

CIPLE USED BY SECTION 5 IS TO COMPILE THE UPDATING SX*S AS F5G00370 

LATE AS POSSIBLE TO TRADE OBJECT PROGRAM SPACE FOR TIME* F5GOO380 

SINCE THE LATER THE SX IS COMPILED* THE LOWER THE FREQUENCY F5G00390 

OF TRANSFERS BETWEEN BLOCKS* HENCE THE FEWER THE EXECUTIONS F5G004O0 

OF THE SX* F5GOO410 

LPLST IS FORMED IN CORES BY SECTION 5 PART 1* IT SUMMARIZES F5GO0420 

EACH NEW REGION TO BE TREATED. PREFIX CODES ARE 2=OPAQUE F5G00430 

REGION* ^TRANSPARENT REGION (AT LEAST ONE INDEX REGISTER F5G00440 

FREE) AND PREFIX CODE 0=BASIC BLOCKS* THE BB NUMBER F5G00450 

IS CONTAINED IN THE DECREMENT OR ADDRESS* 77777 INDICATES F5G00460 

LPLST ENTRY IS AT END OF REGION OR LPLST EXIT IS AT BEGI NNINGF5G00470 

OF REGION* SPECIFIED BY BB NUMBER. 000000 INDICATES NOTHING F5G00480 



INTERVENING BETWEEN THAT POINT AND THE NEXT DECREMENT OR 



F5G00490 



ADDRESS* A WORD OF FULL SEVENS* CALLED SENTINEL* TERMINATES F5G00500 

LPLST. THUS A NEW REGION TO BE TREATED MIGHT HAVE A LPLST F5G00510 

BEFORE TREATMENT LIKE F5G00520 

277777 000014 F5G00530 



v 



i \ 



U 



000023 000000 
100026 000033 

200003 mm 
mm mm* 



F5G00540 
F5G0Q550 
F5G00560 
F5G0O570 



THIS MEANS ENTRY IN OPAQUE REGION ENDING IN BB 14* THEN COMESF5G00580 



BB23* THEN IMMEDIATELY FOLLOWS A TRANSPARENT REGION FROM 
BB 26 TO BB 33* THEN AN OPAQUE REGION ENTERING AT BB 3» 
TERMINATING THIS LPLST# WHEN TREATED* THIS ENTIRE LPLST 
BECOMES A NEW. SINGLE REGION* ENCOMPASSING THE OLD REGIONS 
AND BB*S IN IT* WHICH WILL DISAPPEAR* 

REG TABLE* IN CORES* HAS 1 WORD PER EXISTING REGION. 
INDICATES EXISTENCE IN REGION OF LX.S TO THE IR»S * 
DECREMENT=FIRST BB NO* IN REGION* TAG BI TS=EMPTINESS 
THROUGHOUT REGION OF IR»S* 

INPUT TABLES INCLUDE PRED. SUCC* BBB* ALL ON DRUM* 
SUCC IS FIRST DRUM TABLE* IT IS PREPARED BY SECTION 4* 
ORDERED ON BB NUMBER* IT IS PING PONGED BETWEEN DRUM AND 
CORES BY THE SE6 ROUTINE* 



F5G00590 
F5G00600 
F5G00610 
F5G00620 
F5G00630 
PREFIX F5GG0640 
F5G00650 
F5G00660 
F5G00670 
F5G00680 
F5G00690 
F5G00700 
F5G0071O 



THE WORD FORMAT IS SIGN BIT MADE NEGATIVE BY X89 WHEN A LINK F5G00720 



ADDRESS=NO. OF 



F5G00730 
F5G00740 
F5G00750 



IS TREATED. BITS 1-14=FREQUENCY OF LINK* 
SUCCESSOR BASIC BLOCK* 

PRED IS THE SECOND DRUM TABLE* IT IS PREPARED BY SECTION 4 

PRED IS ORDERED ON BB NUMBER AND PING PONGED BETWEEN DRUM ANDF5G00760 

CORES BY THE SE5 ROUTINE. F5G00770 

WORD FORMAT IS SIGN BIT NEGATIVE WHEN LINK TREATED. F5G00780 

BITS 1-14=FREQUENCY OF LINK. BITS 15-17 CALL FOR LX»S TO F5G00790 

THE 3 INDEX REGISTERS AND BITS 18-20 CALL FOR SX*S TO APPRO- F5G00800 

PRIATE INDEX CELLS. THESE SX.S WILL LATER BE COMPILED F5G00810 

BETWEEN BASIC BLOCKS BY PART 4 OF SECTION 5. THE ADDRESS F5G00820 

CONTAINS THE NUMBER OF THE PREDECESSOR BASIC BLOCK. F5G0O830 

BBB IS THE THIRD DRUM TABLE. AND IS PREPARED BY SECTION 4. F5G00840 

THERE IS A 6 WORD ENTRY FOR EACH BB. AND A FINAL DUMMY ENTRY. F5G00850 

THE SE AND SE1 ROUTINES PING PONG BBB BETWEEN DRUM AND CORES.F5G00860 

WORD FORMAT FROM SECTION 4. FIRST WORD DECR=START ING POINT F5G00870 

IN SUCC* ADDRESS=STARTING POINT IN PRED OF ENTRIES F5G00880 

REFERRING TO THIS BASIC BLOCK. FIRST WORD PREFIX CONTAINS F5G00890 

CODE DESCRIBING TYPE OF ENDING BB HAS. CODING IS..*. F5G00900 

000=DO WITH AN IF* O01=MSE» 010=PROBABILITY BRANCH F5G00910 

011»CERTAINTY BRANCH* 100=DO WITHOUT AN IF* 101=GO TO N» F5G00920 

U0=STQP« SECOND WORD. BITS 12-17=PERMUTATI0N NUMBERS. F5G00930 

INITIALIZED TO 33 BY SECTION 4. ADDRESS=ORDINAL NUMBER OF F5G00940 

FIRST TAGLIST ENTRY BELONGING TO THIS BB. REMAINING WORDS F5G00950 

INITIALIZED TO ZEROES BY SECTION 4. F5G00960 

IN SECTION 5 PART 1* FURTHER ENTRIES ARE MADE. SECOND WORD F5G00970 

BITS S-2 INDICATE IR ACTIVITY IN THIS BB. PERMUTATION NOS* F5G00980 

MAY UNDERGO CHANGE. WORDS 3-5 RECORD ENTRY AND EXIT CONDS. F5G00990 

FOR THE 3 INDEX REGISTERS IN THE DECREMENT AND ADDRESS. F5G01000 

WORD 6 DECR=REGION NUMBER BB CURRENTLY BELONGS TO. F5G01010 

ADDRESS»NUMBER OF NEXT BB IN REGION. F5G01020 

STAG IS THE FOURTH DRUM TABLE. INITIALIZED TO ZEROES AT SEC.F5G01030 

5 PART 1 START. ONE 4 BIT ENTRY FOR EACH TAGLIST INSTRUCTI0NF5G01040 

IS MADE IN SECTION 5 PART 1 AND READ IN PART 4. BITS S-8 F5G01050 

CALL FOR AN SX PRECEDING THE TAGLIST INSTRUCTION* BITS 9-17 F5G01060 

FOR AN LX FOLLOWING. BITS 18-35 IN PAIRS SPECIFY THE INDEX F5G01070 



y> 



F5G01080 
F5G01090 
F5G01100 
F5G01110 
F5G01120 
F5G01130 
F5G01140 



REGISTER TAGLIST INSTRUCTION IS TO USE. THUS PRED RECORDS 
INTER BB LX»S AND SX*S AND STAG RECORDS INTRA-BB LX*S AND 
SX»S. STAG IS HANDLED BY THE SE4 ROUTINE. 
CMTAG* THE CORE BUFFER FOR TAGLISTt HAS THE SAME WORD 
FORMAT* THAT IS* THE DECREMENT CONTAINS THE INSTRUCTION 
CLASS* CODED FROM TO 6» AND THE ADDRESS CONTAINS THE 
SYMBOLIC ADDRESS* AS FOLLOWS* BITS 24-26 CONTAIN TAU 1*2* 

OR 3» AND BITS 27-35 CONTAIN THE NUMBER OF THE ENTRY IN THAT F5G01150 

TAU TABLE* NOTE THAT IN THE OUTPUT* THE SYMBOLIC ADDRESS OF F5G01160 

INDEX CELLS IS* TAU 1 = G* TAU 2=10* TAU 3=1G» AND THIS F5G01170 

SYMBOL IS FOLLOWED BY THE NUMBER OF THE ENTRY. THUS A F5G01180 

TAGLIST ENTRY IN THE ADDRESS OF 003005 BECOMES 1G5» THAT IS* F5G01190 
TAU 3* ENTRY 5. THE INSTRUCTION CLASSES AS FOLLOWS* IN DECRF5G01200 

L=LXA»LXD»PAX,PDX. 2=LXP. 3=DED. 4 IS UNUSED BUT AVAIL. F5G01210 

FOR TNX. 5=ACTIVE INSTR LIKE TIX AND TXI. 6=PASSIVE INSTR. F5G01220 

A PASSIVE INSTR IS A TAGGED INSTR THAT DOES NOT CHANGE THE F5G01230 
CONTENTS OF THE INDEX REGISTER. 7=UNUSED BUT AVAIL. FOR TIX.F5G01240 

WHEN 7 IS USED FOR A TIX* IT REPRESENTS A TIX USED AS A F5G01250 

TRANSFER* NOT AN ACTIVE TIX. ACTIVE INSTRUCTIONS MAY F5G01260 

BE RECOGNIZED BY THEIR ADDRESSES* WHICH ARE OF THE FORM *+Q F5G01270 

WHERE Q IS SOME CONSTANT. J5SSJJS2 

CORE INFORMATION TRANSFERRED BETWEEN SECTION 4 AND SECTION 5 F5G01290 

IS IN THE LAST 4 CORE LOCATIONS* CALLED KEYS. F5G01300 

GIVING DRUM TABLE LENGTHS. TAPE TABLES USED FOR INPUT F5G01310 

INCLUDE TAGLIST AND CIT. INTERMEDIATE TABLES INCLUDE THE F5G01320 

ABOVE AND STAG* LPLST* CMTAG* AND REG. CMTAG IS A CORE F5G01330 

BUFFER FOR TAGLIST. THE DRUM TABLES ALSO APPEAR IN CORE F5G01240 

IN BUFFER LOADS WHEN THE SOURCE PROGRAM EXCEEDS A CERTAIN F5G01350 

COMBINATION OF THE FACTORS OF LENGTH AND COMPLEXITY OF F5G01360 

TRANSFER STRUCTURE. OUTPUT TABLES INCLUDE CIT ON TAPE. F5G01370 
TAGLIST* ON TAPE 3* IS HANDLED BY THE S4 SUBROUTINE. IT IS AF5G01380 

SEQUENTIAL LIST OF ALL TAGGED OBJECT PROGRAM INSTRUCTIONS F5G01390 

RESULTING FROM SECTION 3. EACH ENTRY IS ONE WORD. THE F5G01400 

PREFIX DESCRIBES THE TYPE OF INSTRUCTION AND THE ADDRESS F5G01410 

CONTAINS SYMBOLIC INDEX REGISTER»S NAME. F5G01420 

BY USING LARGER MACHINE SIZE THAN 4K» THE PROGRAM F5G01430 

TABLE SPACE IN CORE CAN BE INCREASED* PROVIDING FASTER F5G01440 

COMPILING AND REDUCING THE AMOUNT OF DRUM PING PONGING. F5G01450 

IN ADDITION* SENSE SWITCH 4* WHEN DOWN* PROVIDES UP TO F5G01460 

20 PER CENT FASTER COMPILING ON LARGER SOURCE PROGRAMS* AT F5G01470 

A NEGLIGIBLE LOSS* IN MOST CASES* IN OBJECT PROGRAM F5G01480 

EFFICIENCY. THIS SENSE SWITCH HAS NO EFFECT ON SHORTER F5G01490 

PROGRAMS. F5G01500 

IN ORDER TO INCREASE TABLE SPACE AS DESCRIBED ABOVE* F5G01510 

SECTION IV OF FORTRAN* THE FLOW PASS OF TAG ANALYSIS* MUST F5G01520 

BE ADJUSTED AS TO LENGTHS OF DRUM TABLE BUFFER LOADS PASSED F5G01530 

ON TO SECTION V* AND THE POSITION OF INFORMATION AT THE END F5G01540 

OF CORES » HERE SAID TO BE IN KEYS* MUST BE CHANGED. F5G01550 

4 N SECTION V* MSIZE AS WELL AS OTHER ITEMS SPECIFIED IN F5G01560 

THE FOLLOWING PARAMETER LIST MUST BE CHANGED. F5G01570 

8-1-6-2 PARAMETER LIST F5G01580 

20000 MSIZE EOU 8192 8-1-6-2 MEMORY SIZE £f??? 5 !° 

00226 FP1 EQU 150 8-1-6-2 REG TABLE SIZE £f52*??2 

00074 S3P1 EQU 60 8-1-6-2 LPLST TABLE SIZE F5G01610 



<W 






U 



n 



00360 
17774 



00030 
00031 



76200 
02000 



STL EQU 240 8-1-6-2 STAG LENGTH 

FIXED PARAMETER LISTt INDEP. OF CORESIZE 
KEYS SYN MSIZE-4 CONSTANTS TO RELATE PROGRAM TO TABLES 

ORDER OF DRUM TABLES IS SUCC STARTING AT ZERO* FOLLOWED BY 
PRED* BBB* AND STAG* WHICH IS FILLED IN BY SECTION V. 
THE ORDER OF INFORMATION IN KEYS IS ... KEYS=NUMBER OF BBS* 
KEYS+laSTART OF PRED* KEYS+2=START OF BBB# AND KEYS+3*STA6* 



00004 


INSTTP 


EQU 


4 


00003 


TAPE 


EQU 


3 


00003 


OTAPE 


EQU 


3 


00003 


BLT 


EQU 


3 


00002 


ACTPE 


EQU 


2 


00001 


RECNO 


EQU 


1 


00144 


ZINST 


EQU 


RECNO* 100 


00144 


LCLST 


EQU 


100 


00200 


NSXD 


EQU 


128 


00024 


PTL1 


EQU 


20 


00051 


PTL2 


EQU 


41 


00052 


PTL3 


EQU 


42 


00042 


PTL4 


EQU 


34 


00000 


SET 


EQU 





00000 


K 


EQU 






00030 



00221 
00004 



ORG 



RTB 
TRA 



00032 





76700 





00022 


SE4 


ALS 


00033 


-0 


32000 





00303 




ANA 


00034 





07400 


2 


00101 




TSX 


00035 





00000 





00000 


STAGP 


HTR 


00036 





00000 





00000 




HTR 


00037 





00360 





00000 




HTR 


00040 





00000 





00000 




HTR 


00041 





00000 





00001 




HTR 


0004? 





QOOQO 





OOOOQ 




HTR 


00043 


6 


00000 





05263 




HTR 


00044 


-0 


32000 





00303 


SE6 


ANA 


00045 





07400 


2 


00101 




TSX 



COMPILED INST ON ^PE 4 

OUTPUT TAPE IS 3 

OUTPUT TAPE IS 3 

BLOCK LIST ON TAPE 3 

ASSIGN CONSTANTS ON TAPE 2 

NO OF CIT RECORDS IN AT ONE TIME 

LENGTH OF INST TABLE 

LENGTH OF OUTPUT BLOCK* COMPILED INSTR 

NO. OF SXD CASES IN SXD LIST 

SPACE FOR PATCHES* PART 1 

SPACE FOR PATCHES* PART 2* 

SPACE FOR PATCHES* PART 3 

SPACE FOR PATCHES* PART 4* 

INITIAL DRUM ADDRESS 

INITIAL DRUM ADDRESS 
EDITOR RECORD NO. 75 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
NO DIAGNOSTIC CALLER FOLLOWS 

PART 1A 

OPTIMIZE INDEXING EXCEPT FOR PERMUTATION* GO TO N» 

INSTRUCTION COMPILATION. 

24 

ROUTINE TO TRANSFER NEXT 

PROGRAM PART 

1 SKIP DIAGNOSTIC 

4 READ NEXT PROGRAM RECORD 

THE ROUTINES SE» SE1. SE4* SE5* SE6 MANIPULATE DRUM TABLES 

SUCC* PRED* BBB* AND STAG. THEY ARE ENTERED WITH THE WANTED F5G01970 

ITEM IN THE AC. THEY LOAD 1X1 FOR IMMEDIATE REFERENCE TO THEF5G01980 

STATED ITEM. AFTER SAVING CORES ON THE DRUM WHERE NECESSARY»F5G01990 

THEY BRING IN THE APPROPRIATE PART OF DRUM TABLES. IF THE F5G02000 

ITEM IS ALREADY IN CORES* OF COURSE NO SAVING OR DRUM F5G02010 

MANIPULATION IS NECESSARY. £!5????2 

18 F5G02030 

! K 4 F5G02040 

SE21.2 F5G02050 

PARAMETERS FOR STAG TABLE £!5!!!?S? 

oNioi KS2SSIS 

N(l) F5G02080 

O.O.STAGL NCS) llfilili 

O.O.SET N(L) F5G02100 

IS F5G02110 

SET DCO) IJSfJSS 

STAG A F5G02130 

PARAMETERS FOR SUCC. TABLE «S???t? 

SEIC4 F5G02150 

IE21.2 F5G02160 



F5G01620 
F5G01670 
F5G01680 
F5G01690 
F5G01700 
F5G01710 
F5G01720 
F5GO1730 
F 560 1740 
F5G01750 
F5G01760 
F5G01770 
F5G01780 
F5G01790 
F5G01800 
F5G01810 
F5G01811 
F5G01812 
F5G01813 
F5G01814 
F5G01820 
F5G01830 
F5G01840 
F5G01850 
F5G01870 
F5G01880 
F5G01890 
F5G01900 
F5601910 
F5G01920 
F5G01930 
F5G01940 
F5G01950 
F5G01960 



I'll 



00046 





00000 





OOOOO 


SUCCP 


HTR 


00047 


-000000000001 




OCT 


00050 





01037 





OOOOO 




HTR 


00051 





00000 





OOOOO 




HTR 


00052 





00000 





00001 




HTR 


00053 





00000 





OOOOO 




HTR 


00054 





00000 





16734 




HTR 


OO055 





76700 





00022 


SE5 


ALS 


00056 


-0 


32000 





00303 




ANA 


00057 





07400 


2 


00101 




TSX 


00060 





00000 





OOOOO 


PREDP 


HTR 


00061 


-000000000001 




OCT 


00062 





01037 





OOOOO 




HTR 


00063 





00000 





OOOOO 




HTR 


00064 





00000 





00001 




HTR 


00065 





00000 





OOOOO 




HTR 


00066 





00000 





15674 




HTR 


00067 





76700 





00022 


SE1 


ALS 


00070 


-0 


32000 





00303 


SE 


ANA 


00071 





07400 


2 


00101 




TSX 


00072 





ooooo 





OOOOO 


BBBP 


HTR 


00073 


-oooooooooooi 




OCT 


00074 





00420 





OOOOO 




HTR 


00075 





OOOOO 





OOOOO 




HTR 


00076 





OOOOO 





00006 




HTR 


00077 





OOOOO 





OOOOO 




HTR 


00100 





OOOOO 





12533 




HTR 


00101 





60100 





00306 


SE21 


STO 


00102 





34000 


2 


00002 




CAS 


00103 


3 


OOOOO 





OOOOO 




TXH 


00104 


-3 


OOOOO 





00106 




TXL 


00105 





02000 





00156 




TRA 


00106 


-0 


63400 


h 


00311 


SE42 


SXO 


00107 





50000 


2 


00002 




CLA 


00110 


-0 


12000 





00120 




TMI 


00111 





07400 


4 


00262 




TSX 


00112 





50000 





00273 




CLA 


00113 





62100 





00115 




STA 


00114 





50000 





00307 




CLA 


00115 





60100 





OOOOO 


SE24 


STO 


00116 





50000 





00277 




CLA 


00117 





07400 


4 


00166 




TSX 


00120 





50000 





00314 


SE35 


CLA 


00121 





56000 





00306 




LDQ 


00122 





22100 


2 


00003 




DVP 


00123 





20000 


2 


00003 




MPY 


00124 


-0 


60000 


2 


00001 




STQ 


00125 





50000 


2 


00001 




CLA 


00126 





40000 


2 


00003 




ADO 



NS©) 

-l Nm 

0»0*SUCCL HiS) 
SET N(L) 

1 s 

D(0) 
SUCC A 
PARAMETERS FOR PRED* TABLE 

18 

SEK4 

SE21*2 

NtO) 
-1 N(l) 
0»0*PREDL NtS) 

SET NtL) 

1 S 

SET DtO) 
PR ED A 

PARAMETERS FOR BBB TABLE 
18 BB NO* IN ADDR. 
SEK.4 BB NO. IN DECR. 
SE21»2 

N(0) IN DECR. 1ST BB IN CM 

-1 N(l) IN DECR»LAST BB IN CM +1 
0»0»BBBL NtS) IN DECR»NO.+ BBS POS. IN CM 
SET N(L) IN DECR«N0. OF BBS 
6 S IN ADDR**NO. OF WDS PER BB 
SET 0(0) IN ADDR.»INITIAL DRUM ADDR. 
BBB A IN ADDR.»INITIAL CM ADDR 

2 ED PARAMETER IS + OR - ACCORDING 

AS CM BLOCK IS FULL OR EMPTY 

SR FOR SHUFFLING TABLES TO AND FROM DRUM 
SEV2 STORE ITEM NO.»N 
2»2 IS N IN CM 
— •— >— 

SE42t0»- 

SE41 POSSIBLY 

SEV5»4 NO»STORE RETURN INDEX 

2*2 

SE35 IS CM BLOCK EMPTY 

SE22»<* NOtFORM CHECK SUM 

SE23 

SE24 STORE 

SEV3 CHECK 

SET SUM 

SEK 

SE26»4 

ZERO 

SEV2 NtO)=tINT. PT» (N/NtS) )*N( S ) 

3»2 

3»2 

1#2 N(1)=MIN (N <0)+N(S)»N(Ln 

1*2 

3»2 



F5G02170 

F5G02180 

F5G02190 

F5G02200 

F5G02210 

F5G02220 

F5G02230 

F5G02240 

F5G02250 

F5602260 

F5G02270 

F5G02280 

F5G02290 

F5G02300 

F5G02310 

F5G02320 

F5G02330 

F5G02340 

F5G02350 

F5G02360 

F5G02370 

F5G02380 

F5G02390 

F5G02400 

F5G02410 

F5G02420 

F5G02430 

F5G02440 

F5G02450 

F5G02460 

F5G02470 

F5G02480 

F5G02490 

F5G0250O 

F5G02510 

F5G02520 

F5G02530 

F5G02540 

F5G02550 

F5G02560 

F5G02570 

F5G02580 

F5G02590 

FSG02600 

F5G02610 

F5G02620 

F5602630 

F5G02640 

F5G02650 

F5G02660 

F5G02670 

F5G02680 

F5G02690 

F5G02700 



u 



u 



00127 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00150 



56000 
-0 60000 

04000 
60100 
50000 
07400 
07400 
50000 
62100 
50000 
34000 
02000 
02000 
53400 
00001 
63400 
00004 
07400 













-0 

1 

•0 

•3 





00004 

00002 

00133 

00002 

00300 SE36 

00166 

00262 

002-&3 

00140 

00000 SE37 

00307 

00144 SE45 

00152 

00151 SE43 

00146 

00151 SE44 

00133 

00004 



00151 


-0 


00000 





00000 


TPCT 


00152 


-0 


63400 





00151 


SE40 


00153 


-0 


53400 


4 


00311 




00154 





50000 





00306 




00155 





02000 





00156 




00156 





40200 


2 


00001 


SE41 


00157 


-0 


12000 





00106 




00160 





76500 





00043 




00161 





20000 


2 


00005 




00162 





76300 





00021 




00163 





40200 





00304 




00164 





73400 


1 


00000 




00165 





02000 


4 


00001 




00166 


•0 


63400 


4 


00310 


SE26 


00167 





60100 





00260 




00170 





56000 


2 


00003 




00171 





20000 


2 


00005 




00172 





76300 





00021 




00173 





40000 





00315 




00174 





60100 





00305 





LDO 4*2 

STQ 2»2 

TLQ SE36 

STO 2t2 

CLA SEK1 TRANSFER IN A 

TSX SE26>4 BLOCK OF THE TABLE 

TSX SE22»4 CHECK SUM 

CLA SE23 COMPARE $ 

STA SE37 CHECK 

CLA SET SUMS 

CAS SEV3 

TRA SE43 

TRA SE40 AGREE 

LXD TPCT*4 

TXI SE44t4»l 

SXD TPCT»4 

TXL SE36»4#4 

TSX 4*4 TRIED 5 

NOTE ON THIS 150 STOP. 

BY MACHINE ERROR. 

IF IX 2 CONTAINS 

77744 

77732 

77721 

77707 



REPEAT 5 TIMES 



STAG 
SUCC 
PREO 
BBB 



F5G02710 
F5G02720 
F5G02730 
F5G02740 
F5G02750 
F5G02760 
F5G02770 
F5G02780 
F5G02790 
F5G02800 
F5G02810 
F5G0282Q 
F5602830 
F5G02840 
F5G02850 
F5G02860 
TRY AGAIN F5G02870 

TIMES GO TO DIAGNOSTIC F5602880 

THIS DRUM CHECKSUM STOP MAY BE CAUSEDF5G02890 

F5G02900 
TABLE IS AND CHECK F5G02910 

40 F5G02920 

51 ALL F5G02930 

63 OCTAL F5G02940 

75 F5G02950 

TO SEE IF THE CHECKED LOCATION CONTENTS ARE LESS F5G02960 

THAN THE CONTENTS OF 306 OCTAL. IF SO* SOURCE PROGRAM* RATH-F5G02970 
ER THAN MACHINE ERROR IS LIKELY. THE ERROR COULD BE F5G02980 

A. TRANSFER TO A NON-EXECUTABLE INSTRUCTION. F5G02990 

B. UNREACHABLE EXECUTABLE INSTRUCTION IN PROGRAM. F5G03000 

C. LAST STATEMENT OF A DO IS A TRANSFER. F5G03010 
0* INCORRECT NUMBER OF ENTRIES IN A FREQUENCY STATEMENT. F5G03020 

HTR - F5G03O30 

SXD TPCT»0 RESET TAPECOUNT F5GO3040 

LXD SEV5»4 RESTORE RETURN INDEX F5G03050 

CLA SEV2 GET N AGANIN F5G03060 

TRA SE41 F5G03O70 

THE ITEM MIGHT BE IN STORAGE F5G03080 

SUB 1»2 N-N(O) F5G0309O 

TMI SE42 DOES IT LIE IN STORAGE F5G03100 

LRS 35 YES#INDEXa F5G03110 

MPY 5»2 C0MUN-N101.S) F5G03120 

LLS 17 F5603130 

SUB SEK5 F5G03140 

PAX 0*1 F5G03150 

TRA 1»4 F5G03160 

DRUM TRANSFER SUBROUTINE PROPER F5G03170 

SXD SEV4»4 STORE RETURN INDEX AND ITEM NO. TO BE TRANSFERRED F5G03180 
STO SE25 STORE READ-WRITE INDICATOR F5G03190 

LDQ 3*2 FORM F5G03200 

MPY 5»2 N(S)*S+1 F5G03210 

LLS 17 AND F5G03220 

ADD ONEA STORE F5G03230 

STO SEV1 IT F5G03240 



Y'l 



00175 
00176 
00177 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
00211 
00212 
00213 
00214 
00215 
00216 
00217 
00220 
00221 
00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 
00241 
00242 
00243 
00244 
00245 
00246 
00247 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
00260 
00261 



50000 
56000 
22100 
20O00 
-0 60000 
50000 
40000 
60100 
76700 
76000 




2 
2 



2 





-0 73400 1 

07400 4 

50000 

40200 

76500 

20000 

50000 

-0 32000 

40200 

76000 

04000 

73400 

40000 

62100 

40200 

-0 60000 

40200 

40200 

76000 

60100 

40000 

62100 

46000 

70000 



00001 
07400 
53400 
70000 
00001 
-0 53400 
02000 
76300 
40000 
73400 
40000 
62100 
46000 
70000 
00001 
02000 
76200 
02000 



00001 4 



00314 
00001 
00003 
00305 
00305 
00006 
00305 
00313 
00007 
00006 
00000 
00260 
00002 
00001 
00065 
00005 
00313 
00301 
00302 
00003 
00247 
00000 
00007 
00236 
00007 
00305 
00305 
00315 
00003 
00305 
00236 
00243 
00313 
00000 
00236 
00241 
00260 
00305 
00000 
00243 
00310 
00001 
00043 
00315 
00000 
00007 
00255 
00313 
00000 
00255 
00245 
00300 
00001 



SE28 
SE27 



SE30 
SE29 
SE34 
SE31 



SE33 
SE32 



SE25 



CLA ZERO FORM 
LDO 1*2 (<N(0)/N(S>> 
DVP 3»2 (N1SMS+1)) 
MPY SEV1 

STQ SEV1 INITIAL DRUM ADDRESS 
CLA 6»2 «D{0) + CNONIS))SCN<$US*l) 
ADD SEV1 

STO SEV7 SET LDA INSTRUCTIONS 
ALS 7 COMPUTE THE 
COM DRUM SELECTION 
PDX 0*1 INDEX 
TSX SE25»4 SELECT DRUM 
CLA 2*2 

SUB 1»2 <N<1)~N(0))S 
LRS 53 INTO MQ 
MPY 5t2 

CLA SEV7 FORM NO. OF 
ANA SEK2 WORDS LEFT ON 
SUB SEK3 DRUM GROUP 
SSP 

TLQ SE31 MUST BLOCK. BE SPLIT 
PAX 0t4 YES 
ADD 7»2 SET INDEX AND 
STA SE27 COMPUTE ADDRESS OF 1ST CPY 
SUB 7»2 COMPUTE NO. 
STQ SEV1 OF WORDS IN 
SUB SEV1 2 ED TRANSFER 
SUB ONEA 
SSP 

STO SEV1 
ADD SE27 

STA SE29 SET 2 ED CPY 
LDA SEV7 

CPY SET»4 TRANSFER 
TIX SE27»4»1 1ST BLOCK OF WORDS 
TIX SE30»ltl DECREASE C(l) BY 1 
TSX SE25.4 SELECT DRUM 
LXA SEV1»4 
CPY SET«4 TRANSFER 
TIX SE29»4*1 2 EDBLOCK 
LXD SEV4»4 
TRA 1»4 RETURN 
LLS 35 (N<l)«NtOH.S+l 
ADD ONEA WORDS ARE TO 
PAX 0«4 BE TRANSFERED 
ADD 7»2* 
STA SE32 
LDA SEV7 
CPY SET«4 
TIX SE32»4tl 
TRA SE34 

RDS 192*1 (OR WRS) DRUM 
TRA 1»4 SELECTION SUBROUTINE. 
CHECK SUM SUBROUTINE 



F5G03250 

F5G03260 

F5603270 

F5G03280 

F5603290 

F5603300 

F5603310 

F5G03320 

F5G03330 

F5G03340 

F5603350 

F5G03360 

F5G03370 

F5603380 

F5G03390 

F5G03400 

F5G03410 

F5G03420 

F5G03430 

F5603440 

F5G03450 

F5G03460 

F5G03470 

F5G03480 

F5603490 

F5G035OO 

F5G03510 

F5G03520 

F5G03530 

F5G03540 

F5G03550 

F5G03560 

F5G03570 

F5G03580 

F5603590 

F5G03600 

F5G03610 

F5G03620 

F5G03630 

F5G03640 

F5G03650 

F5G03660 

F5G03670 

F5G03680 

F5G03690 

F5603700 

F5G03710 

F5G03720 

F5G03730 

F5G03740 

F5G03750 

F5G03760 

F5G03770 

F5G03780 



u 



(J 



00262 
00263 
00264 
00265 
00266 
00267 
00270 

00271 
00272 
00273 
00274 
00275 
00276 
00277 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00310 
00311 
00312 
00313 
00314 
00315 
00316 

00317 
00320 

00321 
00322 
00323 
00324 
00325 
00326 
00327 

00330 
00331 
00332 

00333 
00334 
00335 

00336 
00337 
00340 
00341 



50000 
40200 
76500 
20000 
76300 
73400 
40000 



2 00002 
2 00001 
00043 
2 00005 

00021 

1 00000 

2 00007 



SE22 



62100 00273 
50000 00314 
36100 1 00000 
2 00001 1 00273 
60200 00307 
02000 4 00001 
76600 1 00300 
76200 1 00300 
00000 03777 
00000 04000 
77777 00000 
00000 1 00000 
ooooo 00000 
00000 ooooo 
ooooo ooooo 
ooooo ooooo 
ooooo o ooooo 
ooooo ooooo 
ooooo ooooo 

+000000000000 
OOOOO 00001 
00001 ooooo 



00006 

ooooo 



ooooo 

00010 
00317 

ooooo 
ooooo 



77777 

00001 
-377777777777 

77777 7 77777 

00074 OOOOO 
+000000777777 

77777 OOOOO 

OOOOO 04615 
OOOOO 00017 
OOOOO 05716 

+000000777776 
-200000000000 
-300000000000 

+000000777777 
+000000777775 
-000000000000 
OOOOO 00002 



SE23 



SEK 
SEK1 
SEK2 
SEK3 
SEK4 
SEK5 
SEV1 
SEV2 
SEV3 
SEV4 
SEV5 
SEV6 
SEV7 
ZERO 
ONE A 
ONED 

S1K2 

S1K3 

C 

S2K1 

S2K2 

S3K1 

S3K2 

S3K3 

S3K4 

S3K5 

S4K1 
S4IC2 
S4K3 

LK1 
LK2 
LK3 

S5K1 
S5K2 
S5K3 
S5K4 



CLA 2*2 

SUB 1*2 COMPUTE 

LRS 35 (NiU-NCO) US 

MPY 5*2 THE NUMBER OF WORDS 

LLS 17 TO BE SUM 

PAX 0*1 CHECKED 

ADD 7*2 COMPUTE AND STORE 

ADDRESS OF WORD 
STA SE23 FOLLOWING LAST TABLE WORD. 
CLA ZERO CLEAR SUM CHECK. 
ACL -#1 FORM THE 
TIX SE23»1»1 SUM CHECK. 
SLW SEV3 
TRA 1»4 

WRS 192*1 WRS*192*1 
RDS 192*1 RDS*192*1 

HTR 2047 MASK TO EXTRACT LAST 11 BIT 
HTR 2048 2048 IN ADDR. 
HTR 0*0»-l IN DECR. PART 

HTR 0*1 2 15 

NS.S+1 TEMP STORAGE 

STORAGE OF N (DECR*) 

STORAGE OF CK SUM. 

RETURN FROM SE 26 

RETURN FROM SE 

STORE N TO BE TRANSFERRED 

INITIAL DRUM ADDR. 
OCT 
HTR 1 
HTR 0*0*1 

CONSTANTS USED IN SI 
HTR 0*0*6 CONSTANT WHICH LOOKS LIKE PASS. REF. 
HTR 8 NO. OF S3 VARIABLES SAVED. 
SYN S1K2 

HTR 0»0»-1 ONES IN DECR. PART. 
HTR 0.0*1 CONST. USED TO TEST FOR LX. 
OCT -377777777777 END LOOP LIST SENTENIAL 
HTR -1»-1»-1 USED FOR CF TO FIND OUT IF THIS 
HTR 0*0*S3P1 INITIALIZING CONST. FOR LOOP LIST 
OCT 777777 MASK TO EXTRACT LAST 1/2 WORD. 
HTR 0*0»-1 MASK TO EXTRACT INST. TYPE 
CONSTANTS OF S4 

CMTL SIZE OF STORAGE FOR TAG TABLE. 
HTR 15 NO OF TAGS PER RECORD. 
HTR CMTAG ^ e 

THE L CONSTANTS MUST BE AHEAD OF THOSE FOR S5 
OCT 777776 E»HASH SYMBOL 

OCT -200000000000 CONSTANTS FOR EXTRACTING 
OCT -300000000000 1ST 2*3 BITS OF WORD RESPT. 

CONSTANTS FOR MATCHING SUBROUTINE 
OCT 777777 PHI .EMPTINESS "^ -^ 

OCT 777775 CONSTANT USED TO TEST^FOR REAL TAGS 
OCT -0 -0 ^% 

HTR 2 +2 V 



IS BB 



F5G03790 
F56038OO 
F5G03810 
F5603820 
F5G03830 
F5G03840 
F5G03850 
F5G03860 
F5G03870 
F5G03880 
F5G03890 
F5G03900 
F5G03910 
F5G03920 
F5G03930 
F5G03940 
F5G03950 
F5G03960 
F5G03970 
F5G03980 
F5G03990 
F5G04000 
F5G04010 
F5G04020 
F5G04030 
F5G04040 
F5G04050 
F5G04060 
F5G04070 
F5G04080 
F5G04090 
F5G04100 
F5G04110 
F5G04120 
F5G04130 
F5G04140 
F5G04150 
F5G04160 
F5G04170 
F5G04180 
F5G04190 
F5G04200 
F5G04210 
F5G04220 
F5G04230 
F5G04240 
F5G04250 
F5G04260 
F5G04270 
F5G04280 
F5G04290 
F5G04300 
F5G04310 
F5G04320 



/ 



?"" 



00342 


00000 00003 


S5K5 


HTR 


00343 


00000 00010 


S5K6 


HTR 


00344 


00000 00004 


S9K1 


HTR 


00345 


00000 1 00000 


S9K2 




00346 


00000 2 00000 






00347 


00000 4 00000 






00350 


00003 00000 


S9K3 


HTR 


00351 


00000 07776 


SAK.1 




00352 


+001000000000 


SBK1 


OCT 


00353 


00000 77777 


SBK2 


HTR 


00354 


00004 00000 


SBK3 


HTR 


00355 


04741 00000 


SCK1 


HTR 


00356 


+177777077777 


FK1 


OCT 


00357 


+277777077777 


FK2 


OCT 


00360 


00000 7 00000 


FK3 


HTR 


00361 


+177777777777 


FK4 


OCT 


00362 


00000 00226 


FK5 


HTR 


00363 


-000000000000 


XK3 


OCT 


00364 


+200000000000 




OCT 


00365 


+100000000000 




OCT 


00366 


-377776000000 


XK4 


OCT 


00367 


-300000000000 


XK5 


OCT 


00370 


+200000000000 


XK6 


OCT 


00371 


00000 00011 


XK9 


HTR 




00363 


XK10 


SYN 


00372 


+000001000000 


XK11 


OCT 


00373 


00005 00000 


XK12 


HTR 


00374 


00004 00000 


XK13 


HTR 


00375 


00007 00000 


XK14 


HTR 


00376 


00002 00000 


XK15 


HTR 


00377 


00000 4 00000 


XK16 


HTR 


00400 


1 00000 00000 


XK17 


PON 




00366 


XK18 


SYN 


00401 


-377777000000 


XK19 


OCT 


00402 


-377700777777 


XK20 


OCT 


00403 


00003 00000 


XK21 


HTR 


00404 


-377777077777 


XK22 


OCT 


00405 


00000 1 00000 


XK23 


HTR 


00406 


00000 2 00000 




HTR 


00407 


00000 4 00000 




HTR 


00410 


00000 00000 


S1V1 




00411 


00000 00000 




HTR 


00412 


00000 00000 




HTR 


00413 


00000 00000 




HTR 


00414 


00000 00000 




HTR 


00415 


00000 00000 




HTR 


00416 


00000 00000 




HTR 


00417 


00000 00000 




HTR 


00420 


00000 00000 


S1V3 




00421 


00000 00000 


S1V4 




00422 


00000 00000 


S1V5 




00423 


00000 00000 


S1V6 




00424 


00000 00000 


S1V7 





3+3 

8 +8 

4 +4 

0*1 MASK FOR PHI DIGIT NO. 1 

0*2 MASK FOR PHI DIGIT NO. 2 

0*4 MASK FOR PHI DIGIT NO. 3 

0.0.3 MASK TO EXTRACT 2 BITS IN DECR. 

4094 CONST USED TO TEST NON EXISTENT BB 

CONSTANTS OF SB „.„..« 

+001000000000 CONST. USED TO GENERATE SX BIT* AD. 

-1 USED TO EXTRACT ADDR. 

0.0.4 CONST. TO GENERATE SX BIT FOR TRANSFER 

O.O.LPLST 

177777077777 TRANSPARANT REGION CONST 

277777077777 OPAQUE REGION CONST 

0.7 MASK TO EXTRACT TAG. 

177777777777 CONST TO TEST FOR OPAQUE REG. 

FP1 LENGTH OF REGION LIST 

-0 3 CONSTANTS USED TO 

200000000000 CHANGE REGION WDS. 

100000000000 TO INDICATE IRS LX ED. 

-377776000000 E.HASH SYMBOL.IN LOT HALF 

-300000000000 MASK FOR PREFIX 

200000000000 

9 

XK3 MASK TO EXTRACT 1ST IN BB FIT. 

1000000 CONST. TO GENERAGE LX BIT. 

0.0.5 4 CONSTS. USED TO TEST FOR ACTIVE 

0.0>4 TNX 

0.0.7 TIX 

0.0.2 LXP 

0.4 CONST. TO GENERATE LX BIT. 

CONST. TO SEPARATE TYPES 
XK4 E IN LEFT HALF WORD. 
-377777000000 MASK LEFT HALF WORD. 
-377700777777 CONST. TO DELETE PERM. NOS. 
0.0*3 CONST. TO TEST FOR DED INST. 
-377777077777 CONST. TO DELETE PHIS. 
0*1 
0*2 
0.4 
TEMP. STORAGE FOR 

1ST 9 VARIABLES 
IN S3 



THE CLA IN S3 

RETURN INDEX 

<+/-)«DECIDE ON (MOST/LEAST) REPL. I.R* 

TEMP 

STORAGE 



F5G04330 

F5604340 

F5G04350 

F5G04360 

F5G04370 

F5604380 

F5G04390 

F5G04400 

F5G04410 

F5G04420 

F5604430 

F5604440 

F5G04450 

F5G04460 

F5G04470 

F5G04480 

F5G04490 

F5G04500 

F5604510 

F5GQ4520 

F5G04530 

F5G04540 

F5G04550 

F5G04560 

F5G04570 

F5G04580 

F5G04590 

F5G04600 

F5G04610 

F5G04620 

F5G04630 

F5G04640 

F5G04650 

F5G04660 

F5G04670 

F5G04680 

F5G04690 

F5604700 

F5G04710 

F5G04720 

F5G04730 

F5G04740 

F5G04750 

F5G04760 

F5G04770 

F5G04780 

F5G04790 

F56048OO 

F5G04810 

F5G04820 

F5G04830 

F5G04840 

F5G04850 

F5G04860 



7>b 



U 



u 



00425 





00000 





ooooo 


IR1 


00426 





00000 





ooooo 


IR2 


00427 


• 


00000 





ooooo 


IR3 


00430 





00000 





ooooo 


IRR 


00431 





00000 





ooooo 


IND1 


00432 





00000 





ooooo 


IND2 


00433 





ooooo 





ooooo 


IND3 


00434 





00000 





ooooo 


IN4 


00435 





ooooo 





ooooo 


S3V1 


00436 





ooooo 





ooooo 


S3V2 


00437 





ooooo 





ooooo 


S3V3 


00440 





ooooo 





ooooo 


S3V4 


00441 





ooooo 





ooooo 


1TAG 


00442 





ooooo 





ooooo 


TPE 


00443 





ooooo 





ooooo 


INTAG 


00444 





ooooo 





ooooo 


S3V5 


00445 





ooooo 





ooooo 


S3V8 


00446 





ooooo 





ooooo 


S3V6 


00447 





ooooo 





ooooo 


S3V7 


Q0450 





ooooo. 





ooooo 


S3V9 


00451 





ooooo 





ooooo 


S4V1 


00452 





ooooo 





ooooo 


S4V2 


00453 





ooooo 





ooooo 


S4V3 


00454 





ooooo 





ooooo 


S4V4 


00455 





ooooo 





ooooo 


IR4 


00456 





ooooo 





ooooo 


IRS 


00457 





ooooo 





ooooo 


IR6 


00460 





ooooo 





ooooo 


ENC 


00461 





ooooo 





ooooo 


IRC 



THE IR1»2»3 CELLS SIMULATE OBJECT MACHINE INDEX REGISTERS, "£04870 
AND CONTAIN A REAL TAG. THE EMPTY SYMBOL 777777* OR THE HASH ^G04880 
SYMBOL 777776, (HASH MEANS THE REGISTER IS NOT EMPTY BUT "£04890 
ITS CONTENTS HAVE NO VALUE, I.E. LXP COMPILED IN SECTION 3 OR"G04900 
DEO COMPILED IN SECTION 2. CLXP IS A WARNING THAT ALTHOUGH IRF5G0491P 
IS VALUELESS, IT WILL BE LOADED VERY SOON WITH A NEW VALUE.HF5G0J920 



THE 3 l.R.S IN 

THE LAST 1/2 OF REGISTER 

HOLDS 3,2»1 IF IR1,2,3 SELECTED 

+ OR - ACCORDING AS XR1 FOUND OR IR1 NOT FOUND 
+ OR - ACCORDING AS IR2 FOUND OR IR2 NOT FOUND 
♦ OR - ACCORDING AS IR3 FOUND OR IR3 NOT FOUND 

+F 0R - IF IR HAS OR HASNT BEEN FOUND 

VARIABLES OF S3 SUBROUTINE 

LOCATION OF 1ST TAG IN BB 

TAG COUNTER, IN DECR. PART. 

+ NO. OF TAGS LEFT IN BB AFTER T1X,0R- 

LOOP LIST INDEX. 

THE TAN-TAG 

THE TYPE OF INSTR. 

TAG + INSTR. TYPE (ENTRY IN TAG LIST) 

LOOP LIST QUANTITY 

RETURN INDEX 

(1ST TAG IN BB-1ST TAG IN CM.) 

NO. OF WORDS LEFT IN C*M. 

(+/-)* (THIS IS NOT NEW BB/THIS IS NEW BB) 

VARIABLES OF S4 

LOC OF 1ST TAG IN CMTAG 

LOC OF 1ST TAG IN NEXT RECORD (TAPE POS.) 

(LOC OF LAST TAG)+ 1 

ABOVE MUST BE SET AT START. 

(LOC. OF 1ST TAG IN BB-POS OF TAPE) 

VARIABLES FOR MATCHING SUBROUTINE S5 

TEMP. STORAGE FOR C (IR1) 

(IR2) 
(IR3) 



F5G04930 
F5G04940 
F5G04950 
F5G04960 
F5G04970 
F5604980 
F5G04990 
F5G050O0 
F5G0501O 
F5G05O2O 
F5G05030 
F5G05040 
F5G05050 
F5G05060 
F5G0507O 
F5G05080 
F5G05O9O 
F5G05100 
F5G05110 
F5G05120 
F5G05130 
F5G05140 
F5G05150 
F5G05160 
F5G05170 
F5G05180 
F5G05 190 
F5G05200 
F5G05210 
F5G05220 
F5G05230 
F5G05240 
F5G05250 
F5G05260 
F5G05270 
F5G05280 



00462 OOOOO OOOOO INI 

00463 OOOOO OOOOO IN2 

00464 OOOOO OOOOO IN3 

00465 OOOOO OOOOO EN4 

00466 OOOOO OOOOO EN5 



TEMP. STORAGE FOR 

TEMP. STORAGE FOR 

COUNTER OF = 

COUNTER OF ■ 

THE IN 1»2#3, EN4»5,6 CELLS ARE LOADED BY THE S5 ROUTINE 

FOR PERMUTATION OF INDEX REGISTER ASSIGNMENT THROUGHOUT AN 

ALREADY TREATED REGION UPON ENTRY TO THIS REGION IN LPLST. 

OPTIMIZED MATCH TO CURRENT CONTENTS OF IR1,2,3 IS SECURED BY F5G05290 

PERMUTING THE ENTIRE REGION AS NECESSARY. THE INI, 2, 3 "°°*:??° 

AND EN4.5,6 CELLS LINK THE OUTMODED SYSTEM £N1,2»3, EX1,2,3 "G05310 

ACTl.2,3 FOR THIS REGION WITH THE ABSOLUTE SYSTEM IR1,2,3, "G05320 

ACl.2,3. LXl.2,3. FOR EXAMPLE EN4 IS 3,2,0R1 DEPENDING ON F5G05330 

WHETHER THE CORRESPONDENT OF EN1 IS IR 1.2.0R 3. JJJVERSELY, "005340 

INI IS 3,2,0R1 FOR THE CORRESPONDENT OF IR1 EQUAL TO EN1 * 2f3# "£^^° 

INDEX OF CORRES OF 1R1 KroJfSo 

INDEX OF CORRES OF IR2 L 5 jJ":r 

INDEX OF CORRES OF IR3 c*GO*«0 

INDEX OF CORRES OF EN1 rlrotlftfi 

INDEX OF CORRES OF EN2 .r»tou»*uu 



00*67 





00000 





ooooo 


EN6 


00*70 





00000 





ooooo 


EN1 


00*71 





00000 





ooooo 


EN2 


00*72 





00000 





ooooo 


EN3 


00*73 





00000 





ooooo 


S5V1 


00*7* 





00000 





ooooo 


S5V2 


00*75 





00000 





ooooo 


S9V1 


00*76 





00000 





ooooo 


S9V2 


00*77 





00000 





ooooo 


S9V* 


00500 





00000 





ooooo 


SAV1 


00501 





00000 





ooooo 


SAV2 


00502 





00000 





ooooo 


SAV3 


00503 





00000 





ooooo 


EX1 


0050* 





00000 





ooooo 


EX2 


00505 





00000 





ooooo 


EX3 


00506 





00000 





ooooo 


ACT1 


00507 





00000 





ooooo 


HTR 


00510 





00000 





ooooo 


HTR 


00511 





00000 





ooooo 


SBV1 


00512 





00000 





ooooo 


SBV2 


00513 





00000 





ooooo 


SBV3 


0051* 





00000 





ooooo 


SBV4 


00515 





00000 





ooooo 


SBV5 


00516 





ooooo 





ooooo 


scvi 


00517 





ooooo 





ooooo 


SCV2 


00520 





ooooo 





ooooo 


SCV3 


00521 





ooooo 





ooooo 


ACIND 


00522 





ooooo 





ooooo 


SDV1 


00523 





ooooo 





ooooo 


SDV2 


0052* 





ooooo 





ooooo 


SDV3 


00525 





ooooo 





ooooo 


SDV* 


00526 





ooooo 





ooooo 


SFV1 


00527 





ooooo 





ooooo 


SFV2 


00530 





ooooo 





ooooo 


SGV1 


00531 





ooooo 





ooooo 


S6V2 


00532 





ooooo 





ooooo 


FV1 


00533 





ooooo 





ooooo 


FV2 


0053* 





ooooo 





ooooo 


FV3 


00535 





ooooo 





ooooo 


FV4 


00536 





ooooo 





ooooo 


FV5 


00537 





ooooo 





ooooo 


FV6 


G05*0 





ooooo 





ooooo 


FV7 


005*1 





ooooo 





ooooo 


FV8 


005*2 





ooooo 





ooooo 


FV9 


005*3 





ooooo 





ooooo 


FV10 


005*4 





ooooo 





ooooo 


FV101 


005*5 





ooooo 





ooooo 


FV102 


005*6 





ooooo 





ooooo 


FV103 


005*7 





ooooo 





ooooo 


FV10* 



INDEX OF CQRRES OF EN3 
THE ENTRANCE REQUIREM 
ENTS EN1»ENZ#EN3. 

TEMP. STORE FOR RETURN INDEX. 

TEMP STORE FOR LOOP LIST QUANT. 

TEMP. STORE FOR BB NO. 

TEMP. STORE FOR RETURN INDEX 

TEMP. STORE FOR REGION WORD. 

VARIABLES OF SA SUBROUTINE (WHICH GETS EXIT CONDTI 

TEMP STORE FOR PERMUTATION NOS. 

RETURN INDEX. 

TEMP. STORE FOR REGION WORD. 
THE EX1.2.3 CELLS CONTAIN THE EXIT REQUIREMENTS FOR 
HAS ALREADY BEEN TREATED. 

3 EXIT CONDITIONS 



THE ACT 1»2*3 CELLS CONTAIN ACTIVITY OF AN ALREADY 
3 ACTIVE 

INDICATORS 

VARIABLES OF SB 

RETURN INDEX 

TEMP. STORAGE. 

TEMP. STORAGE. 

INDEX OF REGISTER WHICH IS ACTIVE. 

STORAGE FOR PERMUTATION NOS. 

RETURN INDEX 

INDEX OF BB. 

INDEX OF POSITION IN LOOP LIST 

+ OR - MEANS 2ED OR ACTIVE PASS 

STORE FOR RETURN INDEX. 

INDEX OF ACTIVE I.R. 

THE PERMUTATION NOS. 

TEMP. STORE FOR INDEX OF BB 

ACTIVE INDICATOR FORMED HERE. 

RETURN INDEX. 

RETURN INDEX 
PERMUTED REGION WORD 

HIGHEST FREQ. IN REGION (I.C. PRED. TABLE ENTRY) 

BB NO. OF BB HAVING HIGHEST FREQ. (ADDR.) 

PRED. NO. (I.C. OTH WORD FROM BB. (ADDR.) 

WORD HAVING REGION NO. (5TH BB WORD) 

CURRENT BB NO. BEING CONSIDERED. (ADDR.) 

RETURN INDEX OF F1*F80 

PRED. NO. BEING CONSIDERED IN B.B. (ADDR.) 

FIRST PRED. FROM NEXT B.B. (ADDR.) 
O.Qt- TEMP STORE FORCURRENT SUCC IN DECR ONLY 
0»0»- TEMP STORE IN DECR ONLY* CURRENT SUCC 

HIGHEST FREQ. IN BB (PRED. TABLE ENTRY) 

BB NO. BEING CONSIDERED. (ADDR.) 

PRED. NO. (OTH WORD FROM BB) (ADDR.) 

WORD HAVING REGION. NO. 



F5G05*10 
F5G05*20 
F5G05*30 
F5G05**0 
F5G05*50 
F5G05460 
F5G05*70 
F5G05*80 
F5605*90 

TIONS) F5G05500 
F5G05510 
F5G05520 
F5G05530 
A BB THATF5G05540 
F5G05550 
F5G05560 
F5G05570 
F5G05580 

TREATED BBF5G05590 
F5G05600 
F5605610 
F5G05620 
F5605630 
F5G056*0 
F5G05650 
F5G05660 
F5605&70 
F5G05680 
F5G05690 
F5G05700 
F5GO5710 
F5G05720 
F5G05730 
F5G057*0 
F5G05750 
F5G05760 
F5G05770 
F5G05780 
F5605790 
F5G05800 
F5G05810 
F5G05820 
F5G05830 
F5G058*0 
F5G05850 
F5G05860 
F5G05870 
F5G05880 
F5G05890 
F5G05900 
F5G05910 
F5G05920 
F5G05930 
F5G059*0 






u 



00550 00000 00000 LPIND 

00551 00000 00000 LV1 

00552 00000 00000 LV2 

00553 00000 00000 LV3 

00554 00000 00000 LV4 

00555 00000 00000 LV5 



00556 00000 00000 AC1 

00557 00000 00000 AC2 

00560 00000 00000 AC3 

00561 00000 00000 



00562 





00000 





00000 


LX1 


00563 





00000 





00000 


LX2 


00564 
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LX3 


00565 
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XVI 


00566 





00000 
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XV2 


00567 
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00000 


XV3 


00570 
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XV4 


00571 





00000 





ooboo 


XV5 
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00000 


XV6 
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00000 


XV7 


00574 





00000 





00000 


XV8 



+ OR - IF IT ISNT OF IS A LOOP £5§2f2?2 

THE CONDITIONS OF THE I.R«S F5605960 

AT END OF THE F5G05970 

1ST LXING PASS. F5G05980 

THE LOOP LIST QUANTITY F5G05990 

WORD FROM BB WITH PRED. AND SUCC. LOCS F5G06000 

VARIABLES OF 2ED LXING PASS. F5G06010 

ACTIVITY. WHEN SIMULATING A NEW BB IN THE 2ND LXING PASS* F5G06020 

IF AN LX» TXI* OR TIX IS ENCOUNTEREDf THE APPROPRIATE INDEX F5G06030 

REGISTER BECOMES ACTIVE. THIS IS PLUS ACTIVITY. IF THE SAMEF5G06040 

REGISTER MUST BE DISPLACED IN THE SAME LPLST* SB IS ENTERED F5G06050 

TO RECORD AN SX NECESSARY. SINCE THE ACTIVITY IS PLUS* THE F5G06060 

SX WILL BE COMPILED IN STAG IMMEDIATELY AFTER THE ACTIVE F5G06070 

INSTRUCTION. THIS SX ENDS THE ACTIVITY* COMPLETELY TAKING F5G06080 

CARE OF THE PROBLEM. AT THE END OF LPLST* IF THE INDEX F5G06090 

REGISTER IS STILL ACTIVE* OR IF* DURING LPLST* AN ACTIVE F5G06100 

REGISTER FALLS OBSOLETE BY A DED OR LXD* THEN ALL THE BLOCKS F5G06110 

IN WHICH IT IS ACTIVE ARE MARKED BY SC* MAKING THIS ACTIVITY F5G06120 

MINUS. THIS* UNLIKE PLUS ACTIVITY. CAN NEVER BE ENDED. THE F5G06130 

APPEARANCE OF A MINUS BB IN A FUTURE LPLST CAUSES THE F5G06140 

APPROPRIATE AC1»2.0R3 TO CONTAIN MINUS ACTIVITY AND WHENEVER F5G06150 

THE CORRESPONDING INDEX REGISTER MUST BE DISPLACED* AN SB F5G06160 

ENTRY WILL CAUSE AN SX TO BE COMPILED IN THE PRED LINK FROM F5G06170 

THAT BB. THIS POSTPONEMENT OF SX COMPILATION AFTER AN ACTIVEF5G06180 

INSTRUCTION FOR AS LONG AS POSSIBLE PRODUCES A LARGER NUMBER F5G06190 

OF SX*S THAN STRICTLY NECESSARY* BUT PLACES THEM IN LOW F5G06200 

FREQUENCY PATHS* TRADING OBJECT PROGRAM SPACE FOR OBJECT F5G06210 

PROGRAM TIME. F5G06220 

THE AC1*2»3 CELLS DESCRIBE THE ACTIVITY STATUS OF IR1»2*3. F5G06230 

2ER0»..N0T ACTIVE. PLUS ACTIVITY. ..ACTIVE INSTRUCTION IN A F5G06240 

BB NOT TREATED UNTIL THIS LPLST. AC1»2»3 CONTAINS INFO. F5G06250 

FOR SB TO MAKE A STAG ENTRY AT THE ACTIVE INSTRUCTION. F5G06260 

MINUS ACTIVITY. ..ACTIVE INSTR. IN BB ALREADY IN A REGION. F5G06270 

AC1»2*3 CONTAINS INFO. FOR SB TO MAKE A PRED ENTRY AT LINK F5G06280 

OUT OF THE REGION. F5G06290 

3 ACTIVE INDICATORS. +0 MEANS NOT ACTIVE F5G06300 

IF + VE.THEN ACTIVE THING IS INSTR. » DECR. IS F5G06310 

LOC. OF BB IN LOOP LIST»ADDR. IS LOC. OF Y-TAG. IF-VE* F5G06320 

HTR ACTIVE THING IS TRANSFER. LOC. IN LP LST IN DECR. F5G06330 

THE LX1.2.3 CELLS CONTAIN THE ENTRANCE REQUIREMENTS FOR A BB.F5G06340 

3 ENTRANCE REQUIREMENTS OF A BB F5G06350 

BUILT UP HERE. +0 MEANS F5G06360 

NO ENTRANCE REQU. DETERMINED. F5G06370 

IN DECR.* INDEX OF CURRENT REGION F5G06380 

THE NEW REGION WORD. F5G06390 

THE WORD POSITION IN STAG • F5G06400 

THE DIGIT INDEX WITHIN THE WORD. F5G06410 

THE LOCATION OF CURRENT TAG (INSTR.) F5G06420 

NEAR X07.C.F. OF TNX BRANCH.NEAR X85* TAG F5G06430 

X07 TO X09+»INDEX OF BB.NEAR X85.TAG F5G06440 

INDEX OF BB NEmR X33 F5G06450 

PERMUTATION. WHEN INDEX REGISTER ASSIGNMENTS THROUGHOUT AN F5G06460 

ALREADY TREATED REGION ARE PERMUTED* STAG* PRED AND BBB MUST F5G06470 

BE UPDATED. INSTEAD* WORD 2 OF BBB CONTAINS PERMUTATION F5G06480 
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00603 





00000 





ooooo 


XV15 


00604 
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XV16 


00605 





00000 
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XV17 


00606 





00000 
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XV18 


00607 





00000 
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XV19 


00610 





00000 





ooooo 


XV20 


00611 





00000 





ooooo 


XV21 


00612 





00000 





ooooo 


XV22 


00613 





00000 





ooooo 


XV23 


00614 





00000 





ooooo 


XV24 


00615 





ooooo 





ooooo 


AVI 


00616 





00000 





ooooo 


AV2 


00617 





ooooo 





ooooo 


AV3 



00620 


-0 


76000 





00003 


Sill 


SSM 


00621 





02000 





00623 




TRA 


00622 





76000 





00003 


Si 


SSP 


00623 





60100 





00422 


S109 


STO 


00624 


-0 


63400 


4 


00421 




SXD 


00625 


— 


76000 





00003 




SSM 


00626 





60100 





00431 




STO 


00627 





60100 





00432 




STO 


00630 





60100 





00433 




STO 


00631 





60100 





00434 




STO 


00632 


-0 


53400 


2 


00641 




LXD 


00633 





53400 


1 


00342 


S119 


LXA 


00634 





50000 


1 


00430 


S120 


CLA 


00635 





34000 


2 


OOOOO 




CAS 


00636 


-3 


77445 





00640 


S121 


TXL 


00637 





02000 





00644 




TRA 


00640 


2 


00001 


1 


00634 


S122 


TIX 


00641 


3 


77442 


2 


00662 


S123 


TXH 


00642 


-0 


53400 


2 


00636 




LXD 


00643 





02000 





00633 




TRA 


00644 





50200 





00422 


S124 


CLS 


00645 


-0 


12000 





00656 




TMI 


00646 





60100 


1 


00434 




STO 


00647 





56000 





00434 




LOQ 


00650 





60100 





00434 




STO 



NUMBERS THROUGH WHICH THESE TABLES ARE READ, AND UPDATING 
REQUIRES ONLY THESE NUMBERS TO BE CHANGED. IN 5ECT1ON 5 PART 
2 WHEN THE FINAL CONFIGURATION HAS BEEN REACHED* THE TABLES 
THEMSELVES ARE ACTUALLY UPDATED, 

THE PERMUTATION NOS. 

INDEX OF I»R* IN BB CONSIDERED* 



INDEX OF PARTICULAR BB X40 ON 

TEMP. STORE FOR 2 INDEXES 

WHILE USING SUBROUTINE. 

TEMP. STORE FOR PRED.=»X91-2+X90*X92 X97 ON 

TEMP. STORE FOR OLD REGION WD.»X74 

IN ADDR.»X111»N0. OF SUCC. WE SEARCH FOR. 
TEMP STORE FOR PREVIOUS LPLST QUANTITY 
TEMP STORE IN DECR. ONLY 
TEMP STORE FOR TAG NEAR X43 
NUMBER OF LAST BB FOR WHICH REGION NO. WAS ADDED 
DECR ONLY » TEMP STORE FOR REGION INDEX 

OR NOTO IF IS OR ISNT SAME AS 1ST REGION 

TEMP. STORE FOR PRED. TABLE ENTRY. 

TEMP. STORE FOR INDEX OF I.R. 

TEMP. STORE FOR PERM. NOS. .„.«., 

THE SI AND Sill ROUTINES SELECT THE MOST (SI) OR THE LEAST 
tSlll) REPLACEABLE INDEX REGISTERS BY SCANNING AHEAD 
THROUGH LPLST. THE IR WHOSE CONTENTS ARE REQUIRED AGAIN 
SOONEST (LAST) IS THE LEAST (MOST) REPLACEABLE. THESE 
ROUTINES USE THE S2 SUBROUTINE* WHICH ACTUALLY TRIES TO 
SELECT AN IR. 

SET INDICATOR TO-MEANING 
S109 SEARCH FOR LEAST REPLACEABLE LR« 

SET INDICATOR TO + MEANING 
S1V5 SEARCH FOR MOST REPLACEABLE I.R. 
S1V4*4 STORE RETURN INDEX. 

SET 
IND1 INDICATORS 
IND2 TO 
IND3 NOT 
IN4 FOUND. 

S123»2 SET TO LOOP FOR EMPTY I.R» 
S5K5tl SET COUNT TO 3# N TO 1 
IR1+3*1 IS IRN EMPTY OR 
0*2 (FILLED WITH HASH) 

S122*0»-LK1 NOt COM(LOC. OF HASH) IN DECR. 
S124 YES» 

S120tl»l NOtCOUNT TO 3#N=N+1 
S127>2»-S5Kl HAVE WE LOOKED FOR HASH 
S121*2 NO»SET TO LOOP FOR HASH. 
S119 

S1V5 LOOKING FOR MOST REPLACEABLE 
S129 I.R. 

IND1+3»1 N0» RECORD IRN ELIMINATED 
IN4 
IN4 RECORD SOME IR ELIMINATED 



F5G06490 

F5G06500 

F5G06510 

F5G0652G 

F5G0653G 

F5606540 

F5G06550 

F5606560 

F5G06570 

F5G06580 

F5G06590 

F5G06600 

F5G06610 

F5G06620 

F5G06630 

F5G06640 

F5G06650 

F5G06660 

F5G06670 

F5G06680 

F5G06690 

F5G06700 

F5G06710 

F5G06720 

F5G06730 

F5G06740 

F5G06750 

F5G06760 

F5G06770 

F5G06780 

F5G06790 

F5G068O0 

F5G06810 

F5G06820 

F5G0683C 

F5G06840 

F5G06850 

F5G06860 

F5G06870 

F5G06880 

F5G06890 

F5G06900 

F5G06910 

F5G06920 

F5G06930 

F5G06940 

F5G06950 

F5G06960 

F5G06970 

F5G06980 

F5G06990 

F5G07000 

F5G07010 

F5G07020 
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00651 
00652 
00653 
00654 
00655 
00656 
00657 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
00674 
00675 
00676 
00677 
00700 
00701 
00702 
00703 
00704 
00705 
00706 
00707 
00710 
00711 
00712 
00713 
00714 
00715 
00716 
00717 
00720 
00721 
00722 
00723 
00724 
00725 
00726 
00727 
00730 
00731 
00732 
00733 
00734 
00735 
00736 



16200 
02000 
53400 
50000 
12000 
63400 
02000 
00001 
07400 
50000 
60100 
53400 4 
50000 
60100 
00001 
07400 
02000 
50000 
34000 
02000 
02000 
07400 4 
02000 
02000 
50000 
34000 
02000 
02000 
02000 
34000 
02000 
02000 
50000 
34000 
76100 
02000 
02000 
34000 
02000 
02000 
07400 
56000 
60000 
53400 
50000 
77100 
60200 
63400 
63400 
07400 
02000 
53400 
53400 
77777 



00653 
00640 
00342 
00434 
00660 
00430 
00001 
00654 
00004 
01122 
00420 
00320 
00445 
00420 
00665 
01023 
00706 
00410 
00435 
00676 
00701 
00766 
00745 
00670 
00411 
00436 
00676 
00741 
00676 
00323 
00711 
00763 
00444 
00324 
00000 
00716 
00670 
00417 
00721 
00741 
00070 
00317 
00442 
00342 
12535 
00022 
00441 
00423 
00424 
00766 
00745 
00423 
00424 
00737 



TOP S128 HAS AN IR BEEN ELIMINATED BEFORE 
TRA S122 HO * 

5128 LXA S5K5.1 SET COUNT TO 3»N*1 

5126 CLA IND1+3.1 HAS IRN 
TPL S125 BEEN ELIMINATED 

5129 SXD IRR.l NO .SELECT IRN 
TRA lt4 AND RETURN* 

S125 TIX S126.1.1 COUNT TO 3»N*N+1 

5130 TSX 4*4 DIAGNOSTIC. THERE IS AN ERROR. 

5127 CLA S39 

STO S1V3 STORE ASIDE 

LXA S1K3.4 THE 
S112 CLA S3V1+8.4 STATE 

STO S1V1+8.4 OF THE 

TIX S112.4.1 S3 ROUTINE. 
Sll TSX S3.4 GET NEXT TAG 

TRA S103 COME HERE IF TAG NOT GOT. 

CLA S1V1 

CAS S3V1 IS THE LOOP COMPLETED 

TRA S104 NO 

TRA S135 PERHAPS 

5104 TSX S2.4 NO 

TRA S16 COME HERE IF IR DECIDED ON 

TRA Sll COME HERE IF NOT DECIDED ON 
S135 CLA S1V1+1 IS THE LOOP COMPLETED 

CAS S3V2 

TRA S104 

TRA S102 YES 

TRA S104 
S103 CAS S3K1 IS THIS AN END LOOP LIST 

TRA S105 NO 

TRA S101 YES 

5105 CLA S3V5 GET LOOP LIST QUANTITY A6AIN. 
CAS S3K2 IS IT A BB 

NOP NO. IT IS EITHER A TRANSPARENT 
TRA P001 OR OPAQUE REGION 

TRA Sll YES 
P001 CAS S1V1+7 
TRA S136 
TRA S102 

TSX SE.4 GET BB WHICH CONTAINS ENTR. REQU. 
LDQ S1K2 MAKE THIS LOOK LIKE A 
STQ TPE PASSIVE REFERENCE. 
LXA S5K5.4 SET COUNT TO 3. 
CAL BBB+2.1 PUT THIS TAU TAG 
ARS 18 IN LOCATION 
SLW 1TAG TAG 

SXD S1V6.1 STORE THE 
SXD S1V7.4 INDEXES. 
TSX S2.4 TRY TO SELECT AN I.R. 
TRA S16 COME HERE IF I.R. SELECTED. 
LXD S1V6.1 AND HERE IF NOT. RESTORE 
LXD S1V7.4 THE INDEXES. 
TXI S114.1.-1 DECREASE ENTR. INDEX 



S136 



S115 



F5G07030 

F5G07040 

F5GQ7050 

F5G07060 

F5G07070 

F5G07080 

F5G07090 

F56071O0 

F5G07110 

F5G07120 

F5G07130 

F5G07140 

F5607150 

F5G07160 

F5G07170 

F5607180 

F5G07190 

F5G07200 

F5G07210 

F5G07220 

F5G07230 

F5G07240 

F5G07250 

F5G07260 

F5G07270 

F5G07280 

F5G07290 

F5G07300 

F5G07310 

F 5607320 

F5607330 

F5G07340 

F5G07350 

F5G07360 

F5607370 

F5607380 

F5607390 

F5G07400 

F5607410 

F 560 7420 

F5G07430 

F5G07440 

F5G07450 

F5G07460 

F5G07470 

F5G07480 

F5G07490 

F5G07500 

F5G07510 

F5G07520 

F5G07530 

F5607540 

F5G07550 

F5G07560 
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2 


00001 


4 


00725 


S114 


00740 





02000 





00670 




00741 





50000 





00431 


S102 


00742 





12000 





00756 




00743 





53400 


4 


00342 


S18 


00744 


-0 


63400 


4 


00430 


S15 


00745 





53400 


4 


00320 


S16 


00 746 





50000 


4 


00420 


S113 


00747 





60100 


4 


00445 




00750 


2 


00001 


4 


00746 




00751 





50000 





00420 




00752 





60100 





01122 




00753 





07400 


4 


01133 




00754 


-0 


53400 


4 


00421 




00755 





02000 


4 


00001 


S14 


00756 





50000 





00432 


S13 


00757 





12000 





00762 




00760 





53400 


4 


00341 


S108 


00761 





02000 





00744 




00762 





07400 


4 


00004 


S107 


00763 





56000 





00550 


S101 


00764 





16200 





00741 




00765 





02000 





00670 




00766 





50000 





00441 


S2 


00767 





53400 


1 


00342 




00770 





56000 


1 


00434 


S22 


00771 





16200 





00775 




00772 





34000 


1 


00430 




00773 





02000 





00775 




00774 





02000 





00777 




00775 


2 


00001 


1 


00770 


521 


00776 





02000 


4 


00002 




00777 





50000 





00442 


524 


01000 





34000 





00403 




01001 


-0 


50100 





00340 




01002 





76100 





00000 




01003 





63000 





01005 




01004 





50200 





00422 




01005 


-o 


12000 





01010 


TEST 


01006 


-0 


63400 


1 


00430 


S23 


01007 





02000 


4 


00001 




01010 





56000 





00314 


S25 


01011 


-0 


6O00O 


1 


00434 




01012 





50200 





00434 




01013 


-0 


12000 





01016 




01014 





60100 





00434 




01015 





02000 


4 


00002 




01016 





53400 


1 


00342 


S26 


01017 





50000 


1 


00434 


S27 


01020 


-0 


12000 





01006 




01021 


2 


00001 


1 


01017 




01022 





07400 


4 


00004 





TIX S115.4.1 COUNT TO 3* 

TRA Sll 

CLA IND1 HAS C(IR1) BEEN 

TPL S13 FOUND (ELIMINATED) 

LXA S5K5.4 NO .SELECT 

SXD IRRt4 IRl. 

LXA S1K3.4 RESTORE S3 (GET NEXT TAG SR> 

CLA S1V1+8.4 TO STATE 

STO S3V1+8.4 BEFORE 

TIX S113.4.1 SI WAS USED. 

CLA S1V3 

STO S39 

TSX S4.4 MAKE SURE SAME TAGS ARE IN CM. 

LXD S1V4.4 

TRA 1.4 RETURN 

CLA IND2 HAS IR2 BEEN 

TPL S107 FOUND (ELIMINATED) 

LXA S5K4.4 NQ.SELECT 

TRA S15 IR2. m cnano 

TSX 4»4 DIAGNOSTIC* THERE IS AN ERROR 

OF SOME KIND. 
LDQ LPIND IS THIS 
TOP S102 A LOOP 
TRA Sll YES 

CLA 1TAG PUT TAU-TAG IN AC. 

LXA S5K5.1 SET COUNT TO 3a 
LDQ IND1+3.1 
TOP S21 BEEN FOUND 

CAS IR1+3»1 NO. IS TAU TAG EQUAL 
TRA S21 NO. TO C(IRN) 
TRA S24 YES 
TIX S22.1.1 NO. 

TRA 2.4 RETURN TO LITSX>+2 rtQ . v r, acq 

CLA TPE IS IT A DED. LXP. OR LX CLASS. 

CAS XK21 IF SO. MAKE P*l. MAKING TEST*TMI S25 

QRA S5K3 WHILE IF SO MAKE TEST TPL S25. 

°op S5 * 3 THUS GO TO S23 AND USE IT IF LXP. DED. LX 

STP TEST AND TAGS LEFT IN BB AFTER TIX. OR 

HI siJ 5 IF OTHER AND NO TAGS LEFT IN BB AFTER TIX. 

T MI S25 THIS MIGHT BE A TPL S25. 

SXD IRR.l RECORD IRN INDEX. 
TRA 1.4 
LDQ ZERO RECORD IRN FOUND OR ELlM 

STQ IND1+3.1 • 

CLS IN4 HAS ONE OTHER I R BEEN 
TMI S26 ( FOUND/ELI M) 
STO IN4 
TRA 2.4 

LXA S5K5.1 SEARCH FOR THE 
CLA IND1+3.1 I.R» WHICH HASNT 
TMI S23 BEEN (FOUND/ELIM) YET. 
TIX S27.1.1 

TSX 4.4 NOT FOUND. DIAGNOSTIC ,,,,„ 

THE S3 SUBROUTINE EXISTS IN FEED TAG OR FEED LPLST STATES. 



F5G07570 

F5G07580 

F5G07590 

F5G076O0 

F5G07610 

F5G07620 

F5G0763O 

F5G07640 

F5G07650 

F5G07660 

F5607670 

F5G07680 

F5G07690 

F5G07700 

F5G07710 

F5G07720 

F5G07730 

F5G07740 

F5G07750 

F5G07760 

F5G07770 

F5G07780 

F5G07790 

F5G07800 

F5607810 

F5G07820 

F5G07830 

F5GQ7840 

F5G07850 

F5G07860 

F5G07870 

F5G07880 

F5G07890 

F5G07900 

F5G07910 

F5G07920 

F5G07930 

F5G07940 

F5G07950 

F5G07960 

F5G07970 

F5G07980 

F5G07990 

F5G08000 

F5G08010 

F5G08O*2O 

F5G08030 

F5G08040 

F5G08050 

F5G08060 

F5G08070 

F5G08080 

F5G08090 

F5G08100 
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u 



O 



IN THE FORMER IT FEEDS THE NEXT ITEM FROM TAGLIST AND TAKES F5G08UO 
THE TAG FEED EXIT. IN THE LATTER IT FEEDS THE NEXT ITEM FROMF5G08120 
LPLST AND TAKES THE LPLST FEED EXIT, WHEN IT COMES TO A ^G08130 
LPLST ITEM WHICH IS A BB AND NOT IN A REGION. IT GOES TO F5G08140 
FEED TAG STATE AND STAYS THERE UNTIL THE LAST TAGLIST ITEM INF5G08150 
THAT BB HAS BEEN FED. THEN IT RETURNS TO LPLST FEED. WHEN F5G08160 
SENTINEL IS FED THE ROUTINE RE-INI TI ALIZES ITSELF TO THE "G08170 
BEGINNING OF LPLST AND STAYS IN FEED LPLST STATE* IT USES ^008180 
THE S4 SUBROUTINE FOR HANDLING TAPE 3 DURING TAGLIST FEEDING.F5G08190 
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00001 


1 


01122 




TIX 


01025 


-0 


63400 
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00445 




SXD 


01026 





50000 





00437 




CLA 


01027 





60100 





00450 




STO 


01030 





12000 





01114 




TPL 
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-0 


53400 


1 


00440 




LXD 


01032 





50000 





00444 




CLA 


01033 





12000 





01035 




TPL 


01034 


-0 


53400 


1 


00325 




LXD 


01035 





50000 


1 


05035 


S306 


CLA 


01036 





60100 





00444 




STO 


01037 


1 


77777 


1 


01040 




TXI 


01040 


-0 


63400 


1 


00440 


S31 


SXD 


01041 





34000 





00323 




CAS 


01042 





02000 





01044 




TRA 


01043 





02000 





01052 




TRA 


01044 





34000 





00324 


S32 


CAS 


01045 





76100 





00000 




NOP 


01046 





02000 





01050 




TRA 


01047 





02000 





01053 




TRA 


01050 


-0 


53400 


4 


00445 


S305 


LXD 


01051 





50000 





00444 




CLA 


01052 





02000 


4 


00001 


S35 


TRA 


01053 





07400 


4 


00070 


S34 


TSX 


01054 





50000 


1 


12534 




CLA 


01055 


-0 


32000 





00326 




ANA 


01056 





60100 





00435 


S303 


STO 


01057 





07400 


4 


01133 




TSX 


01060 





60100 





00446 




STO 


01061 





40200 





00330 




SUB 


01062 





76000 





00003 




SSP 


01063 





60100 





00447 




STO 


01064 





50000 





00444 




CLA 


01065 





40000 





00316 




ADD 


01066 





07400 


4 


00070 




TSX 


01067 





50000 


1 


12534 




CLA 


01070 


-0 


32000 





00326 




ANA 


01071 





40200 





00435 




SUB 


01072 





34000 





00447 




CAS 


01073 





02000 





01076 




TRA 


01074 





02000 





01117 




TRA 


01075 





02000 





01117 




TRA 


01076 





40200 





00447 


S304 


SUB 


01077 





60100 





00437 




STO 



S3V2»1 ARE THERE ANY 

S39»l»l 

S3V8.4 NO.STORE RETURN INDEX 

S3V3 

S3V9 

S300 ARE THERE ANY MORE TAGS IN BB 

53V4.1 NO 

S3V5 WAS THE LAST THING 

S306 AN END LPLST 

S3K3.1 YES. RESET LPLST INDEX 

LPLST+S3P1.1 GET LOOP LIST QUANTITY 

S3V5 QUANTITY. 

S31.1.-1 

S3V4.1 THE INDEX. 

S3K1 IS THIS END OF LOOP LIST 

S32 NO. 

535 YES. 
S3K2 

NO 
S305 
S34 YES 
S3V8.4 

S3V5 RETURN WITH LOOP 
1,4 LIST QUANTITY 
SE.4 GET INDEX OF BB 
BBB+1.1 

S3K4 GET AND STORE THE 
S3V1 TAG LOCATION, 
S4.4 GO TO PUT TAG IN CM. 
S3V6 STORE (1ST BB TAG-1ST TAG IN CM.) 
S4K1 FORM NO. OF 

WDS LEFT IN CM. 
S3V7 

S3V5 GET THE 
ONED LOC OF 1ST 
SE.4 TAG IN 
BBB+1.1 NEXT BB. 
S3K4 

S3V1 IS NO. OF TAGS IN BB LESS 
S3V7 THAN OR EQUAL TO SPACE IN CM. 
S304 

536 YES. 
S36 YES. 

S3V7 STORE S EXCESS OF TAGS 
S3V3 



F5G08200 
F5G08210 
F5G08220 
F5G08230 
F5G08240 
F5G08250 
F5G08260 
F5G08270 
F5G08280 
F5G08290 
F5G0830O 
F5G08310 
F5G 8320 
F5G08330 
F5G08340 
F5G08350 
F5G08360 
F5G08370 
F5G08380 
F5G08390 
F5G08400 
F5G08410 
F5G08420 
F5G08430 
F5G08440 
F5G08450 
F5G08460 
F5G08470 
F5G08480 
F5G08490 
F5G08500 
F5G08510 
F5G08520 
F5G08530 
F5G0854Q 
F5G08550 
F5G08560 
F5G08570 
F5G08580 
F5G08590 
F5G08600 
F5G08610 
F5G08620 
F5G08630 
F5G08640 



v> 



01100 
01101 
01102 
01103 
01104 
01105 
01106 
01107 
OHIO 
01111 
01112 
01113 
01114 
01115 
01116 
01117 
01120 
01121 
01122 
01123 
01124 
01125 
01126 
01127 
01130 
01131 
01132 
01133 
01134 
01135 
01136 
01137 
01140 
01141 
01142 
01143 
01144 
01145 
01146 
01147 
01150 
01151 
01152 
01153 
01154 
01155 
01156 
01157 
01160 
01161 
01162 
01163 
01164 
01165 



50000 
73400 
00001 
63400 
40000 
40000 
62100 
53400 
50000 
12000 
50000 
02000 
50000 
40000 
02000 
56000 
60000 
02000 
50000 
63400 
60100 
32000 
60100 
50000 
32000 
60100 
02000 
50000 
40200 
12000 
34000 
76100 
02000 
02000 
50000 
40200 
12000 
60100 
50000 
40200 
34000 
02000 
02000 
02000 
50000 
34000* 
76100 
02000 
02000 
76200 
50000 
40000 
60100 
02000 



00447 
00000 
01103 
00436 
00332 
00446 
01122 
00445 
00450 
01023 
00444 
00001 
00451 
00330 
01056 
00323 
00437 
01101 
00000 
00436 
00443 
00326 
00441 
00327 
00443 
00442 
00002 
00435 
00451 
01142 
00330 
00000 
01142 
00001 
00435 
00452 
01166 
00454 
00453 
00452 
00330 
01154 
01173 
01173 
00454 
00331 
00000 
01161 
01172 
00223 
00452 
00331 
00452 
01142 



5302 

S37 

S38 



S300 

S36 

S39 



S4 



541 



5401 



S47 



S43 



CLA S3V7 

PAX 0.1 SET COUNT OF NO. OF TAGS. 

TXI S38»l»l 

SXD S3V2»1 

ADD S4K3 SET ADDRESS OF 

ADD S3V6 CLA 

STA S39 INSTRUCTION. 

LXD S3V8»4 

CLA S3V9 IS THIS A 

TPL S3 NEW BB 

CLA S3V5 YES.RETURN WITH 

TRA 1»4 LOOP LIST QUANTITY. 

CLA S4V1 NEXT TAG NEEDED HAS 

ADD S4K1 LOO (S+1ST TAG IN CM.) 

TRA S303 

LDQ S3K1 

STQ S3V3 

TRA S302 

CLA -»1 GET TAG WORD 

SXD S3V2*1 

STO I NT AG AND 

ANA S3IC4 SEPARATE TYPE 

STO 1TAG FROM 

CAL S3K5 TAU-TAG. 

ANA I NT AG 

STO TPE 

TRA 2»4 

CLA S3V1 FORM (LOO OF 1ST TAG IN BB 

SUB S4V1 -LOO OF 1ST TAG IN CM) 

TMI S41 IS TAG IN CM. 

CAS 54K1 POSSIBLY. IS IT FOR SURE 

NOP NO 

TRA S41 NO 

TRA lt4 YES. RETURN. 

CLA S3V1 NO#FORM (LOO OF 1ST TAG IN BB 

SUB S4V2 -POSITION OF TAPE) 

TMI S42 MUST WE RUN TAPE BACK WORDS 

STO S4V4 NO. 

CLA S4V3 CAN ALL THE FOLLOWING TAGS 

SUB S4V2 BE PUT IN CM. 

CAS S4K1 

TRA S401 NO 

TRA S45 YES»GO. TO SET COUNT 

TRA S45 YE5»T0 NO. OF TAGS IN BB. 

CLA S4V4 

CAS S4K2 IS TAG IN NEXT RECORD 

NOP NO 

TRA S47 

TRA S44 YES 

RTB TAPE NO. SPACE FWD 1 REO 

CLA S4V2 ADJUST TAPE POSITION 

ADD S4K2 

STO S4V2 

TRA S41 



F5G08650 

F5G08660 

F5G08670 

F5G08680 

F5G08690 

F5G08700 

F5G08710 

F5G08720 

F5G08730 

F5G08740 

F5608750 

F5G08760 

F5G08770 

F5G08780 

F5608790 

F5G08800 

F5G08810 

F5G08820 

F5GO8830 

F5G08840 

F5G08850 

F5G08860 

F5G08870 

F5G08880 

F5G0889C 

F5G08900 

F5G08910 

F5G08920 

F5G08930 

F5608940 

F5G08950 

F5G08960 

F5G08970 

F5G08980 

F5G08990 

F5G09000 

F5G09010 

F5GO9020 

F5G09030 

F5609040 

F5G09050 

F5G09060 

F5G09070 

F5GO9O80 

F5GO9090 

F5G09100 

F5G09110 

F5G09120 

F5G09130 

F5609140 

F5G09150 

F5G09160 

F5G09170 

F5G09180 



tW 



(J 



u 



01166 
01167 
01170 
01171 
01172 
01173 
01174 
01175 
01176 
01177 
01200 
01201 
01202 
01203 
01204 
01205 
01206 
01207 
01210 
01211 
01212 
01213 
01214 
01215 
01216 
01217 
01220 
01221 
01222 
01223 
01224 
01225 
01226 
01227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 



76400 
50000 
40200 
02000 
50000 
73400 
40000 
62100 
50000 
60100 
76200 
63400 
76000 
76100 
50000 
40000 
60100 
70000 
00000 
07400 
63400 
07400 
53400 
02000 
00001 
70000 
02000 
07400 
63400 
07400 
53400 
02000 
76600 
76000 
02000 
63400 
02000 
76400 
53400 
00001 
63400 
00004 
07400 
53400 
76200 
53400 
00000 



00203 
00452 
00331 
01164 
00330 
00000 
00332 
01207 
00452 
00451 
00223 
01210 
00012 
00000 
00452 
00331 
00452 
00000 
01216 
00004 
4 01244 
4 01226 
01244 
01200 
01207 
00454 
01217 
00004 
01244 
01226 
01244 
01133 
00333 
00012 
01233 
00151 
00001 
00203 
00151 
01236 
00151 
01241 
00004 
01210 
00223 
01244* 
01207 



S42 



S44 
S45 



S49 



S46 
S407 



S48 
S409 



S406 



S404 
S402 



S402A 
S402B 
S405 



IN CASE OF TAPE CHECK 



©1245 -0 63400 4 00473 S5 



BST TAPE ADJUST TAPE POSITION 

CLA S4V2 AFTER BACKSPACING 

SUB S4K2 ONE RECORD. 

TRA S43 

CLA S4K1 SET COUNT TO STORAGE SIZE. 

PAX 0»2 

ADD S4K3 SET CPY 

STA S4$ ADDRESS. 4 

CLA S4V2 

STO S4V1 

RTB TAPE 

SXD S407.2 STORE (2) 

RTT TURN OFF TAPE 

NOP CHECK. 

CLA S4V2 ADJUST 

ADD S4K2 TAPE 

STO S4V2 POSITION 

CPY -#2 

TXI S48*0»- VALUE OF (2) STORED HERE 

TSX 4*4 END OF FILE 0CCURRED»DI AGNOSTIC 

SXD S405»4 

TSX S406»4 CHECK REDUNDANCY BITS 

LXD S405*4 

TRA S+9 

TIX S46»2»l COUNT NO. OF WORDS CPYED. 

CPY S4V4 COPY OUT TO 

TRA S409 END OF RECORD. 

TSX 4.4 ERRONEOUS END OF FILE.DIAGNOSTIC 

SXD S405*4 CHECK REDUNDANCY BITS 

TSX S406*4 

LXD S405»4 

TRA S4 

IOD 

RTT 

TRA S402 TRY AGAIN 

SXD TPCTfO RESETS REPEAT COUNT 

TRA 1*4 RETURN 

BST TAPE PREPARE TO READ AGAIN 

LXD TPCT.2 FIVE TIMES 

TXI S402A»2»1 

SXD TPCT*2 

TXL S402B»2*4 GO ON 

TSX 4*4 NO G0OD»DI AGNOSTIC 

LXD S407*2 RESET INDEX 

RTB TAPE 

LXD S405»4 

TXI S46*0»- RETURN ADDR. STORED HERE „„™e 

THE S5 SUBROUTINE LOADS EN1»2*3 FROM THE ENTRANCE CONDITIONS 
OF THE ENTRY BB IN A REGION WHEN THE REGION IS ENCOUNTERED 
IN LPLST. IN ADDITION. THE PERMUTATION OF INDEX REGISTERS I 
THE REGION PROVIDING THE BEST MATCH BETWEEN IR1.2.3 AND 
EN1»2»3 IS LEFT IN CELLS INI. 2. 3 AND EN4»5»6 BY S5. 55 USES 
S1*S111»S6»S7»S9* AS SUBROUTINES. 

SXD S5V1«4 STORE RETURN INDEX 



F5G09190 
F5G09200 
F5G09210 
F5G09220 
F5G09230 
F5G09240 
F5G09250 
F5G09260 
F5G09270 
F5G09280 
F5G09290 
F5G09300 
F5G09310 
F5G09320 
F5G09330 
F5G09340 
F5G09350 
F5G09360 
F5G09370 
F5G09380 
F5G09390 
F5G09400 
F5G09410 
F5G09420 
F5G09430 
F5G09440 
F5G09450 
F5G09460 
F5G09470 
F5G09480 
F5G09490 
F5G09500 
F5G09510 
F5G09520 
F5G09530 
F5G09540 
F5G09550 
F5G09560 
F5G09570 
F5G09580 
F5G09590 
F5G09600 
F5G09610 
F5G09620 
F5G09630 
F5609640 
F5G09650 
F5G09660 
F5G09670 
NF5G09680 
F5G09690 
F5G09700 
F5G09710 
F5G09720 



01246 





60100 





00474 




01247 





07400 


4 


01466 




01250 





50000 





00340 




01251 





53400 


2 


00343 




01252 





60100 


2 


00470 


S51 


01253 


2 


00001 


2 


01252 




01254 





53400 


1 


00342 




01255 





53400 


2 


00342 


S54 


01256 





50000 


1 


00473 




01257 





34000 





00336 




01260 





02000 





01262 




01261 





02000 





01427 




01262 





56000 


2 


00465 


S55 


01263 





16200 





01267 




01264 





34000 


2 


00430 




01265 





02000 





01267 




01266 





02000 





01433 




01267 


2 


00001 


2 


01262 


S56 


01270 


2 


00001 


1 


01255 


S57 


01271 





53400 


2 


00342 




01272 





53400 


1 


00342 


S510 


01273 





50000 


2 


00430 




01274 





34000 





00336 




01275 





02000 





01277 




01276 





02000 





01310 




01277 





56000 


2 


00^65 


S511 


01300 





16200 





01320 




01301 





34000 





00337 




01302 





02000 





01320 




01303 





02000 





01320 




01304 





50000 





00461 


S512 


01305 





40000 





00315 




01306 





60100 





00461 




01307 





02000 





01320 




01310 





50000 


1 


00470 


S513 


01311 





12000 





01317 




01312 





56000 





00337 




01313 





50000 


1 


00473 




01314 





04000 





01317 




01315 





07400 


4 


01443 




01316 





02000 





01320 




01317 


2 


00001 


1 


01310 


S537 


01320 


2 


00001 


2 


01272 


S514 


01321 





50000 





00460 




01322 


-0 


12000 





01327 




01323 





34000 





00341 




01324 





02000 





01327 




01325 





02000 





01343 




01326 





02000 





01366 




01327 





53400 


1 


00342 


S515 


01330 





53400 


2 


00342 


.5519 


01331 





50000 


1 


00470 




01332 





12000 





01340 





STO S5V2 STORE LOOP LIST QUANTITY 
TSX S9»4 GET THE ENTRANCE 

REQUIREMENTS 
CLA S5K3 , nc n _ A1 

LXA S5K6»2 STORE -OS IN THE COUNTER OF PHIS + OF REAL 
STO ENC+8»2 STORE -OS IN THE 
TIX S51»2»l REGISTERS. 
LXA S5K5tl SET INDEX FOR EN1»N=1 
LXA S5K5»2 SET INDEX FOR IR1» M EQUALS 1 
CLA EN1+3»1 
CAS S5K1 IS ENN EMPTY 
TRA S55 NO 
TRA S58 YES 
LDQ INl+3*2 NO 
TQP S56 IS IRM ASSIGNED 
CAS IR1+3.2 NOtlS C(ENM) *C( I RM) 
TRA S56 NO. 
TRA S59 YES. 

TIX S55t2»l NO. THRU WITH IRS 
TIX S54»ltl YES. THRU WITH ENS 
LXA S5K5t2 YESiSET INDEX FOR IR1»M*1 
LXA S5K5.1 SET INDEX FOR EN1#N=1 
CLA IRl+3»2 
CAS S5K1 IS IRM EMPTY 
TRA S511 NO 
TRA S513 YES 
LDQ INl+3t2 NO 
TQP S514 IS IRM ASSIGNED 
CAS S5K2 NOflS C(IRM)REAL 
TRA S514 NOt 
TRA S514 NOt 
CLA IRC INCREASE REAL 
ADD ONEA UNASSIGNED TAG 
STO IRC COUNTER. 
TRA S514 

CLA EN4+3tl HAS ENN 
TPL S537 BEEN ASSIGNED 
LDQ S5K2 NOtIS C(ENN) 
CLA EN1+3»1 REAL 
TLQ S537 
TSX S6t4 YEStMAKE IRM^ENN 

TRA S514 

TIX S513tltl ARE WE THRU WITH EN S 

TIX S510»2tl YESt ARE WE THRU WITH IRS 

CLA ENC YES. 

TMI S515 ARE THERE NO EMPTY ENS 

CAS S5K4 HOW MANY EMPTY ENS. 

TRA S515 3 OR 

TRA S520 2 EMPTY EN 

TRA S526 1 EMPTY EN 

LXA S5K5.1 3 OR EMPTY ENtN*l 

LXA S5K5t2 M*l 

CLA EN4+3*1 

TPL S516 ENN ASSIGNED 



F5G09730 
F5G09740 
F5G09750 
F5G09760 
F5G09770 
F5G09780 
F5G09790 
F5G09800 
F5G09810 
F5G09820 
F5G09830 
F5G09840 
F5G09850 
F5G09860 
F5G09870 
F5G09880 
F5G09890 
F5G09900 
F5G09910 
F5G09920 
F5G09930 
F5G09940 
F5G09950 
F5G09960 
F5G09970 
F5G09980 
F5G09990 
F5G10000 
F5G10010 
F5G10020 
F5G10030 
F5G10040 
F5G1O050 
F5G10060 
F5G 10070 
F5G10060 
F5G10090 
F5610100 
F5610110 
F5G10120 
F5G10130 
F5G10140 
F5G10150 
F5G10160 
F5G10170 
F5G10180 
F5G10190 
F5G10200 
F5G10210 
F5G10220 
F5G10230 
F5G10240 
F5G10250 
F5G10260 



oc 



u 



o 



o 



01333 
01334 
01335 
01336 
01337 
01340 
01341 
01342 
01343 
01344 
01345 
01346 
01347 
01350 
01351 
01352 
01353 
01354 
01355 
01356 
01357 
01360 
01361 
01362 
01363 
01364 
01365 
01366 
01367 
01370 
01371 
01372 
01373 
01374 
01375 
01376 
01377 
01400 
01401 
01402 
01403 
01404 
01405 
01406 
01407 
01410 
01411 
01412 
01413 
01414 
01415 
01416 
01417 
01420 



50000 
12000 
07400 
02000 
00001 
0000 1 
53400 
02000 
50000 
34000 
02000 
02000 
02000 
07400 
07400 
53400 
07400 
50000 
34000 
02000 
00001 
07400 
53400 
50000 
60100 
00001 
02000 
56000 
50000 
04000 
07400 
07400 
07400 
53400 
50000 
34000 
02000 



07400 4 



00001 
02000 
16200 
02000 
53400 
53400 
50000 
34000 
02000 
02000 
00001 
02000 
50000 
12000 
50000 
34000 



00465 
01337 
01443 
01340 
01333 
01330 
00473 
00001 
0C461 
00341 
01350 
01405 
01405 
01450 
00622 
00342 
01435 
00473 
00336 
01360 
01354 
01443 
00342 
00460 
00430 
01362 
01327 
00461 
00341 
01403 
01450 
00620 
01435 
00342 
00473 
00336 
01401 
01443 
01375 
01361 
01405 
01327 
00342 
00342 
00473 
00336 
01413 
01415 
01407 
01327 
00465 
01425 
00430 
00337 



S518 



S517 
S516 



S520 



S536 



S521 



S522 
S529 
S525 



S526 



S527 

S528 
S530 
S531 
S532 

S533 
S534 



CLA INl+3*2 N0»IRM 

TPL S517 ASSIGNED 

TSX S6*4 N0*MAKE IRM=IRN 

TRA S516 

TIX S518»2*l 

TIX S519*l.l 

LXD S5V1*4 

TRA 1*4 RETURN 

CAS S5K4 ARE THERE 3 REAL UNASSNED TAGS IN THE IRS 

TRA S536 

TRA S531 1*N0»G0 MATCH EMPTY ENS 

TRA S531 2*N0* WITH ANY REAL UNASS* IRS 

TSX S7*4 3* YES» TO COPY IRS» ETC. 

TSX Slt4 SELECT MOST REPLACEABLE WR* 

LXA 55K5*1 

TSX S595»4 

CLA EN1+3*1 IS EN 

CAS S5K1 EMPTY 

TRA S522 NO 

TIX S521»l«l INDEX COUNTER OF IR S 

TSX S6#4 MADE ENN * IRM 

LXA S5K5»1 

CLA IR4+3.1 REPLACE THE IRS 

STO IR1+3»1 

TIX S525»l«l 

TRA S515 

LDQ IRC 

CLA S5K4 ARE THERE 2 OR 3 REAL 

TLQ S530 UNASSNED TAGS 

TSX S7»4 YES*C0PY IRS 

TSX Slll*<f LOOK FOR LEAST REPLACEABLE I.R« 

TSX S595*4 

LXA S5K5..1 ASSIGN THE EMPTY 

CLA EN1+3.1 EN TO THE IR 

CAS S5K1 SELECTED 

TRA S528 

TSX S6»4 BY 

TIX S527*ltl Sill* 

TRA S529 

TOP S531 IS THERE ONE REAL TAG 

TRA S515 N0*G0 MATCH ARBITRARILY* 

LXA S5K5»1 SET COUNT TO 3»N=1 

LXA S5K5.2 SET COUNT TO 3.M=1 

CLA EN1+3*1 IS ENN 

CAS S5K1 EMPTY 

TRA S533 NO* 

TRA S534 YES* 

TIX S532»l»l NOtTHRU WITH ENS 

TRA S515 YES* 

CLA IN1+3.2 

TPL S535 

CLA IRl+3»2 NO 

CAS S5K2 IS C (IRM) REAL 



F5G10270 

F5G10280 

F5G10290 

F5G10300 

F5G10310 

F5G10320 

F5G10330 

F5G10340 

F5G1035O 

F5G10360 

F5G10370 

F5G10380 

F5G10390 

F5G10400 

F5G10410 

F5G10420 

F5G10430 

F5G10440 

F5G10450 

F5G10460 

F5G10470 

F5G10480 

F5G10490 

F5G1O5O0 

F5G10510 

F5G10520 

F5G10530 

F5610540 

F5G10550 

F5G10560 

F5G10570 

F5G10580 

F5G10590 

F5G10600 

F5G10610 

F5G10620 

F5G10630 

F5G10640 

F5G106S0 

F5G10660 

F5G10670 

F5G10680 

F5G10690 

F 56 10700 

F5G10710 

F5G10720 

F5G10730 

F5G10740 

F5G10750 

F5G10760 

F5G10770 

F5G10780 

F5G10790 

F5G10800 



01*21 





76100 





00000 




01422 





02000 





01425 




01423 





07400 


4 


01443 




01424 





02000 





01327 




01425 


2 


00001 


2 


01415 


S535 


01426 





02000 





01413 




©1427 





50000 





00460 


S58 


01430 





40000 





00315 




01431 





60100 





00460 




01432 





02000 





01270 




01433 





07400 


4 


01443 


S59 


01434 





02000 





01270 




01435 


-0 


53400 


2 


00430 


S595 


01436 





50000 


2 


00430 




01437 





34000 





01465 




01440 





02000 


4 


00001 




01441 





02000 





01361 




01442 





02000 


4 


00001 




01443 


-0 


75400 


1 


00000 


56 


01444 





60100 


2 


00465 




01445 


-0 


75400 


2 


00000 




01446 





60100 


1 


00470 




01447 





02000 


4 


00001 




01450 





53400 


1 


00342 


S7 


01451 





50000 


1 


00430 


S71 


01452 





60100 


1 


00460 




01453 





56000 


1 


00465 




01454 





16200 





01461 




01455 





34000 





00337 




01456 





76100 





00000 




01457 





02000 





01461 




01460 





02000 





01463 




01461 





50000 





01465 


S72 


01462 





60100 


1 


00430 




01463 


2 


00001 


1 


01451 


S73 


01464 





02000 


4 


00001 




01465 


♦000000777760 


S7K1 


01466 


-0 


63400 


4 


00476 


S9 


©1467 





07400 


4 


00070 




01470 





50000 


1 


12540 




01471 


-0 


73400 


2 


00000 




01472 





50000 


2 


05263 




01473 





60100 





00477 




01474 





53400 


2 


00342 




01475 





50000 


1 


12534 




01476 





60100 





00475 




01477 





50000 





00475 


S92 


01500 





77100 


2 


00003 




01501 





77100 


2 


00003 




01502 


-0 


32000 





00350 




01503 


-0 


73400 


4 


ooooo 




01504 


-0 


50000 





00477 




01505 


-0 


32000 


4 


00350 





NOP NO 

TRA S535 

TSX S6t4 YES 

TRA S515 

TIX S534*2*l NO 

TRA S533 

CLA ENC YESENM EMPTY 

ADD ONEA INCREASE COUNTER 

STO ENC OF NO. OF EMPTY ENS. 

TRA S57 

TSX S6*4 MAKE IRM=ENN 

TRA S57 

LXD IRR»2 

CLA IRl+3»2 

CAS S7K1 

TRA 1*4 

TRA S529 

TRA 1*4 

PXD 0*1 

STO INl+3»2 

PXD 0*2 

STO EN4+3»1 

TRA 1*4 

LXA S5K5»1 SET COUNT TO 3.M«1 

CLA IR1+3»1 COPY ASIDE CCIRM) 

STO IR4+3»1 

LDQ IN1+3»1 IRM ASSIGNED 

TOP S72 

CAS S5K2 NO* IS C(IRM) REAL 

NOP 

TRA S72 NO 

TRA S73 YES. 

CLA S7K1 NO*REPLACE C(IRM) 

STO IR1+3»1 BY IMPOSSIBLE TAG. 

TIX S71»l*l COUNT TO 3*M=M+1 

TRA 1*4 RETURN 

OCT 777760 IMPOSSIBLE TAG VALUE. 

THE S9 SUBROUTINE LOADS EN1»2*3. 
SXD S9V2»4 STORE RETURN INDEX. 
TSX SE*4 MAKE SURE BB IS IN C+M+ 
CLA BBB+5»1 GET AND 
PDX 0*2 STORE THE 
CLA REG»2 REGION 
STO S9V4 WORD+ 

LXA S5K5»2 SET COUNT TO 3*N*1 
CLA BBB+1*1 STORE THE WORD 
STO S9V1 CONTAINING THE PERMATATION NOS. 
CLA S9V1 EXTRACT THE N TH 
ARS 3*2 PERMUTATION NO. 
ARS 3»2 AND PUT IT 
ANA S9K3 IN 
PDX 0*4 INDEX 4. 
CAL S9V4 IS THIS 
ANA S9K2+3»4 AN EMPTY 



F5G10810 
F5G10820 
F5G10830 
F5G10840 
F5G10850 
F5G10860 
F5G10870 
F5G10880 
F5G10890 
F5G10900 
F5G10910 
F5G10920 
F5G10930 
F5G10940 
F5G10950 
F5G10960 
F5G10970 
F5G10980 
F5G10990 
F5G11000 
F5G11010 
F5G11020 
F5G11O30 
F5G11040 
F5G11050 
F5G11060 
F5611070 
F5G11080 
F5G11090 
F5G11100 
F5G11110 
F5G11120 
F5G11130 
F5G11140 
F5G11150 
F5G11160 
F5G11170 
F5611180 
F5G11190 
F5G11200 
F5G11210 
F5G11220 
F5G11230 
F5G11240 
F5G11250 
F5G11260 
F5G11270 
F5G11280 
F5G11290 
F5G11300 
F5G11310 
F5G11320 
F5G11330 
F5G 11340 



tf 



u 



u 



n 



01506 
01507 
01510 
01511 
01512 
01513 
01514 
01515 
01516 
01517 
01520 
01521 
01522 



01523 
01524 
01525 
01526 
01527 
01530 
01531 
01532 
01533 
01534 
01535 
01536 
01537 
01540 
01541 
01542 
01543 
01544 
01545 
01546 
01547 
©1550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 
01560 
01561 
01562 
01563 
01564 
01565 



10000 
50000 
60100 
77777 
00001 
53400 
02000 
50000 
77100 
34000 
02000 
50000 
02000 



63400 

32000 

56000 

04000 

07400 

50000 

73400 

50000 

60100 

50000 

60100 

53400 

50000 

77100 

77100 

32000 

73400 

50000 

32000 

10000 

50000 

60100 

50000 

76700 

60200 

77777 

00001 

53400 4 

02000 4 

50000 1 

32000 

34000 

02000 

50000 

02000 



01515 

00336 

00473 S94 

01512 

01477 S91 

00476 

00001 

12535 S93 

00022 

00336 

01510 

00333 

01510 



00501 SA 

00353 

00351 

00001 

00067 

12540 

00000 

05263 

00502 

12534 

00500 

00342 

00500 SA1 

00003 

00003 

00350 

00000 

00502 

00350 

01560 

00336 

00506 SA4 

00500 SA5 

00003 

00511 

01555 

01537 SA3 

00501 

00001 

12535 SA2 

00326 

00336 

01550 

00333 

01550 



CLA IsKl^EStSTORE EMPTINESS SYMBOL 

STO ENl+3»4 

TXI S91*l#-1 DOWN THE ENTR. INDEX 

TIX S92»2tl COUNT TO 3 

LXD S9V2»4 

TRA 1*4 RETURN 

CAL BBB+2»1 SET THE - r 

ARS 18 ENTRANCE REQUIREMENT* 

CAS S5K1 IS IT AN EMPTINESS SYMBOL 

TRA S94 NO, 

CLA LK1 YES»ST0RE E»iHASH SYMBOL). 

TRA S94 NO , 

THE SA SUBROUTINE LOADS EXl.2,3 AND ACT1,2,3 FROM EXIT 
CONDITIONS AND ACTIVITY BITS (PREFIX. WORD 2, BBB) OF THE 
EXIT BB IN A REGION* 

SXD SAV2,4 STORE RETURN INDEX. 

ANA SBK2 IF THIS IS AN IMPOSSIBLE BB . 

LDO SAK1 RETURN AT ONCE, DOING NOTHING 

TLQ 1*4 

TSX SE1»4 MAKE SURE BB IS IN CM. 

CLA BBB+5,1 GET AND 

PDX 0,2 STORE 

CLA REG»2 REGION 

STO SAV3 WORD. 

CLA BBB+1»1 GET AND STORE THE 

STO SAV1 WORD HAVING PERMUTATION NOS. 

LXA S5K5»2 SET COUNT TO 3»N=N+1 

CAL SAV1 PUT PERMUTATION 

ARS 3»2 NUMBER 

ARS 3*2 IN 

ANA S9K3 INDEX 4 

PDX 0,4 

CAL SAV3 IS THIS 

ANA S9K2+3*4 AN EMPTY 

TZE SA2 EXIT 

CLA S5K1 YES»ST0RE EMPTINESS SYMBOL. 

STO EXl+3»4 

CAL SAV1 STORE THE 

ALS 3»2 ACTIVE 

SLW ACTl+3,4 INDICATOR 

TXI SA3»1»-1 

TIX SA1»2»1 COUNT TO 3 

LXD SAV2»4 

TRA 1,4 RETURN 

CAL BBB+2»1 

ANA S3K4 IS THIS 

CAS S5K1 AN EMPTY SYMBOL 

TRA SA4 NO 

CLA LX.1 YES REPLACE BY E. 

TRA SA4 NO 

THE SB SUBROUTINE ENTERS A BIT IN PRED OR STAG TO REQUEST SX 
COMPILATION. THE APPROPRIATE ACTIVITY CELL AC1,2, OR 3 IS 
EXAMINED. IF IT IS NEGATIVE (ACTIVE INSTRUCTION IN A BB 



F5G11350 

F5G11360 

F5G11370 

F5G11380 

F5G11390 

F5G11400 

F5G11410 

F5G11420 

F5G11430 

F5G11440 

F5G11450 

F5G11460 

F5G11470 

F5G11480 

F5G11490 

F5G11500 

F5G11510 

F5GU520 

F5G11530 

F5G11540 

F5G11550 

F5G11560 

F5G11570 

F5G11580 

F5611590 

F5G11600 

F5G11610 

F5G11620 

F5G11630 

F5G11640 

F5G11650 

F5G11660 

F5G11670 

F 56 11680 

F5G11690 

F5G11700 

F5G11710 

F5G11720 

F5G11730 

F5G11740 

F5G11750 

F5G11760 

F5G11770 

F5G11780 

F5G11790 

F5G11800 

F5G11810 

F5G11820 

F5G11830 

F5611840 

F5G11850 

F5G11860 

F5G11870 

F5G11880 



01566 
01567 
01570 
01571 
01572 
01573 
01574 
01575 
01576 
01577 
01600 
01601 
01602 
01603 
01604 
01605 
01606 
01607 
01610 
01611 
01612 
01613 
01614 
01615 
01616 
01617 
01620 
01621 
01622 
01623 
01624 
01625 
01626 
01627 
01630 
01631 
01632 
01633 
01634 
01635 
01636 
01637 
01640 
01641 
01642 
01643 
01644 
01645 
01646 



-0 63400 

-0 63400 

50000 

12000 

-0 73400 

50000 

34000 

76100 

02000 

77100 

62100 

50000 

34000 

02000 

50000 

07400 

50000 

60100 

50000 

60200 

07400 

-0 50000 

-0 32000 

34000 

02000 

02000 

50000 

40000 

02000 

53400 

-0 50000 

77100 

77100 

-0 32000 

34000 

02000 

02000 

0OO01 

07400 

50000 

77100 

-0 60200 

02000 

-0 32000 

76500 

22100 

73400 

-0 50000 

76700 



00514 
00511 
00561 
01641 
00000 
05035 
00324 
00000 
01600 
00022 
00513 
05036 
00323 
01605 
04741 
00070 
12534 
00515 
12533 
00512 
00055 
15674 
00353 
00513 
01620 
01623 
00512 
00315 
01611 
00342 
00515 
00003 
00003 
00350 
00514 
01633 
01635 
01624 
00004 
00354 
00003 
15674 
01654 
00326 
00043 
00371 
00000 
00352 
00010 



ALREADY IN A REGION)* THE SX BIT IS PLACED IN PRED IN THE 
LINK OUT OF THE REGION. IF IT IS POSITIVE (ACTIVE INSTRUC. 
IN A BB IN THIS LPLST) » THE SX BIT IS PLACED IN THE STAG 
TABLE AT THE ACTIVE INSTRUCTION. THE APPROPRIATE AC1»2» OR 
IS ALSO TURNED OFF BY SB* * 

SB SXD SBV4.1 STORE INDEX OF ACTIVE I.R+ 

SXD 5BV1»4 STORE INDEX OF RETURN* 

CLA AC1+3»1 IS THE ACTIVE THING 

TPL SB1 AN INSTRUCTION 

PDX Oil NO 

CLA LPLST+S3P1»1 GET + STORE 

CAS S3K2 PRED. BB 

NOP 

TRA SB01 

ARS 18 NO 
SB01 STA SBV3 

CLA LPLST+S3P1+1»1 

CAS S3K1 END LOOP LIST SENTINEL 

TRA SB7 N0» 

CLA LPLST YES»SUCCESSOR IS 1ST ENTRY* 
SB7 TSX SE»4 NO»GET ADDR. OF 

CLA BBB+1»1 PRED. 

STO SBV5 STORE PERMUTATION NOSt 

CLA BBB»1 GET ADDR OF 1ST PRED. 
SB4 SLW SBV2 

TSX SE5»4 

CAL PRED#1 

ANA SBK2 

CAS SBV3 IS THIS THE RIGHT TRANSFER 

TRA SB2 NO 

TRA SB5 YES 

CLA SBV2 NO TRY NEXT PRED. 

ADD ONEA 

TRA SB4 

LXA S5K5.2 

CAL SBV5 SEARCH PERMUTATION 

ARS 3»2 NOS. FOR THE INDEX 

ARS 3*2 STORED IN SBV4 

ANA S9K3 

CAS SBV4 IS THIS PERMUTATION NO. 

TRA SB8 NO EQUAL TO THE ACTIVE 

TRA SB9 YES IR 
SB8 TIX SB00#2*1 NO 

TSX 4*4 DIAGNOSTICtERROR 
SB9 CLA SBK3 GENERATE NO STORE 

ARS 3#2 THE 

ORS PRED.l SX FIT IN 

TRA SB6 PRED* TABLE. 
SB1 ANA S3K4 

LRS 35 COMPUTE NO. OF WORD IN 

DVP XK9 STAG AND POSITION OF SX 

PAX 0#2 FIT IN WORD. 

CAL SBK1 GENERATE 

ALS 8*2 THE BIT 



SB2 



SB5 
SBOO 



F5G11890 
F5G11900 
F5G11910 
3F5G11920 
F5G11930 
F5G11940 
F5G11950 
F5611960 
F5G11970 
F5G11980 
F5G11990 
F5G120OO 
F5G12010 
F5G12020 
F5G12030 
F5G12040 
F5G12Q50 
F5G12060 
F5G12070 
F5G12080 
F5G12090 
F5G12100 
F5G 12110 
F5G12120 
F5G12130 
F5G12140 
F5G12150 
F5G12160 
F5G12170 
F5G12180 
F5G12190 
F5G122O0 
F5G12210 
F5G12220 
F5G12230 
F5612240 
F5G12250 
F5G12260 
F5G12270 
F5G12280 
F5G12290 
F5G12300 
F5G12310 
F5G12320 
F5G12330 
F5G12340 
F5G12350 
F5G12360 
F5G12370 
F5G12380 
F5G 12390 
F5G12400 
F5G12410 
F5G12420 



i" 



u 



u 



r) 



01647 60200 00512 



01650 
01651 
01652 
01653 
01654 
01655 
01656 
01657 
01660 



76300 
07400 
50000 
60200 
50000 
53400 
60100 
53400 
02000 



01661 
01662 
01663 
01664 
01665 
01666 
01667 
01670 
01671 
01672 
01673 
01674 
01675 
01676 
01677 
01700 
01701 
01702 
01703 
01704 
01705 
01706 
01707 
01710 
01711 
01712 
01713 
©1714 
01715 
01716 
01717 



50000 
10000 
63400 
63400 
62200 
50000 
40200 
40000 
10000 
50000 
12000 
53400 
50000 
34000 
02000 
02000 
02000 
40200 
34000 
02000 
02000 
53400 
50000 
34000 
02000 
02000 
34000 
76100 
02000 
02000 
53400 



00043 

00032 

00512 

05263 

00314 SB6 

#0514 

00561 

00511 

00001 



00561 SC 

00001 

00516 

01736 

00520 

00520 

00316 

00440 

01674 

00521 

00001 

00520 SC40 

05035 

00324 

01721 

01721 

01734 

00316 SC4 

00440 

01706 

01725 

00520 SC2 

05035 

00323 

01713 

01732 

00324 SC3 

00000 

01717 

01734 

01736 SC04 



SLW SBV2 TO 
STORE* 
LLS 35 6ET NO* OF WORD OUT OF MQ* 
TSX SE4*4 MAKE SURE THE WD IS IN C*M* 
CAL SBV2 
ORS STAG*1 
CLA ZERO SET IR 

LXD SBV4»1 TO $ * 

STO AC1+3»1 NOT ACTIVE. 
LXD SBV1*4 RE- 

THE SC SUBROUTINE HANDLES THE PROBLEM OF AN ACTIVE INDEX 
REGISTER WITH NO SUBSEQUENT LX IN THE PRESENT REGION* THIS 
POSTPONES THE NECESSITY OF AN SX UNTIL A LATER LX IS FOUND. 
THE ACTIVITY IS TRANSFERRED FROM AC1.2.3 TO PREFIX, WORD 2t 
BBS TABLE FOR ALL BB.S DURING WHICH INDEX REGISTER IS ACTIVE 
THIS PERPETUATION OF ACTIVITY WHEN NOT TURNED OFF DURING THE 
TREATMENT OF THE SAME LPLST IN WHICH IT AROSE IS CALLED MARK 
ING A SECTION OF LPLST ACTIVE* ALL BB»S BETWEEN THE ORIGIN 
OF THE ACTIVITY AND THE PRESENT POINT OF LPLST WHEN SC IS 
ENTERED ARE MARKED ACTIVE* AND THE DESIGNATED AC1»2»3 IS 
TURNED OFF* SD IS USED AS A SUBROUTINE* DOING THE ACTUAL 
MARKING OF BB*S ACTIVE* 

CLA AC1+3.1 IS IR 

TZE 1*4 ACTIVE 

SXD SCV1*4 YES*STORE RETURN 

SXD SC9*1 AND INDEX OF ACTIVE I.R+ 

STD SCV3 STORE INDEX OF LOOP LIST. 

CLA SCV3 IS THIS THE CURRENT 

SUB ONED 

SBM S3V4 IS THIS THE CURRENT LPLST INDEX 

TNZ SC40 
CLA ACIND 
TPL 1*4 
LXD SCV3*2 



YES 

IS THIS THE ACTIVE PASS 

YES 



CLA LPLST+S3PU2 



NO 

YES 

IS THIS CURRENT 

LOOP LIST INDEX 



CAS S3K2 

TRA SC02 

TRA SC02 

TRA SC8 

SUB ONED 

CAS S3V4 

TRA SC2 NO* 

TRA SC5 YES* 

LXD SCV3*2 NO* 

CLA LPLST+S3P1»2 

CAS S3K1 IS IT END LOOP LIST 

TRA SC3 NO* 

TRA SC6 YES* 

CAS S3K2 NO»IS IT A 

NOP NO » 

TRA SC04 

TRA SC8 YES* 

LXD SC9»2 



IS 1ST AACTIVE QUANTITY A BB 



BB 



NO* PUT INDEX OF ACTIVE IR 



F5612430 
F5G12440 
F5G12450 
F5G12460 
F5G12470 
F5G12480 
F5G12490 
F5G12500 
F5G12510 
F5G12520 
F5G12530 
F5G12540 
F5G12550 
F5G12560 
F5G12570 

•F5G12580 
F5G12590 

-F5G12600 
F5G12610 
F5G12620 
F5G12630 
F5612640 
F5G12650 
F5G12660 
F5G12670 
F5G12680 
F5G12690 
F5G12700 
F5612710 
F5G12720 
F5G12730 
F5G12740 
F5G12750 
F5G12760 
F5G12770 
F5G12780 
F5G12790 
F5G12800 
F5G12810 
F5G12820 
F5G12830 
F5G12840 
F5G12850 
F5G12860 
F5G12870 
F5G12880 
F5G12890 
F5G12900 
F5G12910 
F5G12920 
F5G12930 
F5G12940 
F5G12950 
F5G12960 



#' 



01720 





07400 


4 


01753 




TSX 


01721 





50000 





00520 


SC02 


CLA 


01722 





40200 





00316 




SUB 


01723 





62200 





00520 


SC7 


STD 


01724 





02000 





01702 




TRA 


01725 


-0 


53400 


1 


01736 


SC5 


LXD 


01726 





50000 





00314 




CLA 


01727 





60100 


1 


00561 




STO 


01730 


-0 


53400 


4 


00516 




LXD 


01731 





02000 


4 


00001 




TRA 


01732 





50000 





00325 


SC6 


CLA 


01733 





02000 





01723 




TRA 


01734 





07400 


4 


00070 


SC8 


TSX 


01735 


-0 


63400 


1 


00517 




SXD 


01736 


1 


00000 


1 


01737 


SC9 


TXI 


01737 





50000 


1 


12540 


SC01 


CLA 


01740 


-0 


32000 





00326 




ANA 


01741 


-0 


53400 


2 


01736 




LXD 


01742 





34000 


2 


00430 




CAS 


01743 





02000 





01721 




TRA 


01744 





02000 





01746 




TRA 


01745 





02000 





01721 




TRA 


01746 


-0 


50000 





00340 


SC03 


CAL 


01747 





77100 


2 


00003 




ARS 


01750 


-0 


53400 


1 


00517 




LXD 


01751 


-0 


60200 


1 


12534 




ORS 


01752 





02000 





01721 




TRA 


01753 


-0 


63400 


2 


00523 


SD 


SXD 


01754 


-0 


63400 


4 


00522 




SXD 


01755 





07400 


4 


00070 




TSX 


01756 





50000 


1 


12540 




CLA 


01757 


-0 


73400 


1 


00000 




PDX 


01760 





50000 


1 


05263 




CLA 


01761 





07400 


4 


00070 




TSX 


01762 


-0 


63400 


1 


00525 


SD7 


SXD 


01763 





50000 


1 


12534 




CLA 


01764 





60100 





00524 




STO 


01765 





53400 


2 


00342 




LXA 


01766 


-0 


50000 





00524 


SD3 


CAL 


01767 





77100 


2 


00003 




ARS 


01770 





77100 


2 


00003 




ARS 


01771 


-0 


32000 





00350 




ANA 


01772 





34000 





00523 




CAS 


01773 





02000 





01775 




TRA 


01774 





02000 





02000 




TRA 


01775 


1 


77777 


1 


01776 


SD1 


TXI 


01776 


2 


00001 


2 


01766 


SD2 


TIX 


01777 





07400 


4 


00004 




TSX 


02000 


-0 


50000 


1 


12535 


S04 


CAL 


02001 


-0 


32000 





00326 




ANA 


02002 


-o 


53400 


4 


00523 




LXD 


02003 


-0 


53400 


1 


00525 




LXD 


02004 


Q 


34000 


4 


00430 




CAS 


02005 





02000 





02007 




TRA 



SD»4 IN 2. GO TO RECORD REGION ACTIVE. 

SCV3 PREPARE TO GET 

ONED NEXT 

SCV3 LOOP LIST QUANTITY. 

SC4 

SC9»1 

ZERO RECORD I.R. NOT 

AC1+3>1 ACTIVE ANYMORE. 

SCVlt* ^ 

1*4 RETURN. 

S3K3 ARRANGE TO GET 1ST LPLST QUANTITY 

SC7 QUANTITY NEXT. 

SE*4 

SCV2.1 GET INDEX OF BB 

SCQ1»1»0 INCREASE INDEX BY INDEX OF OCT. I.R. 

BBB+5*1 GET THE 

S3K4 EXIT CONDITION. 

SC9*2 IS EXIT COND. SAME 

IRl+3*2 AS TAG IN ACTIVE I.RH 

SC02 N0» 

SC03 YES* 

SC02 NO* 

S5K3 RECORD THAT BB IS 

3*2 ACTIVE 

SCV2»1 WO THIS 

BBB+1.1 I+R. 

SC02 

SDV2*2 

SDV1»4 STORE RETURN. 

SE»4 GET INDEX OF BB 

BBB+5*1 GET 

0*1 REGION 

REG*1 WORD. 

SE*4 GET BB INDEX. 

SDV4»1 

BBB+1»1 STORE 

SDV3 AWAY THE PERMUTATION NOS. 

S5K5*2 SET COUNT TO 3»N*1 

SDV3 IS 

3*2 PERMUTATION NO. 

3*2 

S9K3 N EQUAL 

SDV2 TO I.R. INDEX 

SD1 NO 

SD4 YES 

SD1+1»1*-1 NO 

SD3.2.1 COUNT TO 3 

4*4 

BBB+2»1 

S3K.4 IS TAG IN 

SDV2.4 EXIT CONDITION 

SDV4*1 SAME AS IN ACTIVE I.R. 

IRl+3*4 

SD5 NO 



F5G12970 
F5612980 
F5G12990 
F5G 13000 
F5G13010 
F5G13020 
F5G13030 
F5G13040 
F5G13050 
F5G13060 
F5G13070 
F5G13080 
F5G13090 
F5G13100 
F5G13110 
F5G13120 
F5G13130 
F5G13140 
F5G13150 
F5G13160 
F5G13170 
F5G13180 
F5G13190 
F5G132O0 
F5G13210 
F5G13220 
F5G13230 
F5613240 
F5G13250 
f 9613260 
F5G13270 
F5G13280 
F5G13290 
F5G13300 
F5G13310 
F5G13320 
--F5G13330 
F5G13340 
F5G13350 
F5G13360 
F5G13370 
F5G13380 
F5G13390 
F5G13400 
F5G13410 
F5G13420 
F5G13430 
F5G13440 
F5G13450 
F5G13460 
F5G 13470 
F5G13480 
F5G13490 
F5G13500 



w 



o 



U 



02006 
02007 
02010 
02011 
02012 
02013 
02014 
02015 
02016 
02017 
02020 
02021 
02022 
02023 



02024 
02025 
02026 
02027 
02030 
02031 
02032 
02033 
02034 
02035 
02036 
02037 
02040 
02041 



02000 

-0 50000 

-0 32000 

34000 

02000 

02000 

07400 

f0 02000 

-0 53400 

02000 

-0 50000 

O 77100 

-0 60200 

02000 



50000 
34000 
02000 
02000 
34000 
02000 
02000 
02000 
50000 
60100 
53400 
00001 
63400 
02000 



02042 
02043 
02044 
02045 
02046 
02047 
02050 
02051 
02052 
02053 
02054 
02055 
02056 
02057 
02060 
02061 
02062 
02063 
02064 
02065 
02066 



-0 63400 
56000 

-0 60000 
50000 
07400 
50000 

-0 73400 
53400 
50000 

-0 73400 

-0 50000 
76700 

-0 32000 
77100 

-0 60200 

-0 50000 
77100 

-0 32000 
76700 

-0 60200 
2 00001 



02020 

12540 SD5 

00353 

00353 

02014 

02016 

00067 SD6 

01762 

00522 SD8 

00001 

00340 SD9 

00003 

12534 

02007 



00442 SF 

00322 

02030 

02034 

00373 SF1 

00001 

02034 

00001 

00571 SF4 

00526 

00440 

02040 

00526 SF5 

00002 



00530 SG 

00315 

00531 

00444 

00070 

12540 

00000 

00342 

00470 SGI 

00000 

05263 

00003 

00340 

00003 

00531 

05263 

00003 

00405 

00003 

00531 

02052 



TRA S09 YES* IS 

CAL BBB+5»1 NO THIS LAST 

ANA SBK2 BB 

CAS 5BK2 IN REGION 

TRA SD6 NO 

TRA SD8 YES 

TSX SE1»4 NO 

TRA SD7 

LXD SDV1»4 RETURN 

TRA 1*4 

CAL S5K3 RECORD THIS BB 

ARS 3*2 ACTIVE 

ORS BB8+1»1 WO THIS IR 

TRA SD5 

THE SF SUBROUTINE FORMS APPROPRIATE AC1»2*3 ENTRY WHEN AN 

ACTIVE INSTRUCTION IS ENCOUNTERED. 
CLA TPE IS THIS 
CAS S2K2 AN LX 
TRA SF1 NO* 
TRA SF4 YES* 

CAS XK12 NO. IS IT AN ACTIVE INSTR 
TRA 1*4 NO RETURN 
TRA SF4 YES» 
TRA 1*4 NO 

CLA XV5 FORM QUANTITY TO 
STO SFV1 BE PUT 
LXD S3V4»2 INTO 
TXI SF5*2*1 ACTIVE 
SXD SFV1»2 INDICATOR 

TRA 2*4 

PERMUTE THE PHI AND LX BITS SUBROUTINE 
THE SG SUBROUTINE PERMUTES AS INDICATED BY EN4*5*6 ON A REG 
ENTRY. 

SAVE RETURN 

SET NEW LX AND PHI BITS TO ONEA 



SXD SGV1»4 
LDO ONEA 
STQ SGV2 
CLA S3V5 
TSX SE»4 
CLA BBB+5»1 
PDX 0*2 
LXA S5K5»4 
CLA EN4+3»4 
PDX 0*1 
CAL REG*2 
ALS 3*4 
ANA S5K3 
ARS 3*1 
ORS SGV2 
CAL REG*2 
ARS 3*4 
ANA XK23 
ALS 3*1 
ORS SGV2 
TIX SG1»4»1 



GET INDEX OF REGION WORD 



SET COUNT TO 3 
FIND INDEX OF IR 

PERMUTE THE LX BIT 



PERMUTE THE PHI BIT 



COUNT TO 3 



F 5613510 

F5G13520 

F5G13530 

F5G13540 

F5G13550 

F5G13560 

F5G13570 

F5G13580 

F5G13590 

F5G13600 

F5G13610 

F5G1362C 

F5G13630 

F5G1364Q 

F5G13650 

F5G13660 

F5613670 

F5G13680 

FSG13690 

F5G137O0 

F5G13710 

F5G13720 

F5G13730 

F5G13740 

F5G13750 

F5G13760 

F5G13770 

F5G13780 

F5G 13790 

F5G13800 

F5G13810 

F5G13820 

F5G13830 

F5G13840 

F5G13850 

F5G 13860 

F5G13870 

F5G 13880 

F5G 13890 

F5G13900 

F5G13910 

F5G13920 

F5613930 

F5G13940 

F5G13950 

F5G13960 

F5G13970 

F5G13980 

F5G13990 

F5G14000 

F5G14010 

F5G14020 

F5G14030 

F5G14040 



/■/ 



02067 
02070 
02071 
02072 
02073 
02074 



02075 
02076 
02077 
02100 
02101 
02102 
02103 
02104 
02105 
02106 
02107 
02110 
02111 
02112 
02113 
02114 
02115 
02116 
02117 
02120 
02121 
02122 
02123 
02124 
02125 
02126 
02127 
02130 
02131 
02132 
02133 
02134 
02135 



02136 
02137 
02140 
02141 
02142 
02143 
02144 
02145 
02146 
02147 
02150 



50000 
32000 
50100 
60200 
53400 
02000 



63400 

56000 

60000 

60100 

07400 

50000 

60100 

50000 

62100 

50000 

40000 

07400 

50000 

62100 

50000 

34000 

02000 

02000 

07400 4 

50000 

34000 

02000 

76100 

02000 

60100 

50000 

60100 

50000 

40000 

62100 

02000 

53400 

02000 



05263 
00303 
00531 
05263 
00530 
00001 



00537 Fl 

00314 

00544 

00545 

00067 

12540 

00547 

12533 

00540 

00545 

00315 

00067 

12533 

00541 

00540 

00541 F4 

02117 

02134 

00055 F2 

15674 

00544 

02125 

00000 

02130 

00544 F92 

00540 

00546 

00540 F3 

00315 

00540 

02114 

00537 F5 

00001 



63400 
56000 
60000 
60100 
07400 
50000 
60100 
50000 
62200 
50000 
40000 



00537 F30 

00314 

00544 

00545 

00070 
1 12540 
00547 

12533 

00542 

00545 

00316 



CAL REG»2 

ANA SEK4 

ORA SGV2 

SLW REG>2 

LXD SGV1*4 RETURN 

TRA lt4 

THE Fl SUBROUTINE FINDS THE HIGHEST 
A GIVEN BB AND STORES IT IN FV 101. 

SXD FV6»4 STORE RETURN 

LDQ ZERO SET HIGHEST 

STQ FV101 FREQ. TO 0» 

STO FV102 STORE BB N0+ 

TSX SE1»4 GET INDEX OF BB 

CLA 8BB+5tl STORE REGION 

STO FV104 NO. WORD. 

CAL BBB#1 GET PRED. 

STA FV7 NO. AND STORE IT 

CAL FV102 GET AND STORE 

ADD ONEA FIRST PRED. IN 

TSX SE1»4 NEXT B.B. 

CLA BBB»1 

STA FV8 

CLA FV7 IS THIS PRED. 

CAS FV8 IN SAME BB 

TRA F2 

TRA F5 NO 

TSX SE5>4 GET INDEX OF PRED 

CLA PREDtl 

CAS FV101 IS THIS FREQ. GREATER 

TRA F92 

NOP 

TRA F3 NO 

STO FV101 STORE NEW MAX. 

CLA FV7 STORE NEW 

STO FV103 PRED. NO. 

CLA FV7 ARRANGE TO 

ADD ONEA CONSIDER NEXT PRED. 

STA FV7 

TRA F4 

LXD FV6»4 

TRA 1*4 RETURN 

THE F30 SUBROUTINE FINDS THE HIGHEST 
A GIVEN BB AND STORES IT IN FV 101. 

SXD FV6#4 

LDQ ZERO SET HIGHEST FREQH 

STQ FV101 TO 0. 

STO FV102 STORE BB NO. 

TSX SEt4 

CLA BBB+5»1 

STO FV104 

CAL BBB»1 GET SUCC. NO. 

STD FV9 AND STORE IT 

CAL FV102 GET AND STORE 

ADD ONED SUCC. 



F5G14050 
F5G14060 
F5G14070 
F5G14080 
F5G14090 
F5G14100 
FREQUENCY PRED ENTRY FOR F5G14110 

F5G141Z0 
F5G14130 
F5G14140 
F5G14150 
F5G14160 
F5G14170 
F5G14180 
F5G14190 
F5G14200 
F5G14210 
F5G14220 
F5G14230 
F5G14240 
F5G14250 
F5G14260 
F5G14270 
F5G14280 
F5G 14290 
F5G14300 
F5G14310 
F5G14320 
F5G14330 
F5G14340 
F5G14350 
F5G14360 
F5G 14370 
F5G14380 
F5G14390 
F5G14400 
F5G14410 
F5G14420 
F5G 14430 
F5G14440 
F5G14450 
FREQUENCY SUCC ENTRY FORF5G14460 

F5G14470 
F5G14480 
F5G14490 
F5G14500 
F5G14510 
F5G14520 
F5G14530 
F5G14540 
F5G14550 
F5G14560 
F5G14570 
F5G14580 



,i 



u 



o 



02151 
02152 
02153 
02154 
02155 
02156 
02157 
02160 
02161 
02162 
02163 
02164 
02165 
02166 
02167 
02170 
02171 
02172 
02173 
02174 
02175 
02176 
02177 
02200 
02201 
02202 
02203 
02204 
02205 
02206 
02207 
02210 
02211 
02212 
02213 
02214 
02215 
02216 
02217 
02220 
02221 
02222 
02223 
02224 
02225 
02226 
02227 
02230 
02231 
02232 
02233 
02234 
02235 
02236 



07400 
50000 
62200 
50000 
34000 
02000 
02000 
07400 
50000 
34000 
02000 
76100 
02000 
60100 
50000 
60100 
50000 
40000 
62200 
02000 
53400 
02000 
50000 
60100 
60100 
60100 
50000 
07400 
50000 
34000 
02000 
76100 
02000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
50000 
40000 
60100 
40200 
40000 
10000 
76000 
07400 
50000 
10000 
02000 
50000 
10000 
73400 



00070 
12533 
00543 
00542 
00543 
02160 
02175 
00044 
16734 
00544 
02166 
00000 
02171 
00544 
00542 
00546 
00542 
00316 
00542 
02155 
00537 
00001 
00314 
00550 
00532 
00536 
00536 
02075 
00544 
00532 
02212 
00000 
02221 
00532 
00545 
00533 
00546 
00534 
00547 
00535 
00536 
00315 
00536 
17774 
00315 
02203 
00012 
00004 
00532 
02234 
00030 
00535 
02245 
00000 



F31 
F32 

F93 
F33 

F34 
F 

F7 



F85 



F6 



F86 



F86A 



TSX SE#4 NO. 

CLA B8B»1 OF 1ST SUCC. 

STD FV10 IN NEXT BB 

CLA FV9 

CAS FV10 IS SUCC IN SAME BB 

TRA F32 

TRA F34 NO. 

TSX SE6»4 GET INDEX OF SUCC* 

CLA SUCC»1 

CAS FV101 IS THIS FREQ. GREATER 

TRA F93 

NOP 

TRA F33 NO 

STO FV101 STORE NEW MAX. 

CLA FV9 STORE NEW 

STO FV103 SUCC. NO. 

CLA FV9 ARRANGE TO CONSIDER 

ADD ONED NEXT SUCC. 

STD FV9 

TRA F31 

LXD FV6#4 

TRA 1»4 RETURN 

CLA ZERO SET INDICATOR TO SAY 

STO LPIND THIS ISNT A LOOP. 

STO FV1 SET HIGHEST FREQ. TO 0. 

STO FV5 SET TO CONSIDER OTH BB 

CLA FV5 

TSX Fl*4 FIND MOST FREQ. UNCONSIDERED TRANSFER 

CLA FV101 IS IT GREATER THAN 

CAS FV1 PREVIOUS MAXIMUM 

TRA F85 

NOP 

TRA F6 N0+ 



STO FV1 



REPLACE PREV. MAX. 



CLA FV102 AND BB NO. 

STO FV2 

CLA FV103 AND PRED. NO. 

STO FV3 

CLA FV104 AND REGION NO. WORD. 

STO FV4 

CLA FV5 ARRANGE TO CONSIDER NEXT 

ADD ONEA B.B. 

STO FV5 

SUB KEYS 

ADD ONEA 

TNZ F7 WAS THIS THE LAST BB 

OCT YES» IF ANY DIVIDE CHECKS GO 

TSX 4*4 TO DIAGNOSTIC. 

CLA FV1 NO DVD CHECKS* WERE THERE ANY 

TNZ F86A UNCONSIDERED PREDS 

TRA R NOtCONTlNUE PROGRAM. PART I DONE. 

CLA FV4 YES 

TZE F9 IS THIS A REGION ALREADY 

PDX 0*1 YES. 



F5G14590 

F5G14600 

F5G14610 

F5G14620 

F5G 14630 

F5G14640 

F5G14650 

F5G14660 

F5G14670 

F5G14680 

F5G14690 

F5G14700 

F5G14710 

F5G14720 

F5614730 

F5G14740 

F5G14750 

F5G14760 

F5G14770 

F5G14780 

F5G14790 

F5G14800 

F5G14810 

F5G14820 

F5G14830 

F5G14840 

F5G14850 

F5G14860 

F5G14870 

F5G14880 

F5G14890 

F5G14900 

F5G14910 

F5G14920 

F5614930 

F5G14940 

F5G14950 

F5G14960 

F5G14970 

F5G14980 

F5G14990 

F5G15000 

F5G15010 

F5G15020 

F5G15030 

F5G15040 

F5G1505O 

F5G15060 

F5G15070 

F 5615080 

F5G15090 

F5G15100 

F5G15110 

F5G15120 



;/ 



02237 





50000 


1 


05263 




CLA 


02240 


-0 


32000 





00360 




ANA 


02241 





10000 





02244 




TZE 


02242 





50000 





00356 




CLA 


02243 





02000 





02245 




TRA 


02244 





50000 





00357 


F8 


CLA 


02245 





60100 





05033 


F9 


STO 


02246 





50000 





00533 




CLA 


02247 





76700 





00022 




ALS 


02250 





62200 





05033 




STD 


02251 





50000 





00350 




CLA 


02252 





62200 





02270 




STD 


02253 





50000 





00532 


F23 


CLA 


02254 





07400 


4 


00067 




TSX 


02255 





50000 


1 


12540 




CLA 


02256 





10000 





02611 




TZE 


02257 


-0 


73400 


2 


00000 




PDX 


02260 





50000 


2 


05263 




CLA 


02261 





60100 





00535 




STO 


02262 


-0. 


32000 





00360 




ANA 


02263 





10000 





02603 




TZE 


02264 





53400 


1 


00341 




LXA 


02265 





50000 


1 


05035 


F12 


CLA 


02266 


1 


00001 


1 


02267 




TXI 


02267 


-0 


63400 


1 


02412 


F25 


SXD 


02270 


3 


00000 


1 


02321 


Fll 


TXH 


02271 





34000 





00324 




CAS 


02272 





76100 





00000 




NOP 


02273 





02000 





02275 




TRA 


02274 





02000 





02265 




TRA 


02275 





07400 


4 


00070 


F87 


TSX 


02276 





50000 


1 


12540 




CLA 


02277 


-0 


73400 


1 


00000 




PDX 


02300 





50000 


1 


05263 




CLA 


02301 


-0 


53400 


1 


02412 




LXD 


02302 





34000 





00535 




CAS 


02303 





02000 





02265 




TRA 


02304 





02000 





02306 




TRA 


02305 





02000 





02265 




TRA 


02306 





50000 





00532 


F100 


CLA 


02307 





62100 


1 


05036 




STA 


02310 


2 


00001 


1 


02311 


F13 


TIX 


02311 


-0 


53400 


2 


02270 


F24 


LXD 


02312 


-o 


63400 


1 


02412 


F43 


SXD 


02313 





56000 





00323 




LDQ 


02314 


-0 


60000 





00550 




STQ 


02315 


2 


00001 


2 


02316 




TIX 


02316 





07400 


4 


02407 


F14 


TSX 


02317 





07400 


4 


02651 




TSX 


02320 





02000 





02717 




TRA 


02321 





50000 





00356 


F19 


CLA 


02322 


-0 


53400 


1 


02270 




LXD 


02323 





60100 


1 


05035 




STO 


02324 





50000 





00532 




CLA 



REG»1 GET REGION WORD. 

FK3 

F8 IS IT AN OPAQUE REGION 

FKl NQ»GET TRANSPARENT REGION MARKER* 

F9 

FK2 GET OPAQUE REGION MARKER. 

LPLST+S3P1-2 , 

FV2 STORE THE REGION MARKER - 

18 AT END OF LPLST. 

LPLST+S3P1-2 

S9K3 INITIALIZE THE STORING 

Fll POSITION IN LPLST. 

FV1 GET INDEX 

SE1*4 OF BB UP FOR ENTRY. 

BBB+5»1 IS THIS BB IN 

F57 A REGION 

0»2 YES 

REG»2 GET AND STORE 

FV4 REGION WORD 

FK3 

F55 IS IT AN OPAQUE REGION 

S5K4»1 N0# TRANSPARENT 

LPLST+S3P1#1 ^ 

F25»l»l STORE INDEX OF LPLST QUANTITY BEING COMPARED. 

F18»l 

F19tl»K ARE WE THRU WITH COMPARISONS 

S3K2 NO»IS THIS BB ENTRY 

F87 

F12 YES. 

SE,4 GET INDEX OF BB 

BBB+5»1 GET 

0*1 REGION 

REG»1 WORD. 

F18*l 

FV4 IS THIS THE SAME REGION 

F12 NO 

F100 

F12 NO 

FV1 PUT EXIT BB NO. 

LPLST+S3P1+1*1 IN TR. REG. QUANTITY 

F24,l»l GENERATE INDEX OF LAST THING TO BE MOVED UP. 

Fll»2 GET INDEX TO GENERATE INDEX OF 1ST THING 

F18.1 STORE INDEX OF LAST THING 

S3K1 RECORD 

LPIND LOOP. 

F14»2»l GENERATE INDEX OF 1ST THING 

F15t4 GO TO MOVE LPLST QUANTITIES UP+ 

F80»4 

L TO 1ST LXING PASS. 

FKl 

Flltl STORE TRANSPARENT 

LPLST+S3P1»1 REGION MARKER 

FV1 



F5G15130 

F5G15140 

F5G15150 

F5G15160 

F5G15170 

F5G15180 

F5G15190 

F5G15200- 

F5G15210 

F5G15220 

F5G15230 

F5G15240 

F5G15250 

F5G15260 

F5G15270 

F5G15280 

F5G15290 

F5G15300 

F5G15310 

F5G15320 

F5G15330 

F5G15340 

F5G15350 

F5G15360 

F5G15370 

F5G15380 

F5G15390 

F5G15400 

F5G15410 

F5G15420 

F5G15430 

F5G15440 

F5G15450 

F5615460 

F5615470 

F5G15480 

F5G15490 

F5G15500 

F5G15510 

F5G15520 

F5G15530 

F5G15540 

F5G15550 

F5G15560 

F5G15570 

F5G15580 

F5G15590 

F5G15600 

F5G15610 

F5G15620 

F5G15630 

F5G15640 

F5G15650 

F5G15660 



/■'-. 



u 



u 



n 



02325 





62100 


1 


05035 




ST.A 


02326 





07400 


4 


00067 




TSX 


02327 





50000 





00314 




CLA 


02330 





60100 





00532 




STO 


02331 





50000 


1 


12540 




CLA 


02332 


-0 


73400 


1 


00000 




PDX 


02333 





50000 


1 


05263 




CLA 


02334 





77100 





00022 




ARS 


02335 





07400 


4 


02075 


F21 


TSX 


02336 





50000 





00544 




CLA 


02337 





34000 





00532 




CAS 


02340 





02000 





02343 




TRA 


02341 





76100 





00000 




NOP 


02342 





02000 





02352 




TRA 


02343 





60100 





00532 


F88 


STO 


02344 





50000 





00545 




CLA 


02345 





60100 





00533 




STO 


02346 





50000 





00546 




CLA 


02347 





60100 





00534 




STO 


02350 





50000 





00547 




CLA 


02351 





60100 





00535 




STO 


02352 





50000 





00547 


F20 


CLA 


02353 


-0 


32000 





00353 




ANA 


02354 





34000 





00353 




CAS 


02355 





02000 





02335 




TRA 


02356 





02000 





02360 




TRA 


02357 





02000 





02335 




TRA 


02360 





50000 





00532 


F22 


CLA 


02361 





10000 





02372 




TZE 


02362 





50000 





00533 




CLA 


02363 


-0 


53400 


1 


02270 




LXD 


02364 





76700 





00022 




ALS 


02365 





62200 


1 


05035 




STD 


02366 


1 


00001 


1 


02367 




TXI 


02367 


-0 


63400 


1 


02270 


F70 


SXD 


02370 


3 


00074 


1 


02404 




TXH 


02371 





02000 





02253 




TRA 


02372 


-0 


53400 


2 


02270 


F28 


LXD 


02373 





53400 


1 


00341 


F56 


LXA 


02374 


-0 


63400 


1 


02412 




SXD 


02375 





07400 


4 


02407 




TSX 


02376 





50000 





04740 




CLA 


02377 





34000 





00361 




CAS 


02400 





76100 





ooooo 




NOP 


02401 





02000 





02706 




TRA 


02402 


3 


00002 


1 


02421 


P002 


TXH 


02403 





02000 





02706 




TRA 


02404 





50000 





00303 


F73 


CLA 


02405 





62200 





04741 




STD 


02406 





02000 





02536 




TRA 


02407 


-0 


53400 


1 


00325 


F15 


LXD 


02410 





50000 


2 


05035 


F26 


CLA 


02411 





60100 


1 


05035 




STO 


02412 


-3 


00000 


2 


02415 


F18 


TXL 



LPLST+S3P1»1 

SElt4 FIND BB INDEX. 

ZERO SET INITIAL MAX 

FV1 FREQ. TO 0+ 

BBB+5.1 GET THE 

0*1 REGION 

REG»1 WORD 

18 

Fl#4 DETERMINE MOST FREQ. PRED IN BB. 

FV101 IS IT MORE FREQ. THAN 

FV1 PREV. MAX. 

F88 

F20 NO* 

FV1 REPLACE PREV. MAX. 

FV102 AND BB NO. 

FV2 AND 

FV103 PRED. NO. 

FV3 AND 

FV104 REGION NO. WORD. 

FV4 

FV104 ARRANGE TO CONSIDER THE 

SBK2 NEXT B»B. IN REGION. 

SBK2 ARE WE THRU WITH REGION 

F21 

F22 YES 

F21 

FV1 WAS THERE AN UNCONSIDERED 

F28 PRED 

FV2 YES#ST0RE THE 

Fll#l ENTRY B.B. 

18 NO. 

LPLST+S3P1#1 

F70.1#l UP THE STORING INDEX 

Fll»l 

F73»1»S3P1 IS LPLST FULL 

F23 

Fll»2 

S5K4#1 

F18»l 

F15#4 NONE LPLST UP* 

LPLST-1 

FK4 IS THIS AN OPAQUE REGION 

F75 TO 2ED LXIN6 PASS. 

F29#l»2 

F75 

SEK4 STORE SPECIAL 

LPLST SYMBOL IN DECR. PART OF 1ST LPLST 

F53 QUANTITY 

S3K3.1 SET INDEX TO START OF LOOP LIST. 

LPLST+S3P1»2 MOVE THIS 

LPLST+S3P1»1 ENTRY UP. 

F17#2.- IN DECR.. THE INDEX OF LAST TO BE MOVED. 



F5G15670 

F5G15680 

F5G15690 

F5G15700 

F5G15710 

F5G15720 

F5G15730 

F5615740 

F5G15750 

F5G15760 

F5615770 

F5G15780 

F5G15790 

F5G15800 

F5G15810 

F5G15820 

F5G15830 

F5615840 

F5G15850 

F5G15860 

F5G15870 

F5G15880 

F5G15890 

F5G15900 

F5G15910 

F5G15920 

F5G15930 

F5G15940 

F5G15950 

F5G15960 

F5G15970 

F5G15980 

F5G15990 

F5G16000 

F 5616010 

F5G16020 

F5G16030 

F5G16040 

F5616050 

F5G16060 

F5G16070 

F5G16080 

F5616090 

F5616100 

F5G16110 

F5G16120 

F5G16130 

F5G16140 

F5G16150 

F5G16160 

F5G16170 

F5G16180 

F5G16190 

F5G16200 



02413 


2 


00001 


1 


02414 




JIX 


02414 


2 


00001 


2 


02410 


F16 


TIX 


02415 





601C0 





04740 


F17 


STO 


02416 





50000 





00323 




CLA 


02417 





60100 


1 


05036 




STO 


02420 





02000 


4 


00001 




TRA 


02421 


-0 


63400 


1 


02527 


F29 


SXD 


02422 





34000 





00324 


F64 


GAS 


02423 





76100 





00000 




NOP 


02424 





02000 





02426 




TRA 


02425 





02000 





02543 




TRA 


02426 





56000 





00314 


F89 


LDQ 


02427 


-0 


60000. 





00532 




STQ 


02430 





07400 


4 


00070 




TSX 


02431 





50000 


1 


12540 




CLA 


02432 


-0 


73400 


1 


00000 




PDX 


02433 





50000 


1 


05263 




CLA 


02434 





07400 


4 


02136 


F35 


TSX 


02435 





50000 





00544 




CLA 


02436 





34000 





00532 




CAS 


02437 





02000 





02442 




TRA 


02440 





76100 





00000 




NOP 


02441 





02000 





02451 




TRA 


02442 





60100 





00532 


F90 


STO 


02443 





50000 





00545 




CLA 


02444 





60100 





00533 




STO 


02445 





50000 





00546 




CLA 


02446 





60100 





00534 




STO 


02447 





50000 





00547 




CLA 


02450 





60100 





00535 




STO 


02451 





50000 





00547 


F36 


CLA 


02452 


-0 


32000 





00353 




ANA 


02453 





34000 





00353 




CAS 


02454 





02000 





02456 




TRA 


02455 





02000 





02460 




TRA 


02456 





76700 





00022 


F94 


ALS 


02457 





02000 





02434 




TRA 


02460 





50000 





00532 


F37 


CLA 


02461 


-0 


53400 


1 


02527 




LXD 


02462 





10000 





02550 




TZE 


02463 





50000 





00533 




CLA 


02464 





77100 





00022 




ARS 


02465 





62100 


1 


05035 




STA 


02466 


2 


00001 


1 


02467 


F45 


TIX 


02467 


-0 


63400 


1 


02527 


F62 


SXD 


02470 





50000 





00532 




CLA 


02471 





07400 


4 


00067 




TSX 


02472 





50000 


1 


12540 




CLA 


02473 





10000 





02553 




TZE 


02474 


-0 


73400 


2 


00000 




PDX 


02475 





50000 


2 


05263 




CLA 


02476 





60100 





00535 




STO 


02477 


-o 


32000 





00360 




ANA 


02500 





10000 





02574 




TZE 



F16»l#l NO. 

F26#2*l ARE WE FINISHED COPYING 

LPLST-1 CASE OF L00P*ST0RE PRED. OF 1ST ELEMENT. 

S3K1 STORE THE END 

LPLST+S3P1+1»1 LOOP LIST QUANTITY. 

1*4 

F39»l INITIALIZE STORING LOCATION. 

S3K2 ISNT OPAQUE REGIONH IS IT BE 

NO. 
F89 

F44 YES. 

ZERO NOt SET INITIAL 
FV1 FREQ+ TO 0* 
SE»4 GET 
BBB+5»1 REGION 
0*1 NO. 

REGtl GET NO. OF 1ST BB IN REGION 
F30»4 DETERMINE MOST FREQ SUCC IN BB 
FV101 IS IT MORE FREQ. THAN 
FV1 PREV+ MAX 
F90 

YES» 
F36 NO 

FV1 YES* REPLACE PREV.MAX. 
FV102 AND BB NO. 
FV2 AND 

FV103 SUCC. NO+ 
FV3 AND 

FV104 REGION NO. WORD 
FV4 

FV104 ARRANGE TO CONSIDER THE 
SBK2 NEXT BB IN REGION 
SBK2 IS IT LAST BB IN REGION 
F94 

F37 YES 
18 
F35 

FV1 WAS THERE AN UNCONSIDERED 
F39#l SUCC 
F47 

FV2 EXIT BB 
18 NO. 

LPLST+S3P1»1 

F62»ltl DOWN THE STORING 
F39*l INDEX. 
FV1 GET INDEX OF 
SElt4 BB UP FOR ENTRY. 
BBB+5»1 IS THIS BB IN 
F48 A REGION 
0«2 YES. 
REG»2 GET AND 
FV4 STORE REGION WORD. 
FK3 IS IT IN AN 
F54 OPAGUE REGION 



F 5616210 
F5G16220 
F5G16230 
F5G 16240 
F5G16250 
F5G 16260 
F5G16270 
F5G16280 
F5G16290 
F5G16300 
F5G16310 
F5G16320 
F5G16330 
F5G16340 
F5G16350 
F5G16360 
F5G16370 
F5G16380 
F5G16390 
F5G 16400 
F5G16410 
F5G16420 
F5G16430 
F5G16440 
F5G16450 
F5G 16460 
F5G 16470 
F5G16480 
F5G 16490 
F5G16500 
F5G16510 
F5G 16520 
F5G16530 
F5G 16540 
F5G 16550 
F5G16560 
F5G16570 
F5G16580 
F5G16590 
F5G16600 
F5G16610 
F5G16620 
F5G16630 
F5G 16640 
F5G16650 
F5G16660 
F5G16670 
F5G16680 
F5G16690 
F5G 16700 
F5G16710 
F5G16720 
F5G16730 
F5G16740 






u 



u 



02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 
02513 
02514 
02515 
02516 
02517 
02520 
02521 
02522 
02523 
02524 
02525 
02526 
02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
02540 
02541 
02542 
02543 
02544 
02545 
02546 
02547 
02550 
02551 
02552 
02553 
02554 
02555 
02556 
02557 
02560 
02561 
02562 
02563 
02564 
02565 
02566 



53400 
50000 
60100 
50000 



76700 



62200 
53400 
50000 
34000 
76100 
02000 



02000 



53400 
10000 
50000 
60100 
02000 
53400 
50000 
32000 
76700 
60100 
60100 
63400 
53400 
50000 
34000 
02000 
02000 



63400 
07400 
50000 
73400 
50000 
53400 
34000 
02000 
02000 
00001 
00000 
02000 
5O0OO 
53400 
62100 
02000 
00002 
50000 
60100 
02000 
50000 
02000 
07400 
50000 



60100 



02527 

00356 

05035 

00532 

00022 

05035 

00325 

05035 F38 

00324 

00000 

02515 

02526 

02412 F91 

00067 

12540 

00000 

05263 

02412 

00535 

02526 

02531 

02527 F40 

02535 F39 

02510 

05035 F41 

02527 

05035 

02312 

02541 F42 

00323 F53 

05034 

02706 

05035 F63 

02422 

02136 F44 

00544 

00532 

02527 

02466 

00323 F47 

05036 

02706 

02527 F48 

00532 

00353 

00022 

00535 

05035 

02570 

00325 

05035 F51 

00535 

02567 

02312 



LXD 
CLA 
STO 
CLA 
ALS 
STD 
LXD 
CLA 
CAS 
NOP 
TRA 
TRA 
SXD 
TSX 
CLA 
PDX 
CLA 
LXD 
CAS 
TRA 
TRA 
TIX 
TXL 
TRA 
CLA 
LXD 
STA 
TRA 
TXH 
CLA 
STO 
TRA 
CLA 
TRA 
TSX 
CLA 
STO 
LXD 
TNZ 
CLA 
STO 
TRA 
LXD 
CLA 
ANA 
ALS 
STO 
STO 
SXD 
LXD 
CLA 
CAS 
TRA 
TRA 



FK1 STORE TRANSPARENT REGION 

LPLST+S3P1»1 MARKER 

FV1 WITH 

18 ENTRY 

LPLST+S3P1»1 BB NO. IN DECR. 

S3K3»2 SET INDEX TO 1ST ELEMENT IN LPLST. 

LPLST+S3P1*2 

S3K2 IS THIS A BB ENTR* 



F91 

F40 YES 
F18.2 
SE1»4 
BBB+5.1 



STOREINDEX OF QUANTITYBEING C.F. ED 



GET 



0f2 REGION WORD* 

F18U GET INDEX OF QUANTITY BEING COMPARED* 
FV4 IS THIS NAME REGION 
F40 
F41 YES 

f11\1\- IS THIS INDEX OF QUANTITY BEING COMPARED 

F38 NO 

LPLST+S3Plt2 PUT EXIT BB NO* 

F39.1 FROM PREVIOUS QUANTITY 

LPLST+S3P1»1 IN THIS LATEST ONE. 

F43 

F63»2»2 IS LPLST FULL 

S3K1 STORE END 

LPLST+S3P1-1 LOOP LIST SENTINEL* 

F75 GO TO DEAL WITH STRING. 

LPLST+S3P1»2 

F64 

F30#4 DETERMINE MOST FREQ* SUCC. IN BB* 

FV101 STORE THE 

FV1 MOST FREQ* SUCC. AWAY. 

F39tl 

F45 WAS THERE AN UNCONSIDERED SUCC. 

S3K1 NO.RECORD AN „.„,-.■ 

LPLST+S3P1+W1 END LOOP LIST SENTINEL. 

F75 

F39»l ENTER BB 

FV1 NO. AND MARKER 

SBK2 IN 

18 LPLST 

FV4 

LPLST+S3P1.1 

F50»l 

S3X3.2 S ♦ TO 

LPLST+S3P1»2 

FV4 IS THIS SAME BB AS NEW ENTRY 

F49 

F43 YES 



F5616750 

F5G16760 

F5G16770 

F5G16780 

F5G 16790 

F5G16800 

F5G16810 

F5G16820 

F5G16830 

F5G16840 

F5G16850 

F5G16860 

F5G16870 

F5G16880 

F5G 16890 

F5G16900 

F5G16910 

F5G16920 

F5G16930 

F5G16940 

F5G16950 

F5G16960 

F5G16970 

F5G16980 

F5G16990 

F5G170O0 

F5G17010 

F5G17020 

F5G 17030 

F5G 17040 

F5G17050 

F5G17060 

F5G 17070 

F5G 17080 

F5G 17090 

F5G17100 

F5G17110 

F5G17120 

F5617130 

F5G17140 

F5G17150 

F5G17160 

F5G17170 

F36 17180 

F5617190 

F5617200 

F5G17210 

F5617220 

F5G17230 

F5G17240 

F5G17250 

F5G17260 

F5G17270 

F5G17280 



/' 



02567 


2 


00001 


2 


02570 


F49 


02570 


-3 


00000 


2 


02572 


F50 


02571 





02000 





02563 




02572 


3 


00002 


2 


02541 


F52 


02573 





02000 





02536 




02574 


-0 


53400 


1 


02527 


F54 


02575 





50000 





00357 




02576 





60100 


1 


05035 




02577 





50000 





00532 




02600 





76700 





00022 




02601 





62200 


1 


05035 




02602 





02000 





02550 




02603 


-0 


53400 


2 


02270 


F55 


02604 





50000 





00357 




02605 





60100 


2 


05035 




02606 





50000 





00532 




02607 





62100 


2 


05035 




02610 





02000 





02373 




02611 





50000 





00532 


F57 


02612 


-0 


32000 





00353 




02613 





76700 





00022 




02614 





60100 





00535 




02615 





50000 





02270 




02616 





62200 





02623 




02617 





53400 


1 


00341 




02620 





50000 


1 


05035 


F61 


02621 


1 


00001 


1 


02622 




02622 


-0 


63400 


1 


02412 


F58 


02623 


3 


00000 


1 


02630 


F59 


02624 





34000 





00535 




02625 





02000 





02620 




02626 





O2000 





02310 




02627 





02000 





02620 




02630 


-0 


53400 


1 


02270 


F60 


02631 





50000 





00532 




02632 


-0 


32000 





00353 




02633 





76700 





00022 




02634 





60100 


1 


05035 




02635 





50000 





00532 




02636 





07400 


4 


02075 




02637 





50000 





00544 




02640 





60100 





00532 




02641 


-0 


10000 





02644 




02642 


-0 


53400 


2 


02270 




02643 





02000 





02373 




02644 


-0 


53400 


1 


02270 


F71 


02645 


1 


00001 


1 


02646 




02646 


-0 


63400 


1 


02270 


F72 


02647 


3 


00074 


1 


02536 




02650 





02000 





02253 




02651 





53400 


1 


00362 


F80 


02652 





50000 


1 


05263 


F81 


02653 





10000 





02656 




02654 


2 


00001 


1 


02652 





TIX F50»2»l DECREASE COMPARISON INDEX* 

TXL F52»2»- IS THIS INDEX OF NEW QUANTITY 

TRA F51 NO. 

TXH F63>2»2 IS LPLST FULL 

TRA F53 YES. 

LXD F39»l IS OPAQUE REGION 

CLA FK2 ENTER OPAQUE 

STO LPLST+S3P1»1 REGION MARKER 

CLA FV1 WITH CORRECT 

ALS 18 ENTRY BB 

STD LPLST+S3Pltl NO. 

TRA F47 

LXD Fll»2 STORE THE 

CLA FK2 OPAQUE 

STO LPLST+S3P1#2 REGION MARKR 

CLA FV1 WITH 

STA LPLST+S3P1»2 EXIT BB 

TRA F56 NO. 

CLA FV1 PUT THE 

ANA SBK2 B*B. NO. 

ALS 18 IN 

STO FV4 DECR. PART. 

CLA Fll SET THE END 

STD F59 TEST. 

LXA S5K4tl SET INDEX OF 1ST LPLST TO BE COMPARED 

CLA LPLST+S3Pltl 

TXI F58»l»l 

SXD F18*l 

TXH F60.1>- WAS THAT THE LAST QUANTITY 

CAS FV4 IS THIS THE SAME BB* 

TRA F61 

TRA F13 YES 

TRA F61 

LXD Fll»l 

CLA FV1 STORE THE 

ANA SBK2 BB 

ALS 18 MARKER. 

STO LPLST+S3P1»1 

CLA FV1 

TSX Flf4 FIND MOST FREQ. PRED. OF BB. 

CLA FV1G1 DOES B.B. HAVE 

STO FV1 UNCONSIDERED PRED. 

TNZ F71 

LXD Fll>2 NOtGO TO MOVE LPLST UP. 

TRA F56 

LXD Fll#l 

TXI F72»l»l UP THE STORING INDEX 

SXD Fll»l 

TXH F53»1#S3P1 IS LPLST FULL 

TRA F23 NO. 

LXA FK5»1 FIND 

CLA REG»1 THE 1ST AVAILABLE REGION 

TZE F82 POSITION. 

TIX F81>1»1 



F5G17290 
F5G17300 
F5G17310 
F5G17320 
F5G17330 
F5G17340 
F5G17350 
F5G17360 
F5G17370 
F5G17380 
F5G17390 
F5G17400 
F5G17410 
F5G17420 
F5G17430 
F5G17440 
F5G17450 
F5G17460 
F5G17470 
F5G17480 
F5G17490 
F5G17500 
F5G17510 
F5G17520 
F5G17530 
F5G 17540 
F5G17550 
F5G17560 
F5G17570 
F5617580 
F5G17590 
F5617600 
F5G17610 
F5617620 
F5G17630 
F5617640 
F5G17650 
F5G 17660 
F5G17670 
F5G17680 
F5G17690 
F5G17700 
F5G17710 
F56 17720 
F5G17730 
F5G17740 
F5G17750 
F5G17760 
F5G17770 
F5G1778C 
F5G17790 
F5G17800 
F5617810 
F5G17820 



u 



O 



02655 





07400 


4 


00004 




02656 


-0 


63400 


1 


00565 


F82 


02657 





56000 





00314 


F83 


02660 


-0 


60000 





00566 




02661 





02000 


4 


00001 




02662 





07400 


4 


01523 


F78 


02663 





53400 


1 


00342 




02664 





56000 





00314 




02665 





50000 


1 


00506 


F76 


02666 





60100 


1 


00430 




02667 





50000 


1 


00511 




02670 


-0 


60000 


1 


00561 




02671 





12000 





02675 




02672 





50000 





00325 




02673 


-0 


76000 





00003 




02674 





60100 


1 


00561 




02675 


2 


00001 


1 


02665 


F77 


02676 





50000 





00325 




02677 





40200 





00316 




02700 





60100 





00440 




02701 





60100 





00444 




02702 





50000 





00340 




02703 





60100 





00437 




02704 


-0 


63400 





00436 




02705 





02000 





03072 




02706 





07400 


4 


02651 


F75 


02707 





50000 





04741 




02710 





56000 





00324 




02711 





04000 





02662 




02712 





53400 


1 


00342 




02713 





50000 





00336 




02714 





60100 


1 


00430 


F79 


02715 


2 


00001 


1 


02714 




02716 





02000 





03061 




02717 


-0 


63400 





02763 


L 


02720 


-0 


63400 





02756 




02721 





53400 


1 


00342 


INIZ 


02722 





50000 





00336 




02723 





60100 


1 


00430 


L23 


02724 


2 


00001 


1 


02723 




02725 





56000 





00325 




02726 


-0 


60000 





00440 




02727 





56000 





00340 




02730 


-0 


60000 





00437 




02731 


-0 


63400 





00436 




02732 





07400 


4 


01023 


1L4 


02733 





02000 





03013 




02734 





53400 


1 


00342 




02735 





50000 





00441 




02736 





34000 


1 


00430 


L2 


02737 





02000 





02741 




02740 





02000 





03000 





TSX 4»4 DIAGNOSTIC* ERROR 

SXD XVI »1 STORE THE INDEX 

OF THE NEW REGION WORD 
LDO ZERO STORE INITIAL 

STO XV2 VALUE OF REGION 
TRA 1*4 

TSX SA»4 GET EXIT CONDITIONS OF REGION. 
LXA S5K5.1 PUT EXIT 
LDQ ZERO 

CLA EX1+3»1 CONDITONS 
STO IR1+3»1 INTO 
CLA ACT1+3»1 I+R.S 
STQ AC1+3»1 

TPL F77 IS THIS EXIT ACTIVE 
CLA S3K3 YES»FORM AND 
SSM STORE ACTIVE 
STO AC1+3#1 INDICATOR 
TIX F76»l*l COUNT TO 3 
CLA S3K3 INITIALIZE 
SUB ON ED LOOP LIST 
STO S3V4 TO ITS 
STO S3V5 
CLA S5K3 2ED 
STO S3V3 ELEMENT 
SXD S3V2»0 
TRA X32 

TSX F80.4 OETERMINE NEW REGION INDEX 

CLA LPLST IS 1ST ^^ 

LDQ S3K2 ELEMENT OF LPLST A TRANSPARENT 

TLQ F78 ON OPAQUE REGION 
LXA S5K5»1 NOflNITIALlZE 
CLA S5K1 THE 
STO IR1+3*1 LR.S 
TIX F79*l*l TO EMPTINESS 
TRA X 

FIRST LXING PASS. 
SXD R0T3»0 
SXD ROT1»0 

LXA S5K5»1 INITIALIZE 

CLA S5K1 THE 

STO IR1+3»1 INDEX REGISTERS 
TIX L23»l»l TO EMPTINESS. 
LDQ S3K3 

STQ S3V4 INITIALIZE THE 
LDQ S5K3 LOOP LIST* 
STQ S3V3 MAKE SURE THAT THE 
SXD S3V2*0 

TSX S3»4 GET NEXT TAG. 

TRA L6 *RETURN HERE IF TAG WASNT GOTTEN, 
LXA S5K5»1 SET COUNT TO 3»N*1 
CLA 1TAG IS CL (TAG) EQUAL 

CAS IR1+3>1 TO C URN) 
TRA LI NO. 
TRA 1L3 YES 



F5G17830 

F5G17840 

F5G17850 

F5617860 

F5617870 

F5G17880 

F5G17890 

F561790Q 

F5G17910 

F5G17920 

F5G17930 

F5G17940 

F5G17950 

F5G17960 

F5G17970 

F5G17980 

F5617990 

F5G180O0 

F5G18010 

F5G18020 

F5G18030 

F5G16040 

F5G18050 

F5G18060 

F5G18070 

F5G18080 

F 5618090 

F5G18100 

F5G18110 

F5618120 

F5G18130 

F5G18140 

F5G18150 

F 5618160 

F5G18170 

F5G18180 

F 5618190 

F5G18200 

F 5618210 

F5G18220 

F 5618230 

F5G18240 

F5618250 

F5618260 

F5618270 

F5618280 

F5618290 

F5618300 

F 5618310 

F5G18320 

F5G18330 

F5618340 

F 5618350 

F5G18360 



r*' 



02741 
02742 
02743 
02744 
02745 
02746 
02747 
02750 
02751 
02752 
02753 
02754 
02755 
02756 
02757 
02760 
02761 
02762 
02763 
02764 
02765 
02766 
02767 
02770 
02771 
02772 
02773 
02774 
02775 
02776 
02777 
03000 
03001 
03002 
03003 
03004 
03005 
03006 
03007 
03010 
03011 
03012 
03013 
03014 
03015 
03016 
03017 
03020 
03021 
03022 
03023 
03024 
03025 
03026 



00001 
50000 
34000 
02000 
02000 
34000 
02000 
02000 
02000 
53400 
00072 
53400 
77777 
00000 
63400 
53400 
50000 
34000 
00000 
00000 
60100 
77777 
63400 
50000 
60100 
02000 
07400 
53400 
50000 
60100 
02000 
50000 
34000 
02000 
02000 
34000 
02000 
02000 
02000 
50000 
60100 
02000 
60100 
34000 
02000 
02000 
50000 
32000 
10000 
50000 
07400 
50000 
07400 
53400 



02736 
00442 
00376 
02746 
02752 
00403 
02773 
02752 
02773 
00440 
02732 
02763 
02756 
02732 
02763 
00314 
04741 
00323 
02765 
02767 
04740 
02761 
02756 
04740 
04740 
02721 
00622 
00430 
00441 
00430 
02732 
00442 
00376 
03004 
03010 
00403 
02732 
03010 
02732 
00333 
00430 
02732 
00554 
00323 
03017 
03051 
00554 
00335 
02732 
00554 
01245 
00554 
01523 
00342 



LI 

LIS 
ROTO 

R0T1 

R0T2 
ROT 3 
R0T4 
R0T5 

L17 

1L3 
1L19 

L5 
L6 

L14 



TIX 
CLA 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
TRA 
LXD 
TXL 
LXD 
TXI 
TXL 
SXD 
LXD 
CLA 
CAS 
TXL 
TXL 
STO 
TXI 
SXD 
CLA 
STO 
TRA 
TSX 
LXD 
CLA 
STO 
TRA 
CLA 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
TRA 
CLA 
STO 
TRA 
STO 
CAS 
TRA 
TRA 
CAL 
ANA 
TZE 
CLA 
TSX 
CLA 
TSX 
LXA 



L2»l»l NO* COUNT TO 3*N=N+1 

TPE IS THIS 

XK15 AN LXP INSTR. 

L18 NO» 

ROTO YES 

XK21 NO»IS IT A DED INSTR. 

L17 NO 

ROTO YES 

L17 

S3V4»2 

lL4>2*S3Pl-2 

R0T3»2 

R0T1»2*-1 

1L4*2»- 

ROT3»2 

ZERO t 2 

LPLST»2 

S3K.1 

R0T4»0t- 

R0T5»0«- 

LPLST-1»2 

R0T2»2»-1 

R0T1»2 

LPLST-1 

LPLST-1#2 

INIZ 

Sl»4 SELECT MOST REPLACEABLE I.R. 

IRR»4 PLACE TAU-TAG 

1TAG IN APPROPRIATE 

IRl+3»4 I«R* 

1L4 

TPE IS THIS AN LXP 

XK15 

1L19 

L5 YES 

XK21 IS IT AN DED 

1L4 

L5 YES* 

1L4 

LK1 PLACE AN E (HASH 

IR1+3»1 SYMBOL) IN 

1L4 RIGHT IRt 

LV4 IS THIS AN END OF LOOP 

S3K1 LIST SENTINEL 

L14 N0# 

L15 YES# 

LV4 IS 

LK3 THIS A 

1L4 BB 

LV4 NO»FORM CORRESPONDENCE 

S5»4 BETWEEN IRS AND ENS 

LV4 GET + STORE EXIT CONDITIONS 

SAt4 AND (USELESSLY* OCTIVE INDICATORS. 

S5K5*1 SET COUNT TO 3»N=1 



F5G18370 

F5G 18380 

F5G18390 

F5G18400 

F5G18410 

F5G18420 

F5G18430 

F5G18440 

F5G18450 

F5G18460 

F5G 18470 

F5G18480 

F5G18490 

F5G18500 

F5G18510 

F5G18520 

F5G18530 

F5G18540 

F5G18550 

F5G18560 

F5G18570 

F5G18580 

F5G18590 

F5G18600 

F5618610 

F5G18620 

F5G18630 

F5G18640 

F5G18650 

F5G18660 

F5G18670 

F5G 18680 

F5G18690 

F5G18700 

F5G18710 

F5G18720 

F5G18730 

F5G18740 

F5G18750 

F5G18760 

F5G18770 

F5G18780 

F5618790 

F5G18800 

F5G18810 

F5G18820 

F5618830 

F5G18840 

F5G18850 

F5G18860 

F5G18870 

F5G18880 

F5G18890 

F5G18900 



Q 



U 



03027 





50000 


1 


00470 


Lll 


CLA 


03030 


-0 


73400 


2 


00000 




PDX 


03031 





50000 


1 


00506 




CLA 


03032 





34000 





00336 




GAS 


03033 





02000 





03035 




TRA 


03034 





02000 





03040 




TRA 


03035 





60100 


2 


00430 


L13 


STO 


03036 


2 


00001 


1 


03027 


L10 ^ 


TIX 


03037 





02000 





02732 




TRA 


03040 





50000 


2 


00430 


P003 


CLA 


03041 





56000 





00333 




LDQ 


03042 





04000 





03036 




TLQ 


03043 





53400 


4 


00342 




LXA 


03044 





34000 


4 


00506 


P003A 


CAS 


03045 





02000 





03047 




TRA 


03046 


-0 


60000 


2 


00430 




STQ 


03047 


2 


00001 


4 


03044 


P0036 


TIX 


03050 





02000 





03036 




TRA 


03051 





53400 


1 


00342 


L15 


LXA 


03052 





50000 


1 


00430 


L16 


CLA 


03053 





34000 





00333 




CAS 


03054 





76100 





00000 




NOP 


03055 





50000 





00336 




CLA 


03056 





60100 


1 


00430 




STO 


03057 





60100 


1 


00554 




STO 


03060 


2 


00001 


1 


03052 




TIX 


03061 





56000 





00325 


X 


LDQ 


03062 


-0 


60000 





00440 




STQ 


03063 





56000 





00340 




LOG 


03064 


-0 


60000 





00437 




STQ 


03065 


-0 


63400 


1 


00436 




SXD 


03066 





50000 





00314 


X21 


CLA 


03067 





60100 





00556 




STO 


03070 





60100 





00557 




STO 


03071 





60100 





00560 




STO 


03072 





50000 





00314 


X32 


CLA 


03073 





60100 





00562 




STO 


03074 





60100 





00563 




STO 


03075 





60100 





00564 




STO 


03076 





60100 





00521 




STO 


03077 





07400 


4 


01023 


X3 


TSX 


03100 





02000 





03322 




TRA 


03101 





50000 





01122 




CLA 


03102 


-0 


32000 





00353 




ANA 


03103 





40000 





00451 




ADO 


03104 





40200 





00332 




SUB 


03105 





76700 





00022 




ALS 


03106 


-0 


40000 





00436 




SBM 


03107 





76500 





00065 




LRS 


03110 


-0 


60000 





00571 




STQ 


03111 





22100 





00371 




DVP 


03112 


-o 


600O0 





00567 




STQ 



EN4+3»1 PUT CORRESPONDENCE INDEX 

0*2 IN 2* 

EX1+3»1 IS THIS EXIT CONDITION 

S5K1 EMPTY 

L13 N0» 

P003 

IRl+3#2 NOtREPLACE C (IR) BY EXIT CONDITION. 

Lll»l»l COUNT TO 3»NC*+1 

1L4 

IRl+3»2 

LIC1 

L10 

S5K5»4 

EXl+3t4 

P003B 

IRl+3»2 

P003At4»l 

L10 

S5X5»1 COPY ASIDE THE FINAL 

IR1+3»1 CONTENTS 

LK1 (IF R£AL> OTHERWISE 

S5K1 SET TO 

IRl+3tl EMPTY) 

LV1+3»1 OF THE 
L16»l»l IRS 

THE SECOND LXING PASS FOLLOWS. 

PRECEEDED BY 1ST LXING PASS 
S3K3 INITIALIZE THE 
S3V4 LOOP LIST AND 
S5K3 MAKE SURE TAG 
S3V3 LOO GETS SET. 
S3V2»1 

ZERO SET ACTIVE INDICATORS 
AC1 TO 
AC2 

AC3 NOT ACTIVE. 
ZERO SET LX INDICATORS 
LX1 TO 
LX2 NOT 
LX3 LX ED* 

ACIND SET IND. TO SAY THIS IS 2ED LXING PASS 
S3»4 TRY TO GET NEXT TAG. 
X13 COME HERE IF TAG NOT GOT. 
S39 COMPUTE LOCATIONS OF 
SBK2 THIS TAG=(ADDR. FOLLOWING 
S4V1 TIX BLACK + L KM)- 
S4K3 CMTAG-INDEX OF TAG 
18 

S3V2 

53 THEN FORM LOC/9 
XV5 AND REMAINDER 
XK9 STORE INTEG. PART 
XV3 AND REMAINDER. 



F 5618910 
F5G18920 
F5618930 
F5G18940 
F5G18950 
F5G18960 
F5G 18970 
F5G18980 
F5G18990 
F5G 19000 
F5G19010 
F5G 19020 
F5G19030 
F5G19040 
F5G19050 
F5G19060 
F5G19070 
F5G19080 
F5G19090 
F5G19100 
F5G19110 
F5G19120 
F5G19130 
F5G19140 
F5G19150 
F5619160 
F5G19170 
F5G19180 
F5G19190 
F5G19200 
F5G19210 
F5G19220 
F5G19230 
F5G19240 
F5G19250 
F5G19260 
F5G19270 
F5G19280 
F5G 19290 
F5G19300 
F5G19310 
F5G19320 
F5G19330 
F5G19340 
F5G19350 
F5G19360 
F5G19370 
F5G19380 
F5G19390 
F5G19400 
F5G19410 
F5G19420 
F5G19430 
F5G19440 



03113 





60100 





00570 




03114 





53400 


1 


00342 




03115 





50000 





00441 




03116 





34000 


1 


00430 


X2 


03117 





02000 





03121 




03120 





02000 





03257 




03121 


2 


00001 


1 


03116 


XI 


03122 





50000 





00442 




03123 





34000 





00376 




03124 





02000 





03126 




03125 





02000 





03131 




03126 





34000 





00403 


X103 


03127 





02000 





03131 




03130 





02000 





03077 




03131 





07400 


4 


00622 


X8 


03132 


-0 


53400 


1 


00430 




03133 





50000 





00441 




03134 





60100 


1 


00430 




03135 





50000 


1 


00561 




03136 





10000 





03140 




03137 





07400 


4 


01566 




03140 





50000 





00442 


X4 


03141 





34000 





00322 




03142 





02000 





03144 




03143 





02000 





03155 




03144 


-0 


50000 





00443 


X5 


03145 


-0 


32000 





00363 




03146 


-0 


10000 





03204 




03147 





50000 





00567 




03150 





07400 


4 


00032 




03151 





53400 


2 


00570 




03152 


-0 


50000 





00372 




03153 





76700 


2 


00010 




03154 


-0 


60200 


1 


05263 




03155 





07400 


4 


02Q24 


X14 


Q3156 





02000 





03162 




03157 


-0 


53400 


1 


00430 




03160 





50000 





00526 




03161 





60100 


1 


00561 




03162 


-0 


53400 


2 


00430 


X01 


03163 





50000 


2 


00565 




03164 


-0 


10000 





03167 




03165 





50000 





00333 




03166 





60100 


2 


00565 




03167 


-0 


50000 





00340 


X19 


03170 





77100 


2 


00003 




03171 


-0 


60200 





00566 




03172 





50000 





00567 


X02 


03173 





07400 


4 


00032 




03174 


-0 


50000 





00570 




03175 





76000 





00006 




03176 





73400 


2 


00000 




03177 


-o 


50000 





00430 




03200 





77100 


2 


00000 





STO XV4 

LXA S5K5tl SET COUNT TO 3tN=l 

CLA 1TAG 

CAS IR1+3*1 IS CONTENTS OF IRN SAME AS OF TAG 

TRA .XI NO 

TRA X7 YES 

TIX X2»l»l NO COUNT OT 3*N*N+1 

CLA TPE IS THIS AN 

CAS XK15 LX PRIME 

TRA X103 NO 

TRA X8 YES. COMPILE LXD FOR LXP. 

CAS XK21 IS IT A DED 

TRA X8 

TRA X3 YES 

TSX Sl»4 SELECT MOST REPLACEABLE I.R. 

LXD IRRfl PLACE TAU-TAG 

CLA 1TAG IN SELECTED 

STO IR1+3»1 I»R. 

CLA AC1+3*1 IS THIS 

TZE X4 IR ACTIVE 

TSX SB»4 YES»RECORD SXD NECESSARY. 

CLA TPE IS THIS 

CAS S2K2 AN LX 

TRA X5 NO 

TRA X14 YES 

CAL INTAG IS THIS 1ST INSTR. 

ANA XK10 IN A BB 

TNZ X9 

CLA XV3 NO* 

TSX SE4»4 DETERMINE INDEX IN STAG 

LXA XV4*2 

CAL XK11 GENERATE 

ALS 8»2 LX BIT 

ORS STAG»1 STORE IN STAG. 

TSX SF»4 CHECK IF AN ACTIVE INSTR. 

TRA X01 COME HERE IF NOT ACTIVE 

LXD IRR»1 ACTIVE-STORE ACTIVE 

CLA SFV1 INDICATOR 

STO AC1+3»1 

LXD IRRt2 

CLA LXl+3»2 WAS AN ENTRANCE REQUIREMENT 

TN2 X19 BEEN DETERMINED FOR THIS BB. 

CLA LK.1 NO»RECORD HASH 

STO LXl+3f2 AS ENTRANCE REQUIREMENT 

CAL S5K3 RECORD THAT THERE IS AN 

ARS 3»2 LX FOR THIS IR IN 

ORS XV2 REGION. 

CLA XV3 RECORD THE 

TSX SE4»4 SPECIFIC 

CAL XV4 TAG 

COM IN 

PAX 0*2 THE 

CAL IRR STAG 

ARS 0#2 TABLE 



F5G 19450 

F5G 19460 

F5G19470 

F5G19480 

F5G19490 

F5G19500 

F5G19510 

F5G19520 

F5G19530 

F5619540 

F5G19550 

F5G19560 

F5G19570 

F5G19580 

F5G19590 

F5G 19600 

F5G19610 

F5G 19620 

F5G 19630 

F5G19640 

F5619650 

F5G19660 

F5G19670 

FSG19680 

F5G19690 

F5G19700 

F5G19710 

F5G19720 

F5G19730 

F5G19740 

F5G19750 

F5G19760 

F5G19770 

F5619780 

F5619790 

F5G19800 

F5G19S10 

F5G 19820 

F5G19830 

F5G19840 

F5G19850 

F5G19860 

F5G19870 

F5G19880 

F5G19890 

F5G19900 

F5G19910 

F5G19920 

F5619930 

F5G19940 

F5G19950 

F5G19960 

F5G19970 

F5G19980 



>w 



o 



u 



03201 
03202 
03203 
03204 
03205 
03206 
03207 
03210 
03211 
03212 
03213 
03214 
03215 
03216 
03217 
03220 
03221 
03222 
03223 
03224 
03225 
03226 
03227 
03230 
03231 
03232 
03233 
03234 
03235 
03236 
03237 
03240 
03241 
03242 
03243 
03244 
03245 
03246 
03247 
03250 
03251 
03252 
03253 
03254 
03255 
03256 
03257 
03260 
03261 
03262 
03263 
03264 
03265 
03266 






77100 


2 


00000 




ARS 


-0 


60200 


1 


05263 




ORS 





02000 





03077 




TRA 


-0 


53400 


1 


00440 


X9 


LXO 


-3 


00072 


1 


03212 




TXL 





50000 





00550 




CLA 


-0 


12000 





03212 




TMI 


-0 


53400 


2 


00430 




LXO 





02000 





03243 


XII 


TRA 





50000 


1 


05033 




CLA 





34000 





00324 




CAS 





76100 





00000 




NOP 





02000 





03217 




TRA 





77100 





00022 




ARS 





62100 





00513 


X117 


STA 





50000 


1 


05034 




CLA 





07400 


4 


00070 




TSX 





50000 


1 


12533 




CLA 





60200 





00512 


X03 


SLW 





07400 


4 


00055 




TSX 


-0 


50000 


1 


15674 




CAL 


-0 


32000 





00353 




ANA 





34000 





00513 




CAS 





02000 





03232 




TRA 





02000 





03235 




TRA 





50000 





00512 


X04 


CLA 





40000 





00315 




AOO 





02000 





03223 




TRA 


-0 


53400 


2 


00430 


X05 


LXD 


-0 


50000 





00377 




CAL 





77100 


2 


00003 




ARS 


-0 


60200 


1 


15674 




ORS 


-0 


53400 


4 


00440 




LXO 


-0 


60200 


4 


05034 




ORS 





50000 


2 


00430 




CLA 





60100 


2 


00565 




STO 





02000 





03155 




TRA 





07400 


4 


01661 


X16 


TSX 





56000 





00333 




LDQ 





50000 


1 


00565 




CLA 


-0 


10000 





03253 




TN2 


-0 


60000 


1 


00565 




STQ 


-0 


60000 


1 


00430 


X100 


STO 





50000 





00314 




CLA 





60100 


1 


00561 




STO 





02000 





03172 




TRA 


-0 


63400 


1 


00430 


X7 


SXO 





50000 





00442 




CLA 





34000 





00376 




CAS 





02000 





03264 




TRA 





02000 





03246 




TRA 





34000 





00403 


X104 


CAS 





02000 





03267 




TRA 





02000 





03246 




TRA 



0*2 

STAG»1 

X3 

S3V4tl GET 

Xll+l»l»S3Pl-2 

LPINO 

XI 1+1 

IRR»2 

X16-3 

LPLST+S3P1-2»1 AND 

S3K2 STORE 

BB 
X117 
18 PRED 
SBV3 NO* 
LPLST+S3P1-1#1 
SE»4 GET ADDR* OF 
8BB»1 1ST PRED* 
SBV2 

SE5»4 GET PRED* 
PRED*1 
SBK2 

SBV3 IS THIS RIGHT PRED* 
X04 NO 
X05 YES 

SBV2 NO ARRANGE TO 
ONEA TRY NEXT 
X03 PRED. 
IRR»2 PUT LX 
XK16 BIT INTO 
3*2 PRED* 
PRED*1 TABLE* 
S3V4*4 

LPLST+S3P1-1»4 

IRl+3«2 SET ENTR* REOU* 
LXl+3f2 
X14 
SC*4 RECORD I.R* ACTIVE IN SECTION OF LPLST 

LK1 

LX1+3*1 HAS THIS 

X100 ENTR* REOU. BEEN DETERMINED 

LX1+3*1 NO»RECORD ENTR* REQU* IS AN E* 

IRl+3tl ERASE THIS I*R* 

ZERO RECORD THAT THIS 

AC1+3»1 I«R* ISNT ACTIVE. 

X02 

IRR»1 

TPE IS THIS 

XK15 AN LXP 

X104 NO 

X16 YES* 

XK21 IS IT A DED 

X15 

X16 YES* 



F5G19990 

F5G2000O 

F5G20010 

F5G20020 

F5G20030 

F5620040 

F5G20050 

F5G20O60 

F5G20070 

F5G20080 

F5G20090 

F5G20100 

F5G20110 

F5G20120 

F5G20130 

F5G20140 

F5G20150 

F5G20160 

F5G20170 

F5G20180 

F5G20190 

F5G20200 

F5G20210 

F5G20220 

F5G20230 

F5G20240 

F5G20250 

F5G20260 

F5G20270 

F5G20280 

F5G20290 

F5G20300 

F5G20310 

F5G20320 

F5G2O330 

F5G20340 

F5G20350 

F5G20360 

F5G20370 

F5G20380 

F5G20390 

F5G20400 

F5G20410 

F5G20420 

F5G20430 

F5G20440 

F5G20450 

F5G20460 

F5G20470 

F5G20480 

F5G20490 

F5G20500 

F5G2051Q 

F5G20520 



fr 



l~) 



03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 
03277 
03300 
03301 
033Q2 
03303 
03304 
03305 
03306 
03307 
03310 
03311 
03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 
03322 
03323 
03324 
03325 
03326 
03327 
03330 
03331 
03332 
03333 
03334 
03335 
03336 
03337 
03340 
03341 
03342 
03343 
03344 
03345 
03346 
03347 
03350 
03351 
03352 
03353 
03354 



07400 
02000 
53400 
07400 
50000 
60100 
50000 
34000 
02000 
02000 
53400 
50000 
10000 
50000 
60100 
02000 
07400 
53400 
50000 
10000 
50000 
76700 
40000 
60200 
77777 
00001 
02000 
53400 
00072 
50000 
60100 
56000 
04000 
77100 
32000 
56000 
04000 
07400 
50000 
77100 
40000 
10000 
53400 
50000 
10000 
07400 
00001 
50000 
34000 
76100 
02000 
02000 
50000 
34000 



02024 
03275 
00430 
01661 
00526 
00561 
00442 
00322 
03301 
03162 
00430 
00565 
03172 
00430 
00565 
03172 
00070 
00342 
00565 
03314 
00430 
00022 
00430 
12535 
03320 
03311 
03353 
00440 
03353 
05033 
00607 
00324 
03331 
00022 
00326 
00351 
03346 
00067 
12533 
00041 
00315 
03346 
00342 
00561 
03345 
01566 
03342 
00607 
00324 
00000 
03353 
03307 
00444 
00323 



X15 



X17 



X18 



X22 
X25 

X23 

X24 
X13 



X126 



X128 



X127 
X129 



X26 



TSX SF»4 DETERMINE ACTIVITY* 

TRA X17 COME HERE IF NOT ACTIVE, 

LXD IRR«1 

TSX SC#4 RECORD PART OF LOOP LIST ACTIVE. 

CLA SFV1 STORE ACTIVE 

STO ACl+3tl INDICATOR, 

CLA TPE 

CAS S2K2 IS THIS AN LX 

TRA X18 

TRA X01 YES* 

LXD IRR»1 

CLA LX1+3»1 WAS THIS 

TNZ X02 I.R. LX ED 

CLA IRl+3tl N0»STORE THE TAG 

STO LXl+3fl IN TH LX INDICATOR. 

TRA X02 

TSX SE»4 MAKE SURE BB IS IN C+M. 

LXA S5<5»2 

CLA LXl+3f2 

TNZ X23 HAS THIS ENTRANCE REQ. BEEN FOUND 

CLA IRl+3»2 NO»ENTRANCE * EXIT. 

ALS 18 PUT ENTR. REQ. IN LEFT. 

ADD IRl+3»2 ADD THE EXIT REQUIREMENTS. 

SLW BBB+2»1 

TXI X24»l#-1 DOWN INDEX OF ENTR-EXIT REQU. 

TIX X25»2»l COUNT TO 3 

TRA X26 

LXD S3V4fl GET LOOP LIST QUANTITY 

TXH X26»l»S3Pl-2 TRANSFER IF THIS IS 1ST IN LPLST 

CLA LPLST+S3P1-2»1 OF PREVIOUS QUANTITY 

STO XV19 

WAS IT 
A BB 



YES 



IS THERE 



LDQ S3K2 

TLQ X126 

ARS 18 

ANA S3K4 

LDQ SAIC1 

TLQ X129 

TSX SE1»4 

CLA BBB»1 

ARS 33 

ADD ONEA 

TNZ X129 

LXA S5K5»1 

CLA AC1+3#1 

TZE X127 

TSX SB»4 

TIX X128»l»l 

CLA XV19 

CAS S3K2 

NOP NO 

TRA X26 

TRA X22 YES» 

CLA S3V5 NO 

CAS S3K1 IS THIS AN END-LOOP-LIST 



YES» GET EXIT BB 
WAS THAT BB 
TERMINATED BY 
A 
GO TO N 
YES» SET COUNT TO 3 
IS THIS IR 
ACTIVE 

YESf RECORD SXD NECESSARY 
COUNT TO 3 
GET 



F5G20530 
F5G20540 
F5G20550 
F5G20560 
F5G20570 
F5G20580 
F5G20590 
F5G20600 
F5G20610 
F5G20620 
F5G20630 
F5G20640 
F5G20650 
F5G20660 
F5G20670 
F5G20680 
F5G20690 
F5620700 
F5G20710 
F5620720 
F5G20730 
F5G20740 
F5G20750 
F5G20760 
F5G20770 
F5G20780 
F5G20790 
F5G20800 
F5G20810 
F5G20820 
F5G20830 
F5G20840 
F5G20850 
F5G20860 
F5620870 
F5G20880 
F5G20890 
F5G209O0 
F5G20910 
F5G20920 
F5G20930 
F5620940 
F5G20950 
F5620960 
F5G20970 
F5G20980 
F5G20990 
F5G21OO0 
F5G21010 
F5G21020 
F5G21030 
F5G21040 
F5G21050 
F5G21060 



H C 



U 



u 



03355 
03356 
03357 
03360 
03361 
03362 
03363 
03364 
03365 
03366 
03367 
03370 
03371 
03372 
03373 
03374 
03375 
03376 
03377 
03400 
03401 
03402 
03403 
03404 
03405 
03406 
03407 
03410 
03411 
03412 
03413 
03414 
03415 
03416 
03417 
03420 
03421 
03422 
03423 
03424 
03425 
03426 
03427 
03430 
03431 
03432 
03433 
03434 
03435 
03436 
03437 
03440 
03441 
03442 



02000 

02000 

-0 50000 

-0 32000 

34000 

02000 

02000 

02000 

50000 



07400 4 



50000 

60100 

62200 

50000 

56000 

04000 

00000 

07400 

50000 

-0 32000 

40200 

60100 

10000 

50000 

07400 

-0 53400 

50000 

07400 4 

-0 50000 1 

60200 



-0 32000 
60200 
53400 

-0 50000 
77100 
77100 

-0 32000 

-0 73400 
50000 
76700 
76700 



-0 60200 
2 00001 
-0 50000 
62200 
50000 
-0 32000 
34000 
02000 
02000 
07400 
02000 
53400 
50000 



03357 
04370 
00444 
00335 
00400 
03365 
04043 
03072 
00444 
00070 
12540 
00614 
00613 
04741 
00361 
03376 
03404 
00067 
12540 
00321 
00613 
00614 
03724 
00444 
01245 
00613 
05263 
00070 
12534 
00575 
00402 
00574 
00342 
00575 
00003 
00003 
00350 
00000 
00470 
00003 
00003 
00574 
03416 
00574 
12534 
12540 
00353 
00353 
03437 
03441 
00067 
03411 
00342 
00465 



X31 



X118 



X221 



X213 

X57 

X63 



X209 



X210 



X211 

X212 
X60 



TRA 
TRA 
CAL 
ANA 
CAS 
TRA 
TRA 
TRA 
CLA 
TSX 
CLA 
STO 
STO 
CLA 
LOG 
TLQ 
TXI 
TSX 
CLA 
ANA 
SUB 
STO 
TZE 
CLA 
TSX 
LXO 
CLA 
TSX 
CAL 
SLW 
ANA 
SLW 
LXA 
CAL 
ARS 
ARS 
ANA 
PDX 
CLA 
ALS 
ALS 
ORS 
TIX 
CAL 
STD 
CLA 
ANA 
CAS 
TRA 
TRA 
TSX 
TRA 
LXA 
CLA 



X31 NO 

X88 YES 

S3V5 

LK3 

XK17 WHAT TYPE ENTRY IS THIS 

X118 

X33 TRANSPARENT REGION 

X32 BB 

OPAQUE REGION 

IS 

THIS 



S3V5 

SE»4 

BBB+5#1 

XV24 

XV23 

LPLST 

FK4 

X221 

X213»0*- 

SE1»4 

BBB+5»1 

S2K1 

XV23 

XV 24 

X61 

S3V5 

S5»4 NOtMATCH ENTR» REQU» 



THE 
SAME 



REGION 

AS 
AT THE BEGINNING 
OF THE 

STORE 1ND. OF SAMENESS OF 1ST REGION 

LPLST 



XV23tl 

REGtl 

SE»4 

BBB+1#1 

XV9 

XK20 

XV8 

S5K5#2 

XV9 

3*2 

3*2 

S9IC3 

0*4 

EN4+3t4 

3»2 

3*2 

XV8 

X210»2fl 

XV8 

BBB+1»1 

BBB+5»1 

SBK2 

SBK2 

X211 

X212 

SE1»4 

X209 

S5K5tl 

IN1+3»1 



GET 

REGION WORD 

GET INDEX OF 1ST BB 

GET THE 

ORIGINAL PERM. NOS. 

STORE WORD TO 

CONTAIN NEW PERM. NOS. 

SET COUNT TO 3 

GET THE 

PERM. NO* AND 

PUT IT 

IN 4* 

GET THE 

CORRESPONDENCE 

OF THE ENTR. REQUIREMENTS 

FORM NEW PERM. 

STORE NEW PERM. 
NOS* 

IS THIS THE LAST 
BB IN REGION 

NO. 

YES* DONE 

ARRANGE TO DO NEXT 

BB. 

SET COUNT TO 3 

GET INDEX 



F5G21070 

F5G21080 

F 5621090 

F5G21100 

F5G21110 

F5G21120 

F5G2U30 

F5G21140 

F5G21150 

F5G21160 

F5G21170 

F5G21180 

F5G21190 

F5G21200 

F5G21210 

F5G21220 

F5G21230 

F5G21240 

F5G21250 

F5G21260 

F5621270 

F5G21280 

F5G21290 

F5G21300 

F5G21310 

F5G21320 

F5G21330 

F5G21340 

F5621350 

F5G21360 

F5G21370 

F5G21380 

F5621390 

F5G21400 

F5G21410 

F5G21420 

F5G21430 

F5G21440 

F5G21450 

F5G21460 

F5G21470 

F5G21480 

F5G21490 

F5G21500 

F5G21510 

F5G21520 

F5G21530 

F5G21540 

F5621550 

F5G21560 

F5621570 

F5G21580 

F5G21590 

F5G21600 



k' 



03443 
03444 

03445 
03446 
03447 
03450 
03451 
03452 
03453 
03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 
03472 
03473 
03474 
03475 
03476 
03477 
03500 
03501 
03502 
03503 
03504 
03505 
03506 
03507 
03510 
03511 
03512 
03513 
03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 
03524 
03525 
03526 
03527 
03530 



73400 
50000 
34000 
02000 
02000 
34000 
76100 
02000 
02000 
50000 
10000 
07400 
00001 
07400 
50000 
34000 
07400 
02000 
02000 
50000 
73400 
50000 
62200 
53400 
50O0O 
34000 
02000 
50000 
60200 
00001 
53400 
63400 
50000 
34000 
02000 
02000 
34000 
76100 
02000 
77100 
62100 
50000 
34000 
02000 
02000 
77100 
62100 
40000 
07400 
50000 
32000 
60100 
50000 
07400 



00000 
00473 
00430 
03450 
03734 
00337 
00000 
03454 
03771 
00561 
03457 
01566 
03442 
02042 
04741 
00324 
00067 
03466 
03471 
12540 
00000 
05263 
00566 
00342 
00336 
00430 
03500 
00410 
00566 
03473 
00325 
00600 
05035 
00323 
03507 
03717 
00324 
00000 
03513 
00022 
00513 
05036 
00323 
03520 
03603 
00022 
00606 
00315 
00067 
12533 
00353 
00515 
00606 
00067 



X58 



X119 
X102 
X65 
X59 

X89 



X206 

X207 
X116 

X115 
X79 

X120 

X121 

X107 



PDX 
CLA 
CAS 
TRA 
TRA 
CAS 
NOP 
TRA 
TRA 
CLA 
TZE 
TSX 
TIX 
TSX 
CLA 
CAS 
TSX 
TRA 
TRA 
CLA 
PDX 
CLA 
STD 
LXA 
CLA 
CAS 
TRA 
CAL 
ORS 
TIX 
LXD 
SXD 
CLA 
CAS 
TRA 
TRA 
CAS 
NOP 
TRA 
ARS 
STA 
CLA 
CAS 
TRA 
TRA 
ARS 
STA 
ADD 
TSX 
CAL 
ANA 
STO 
CLA 
TSX 



0*2 OF EN* 

ENl+3»2 IS C(ENM) 

IR1+3»1 aCdRNJ 

X58 

X64 YES* 

S5K2 IS C(ENM) REAL 

N0» 
X119 
X67 YES* 

AC1+3»1 NO»IS 
X59 1RN ACTIVE 
SB»4 YES#RECORD SXD NECESSARY. 

X60*l*l 

$G*4 PERMUTE REGION WORD 

LPLST 

S3K2 

SElf4 

X206 

X207 

BBB+5»1 

0*1 

REG*1 

XV 2 

S5K5»1 

S5K1 

I R 1+3*1 

X115 

XK23+3»1 

XV2 

X116*l»l 

S3K3.2 

XV12»2 

LPLST+S3P1*2 

S3K1 IS THIS END LOOP LIST 

X120 

X81 YES* 

S3K2 



IS IT A BB 
NO 



FORM NO OF 1ST BB IN REGION 



IS THIS IR EMPTY 

YES* INITIALIZE IR 
TO EMPTYNESS 
COUNT TO 3 
PREPARE TO SCAN LOOP LIST 



IS IT A BB 



X121 

18 YES. 

SBV3 STORE EXIT BB NO. 

LPLST+S3P1+1»2 

S3K1 IS NEXT QUANTITY AN END LPLST 

X107 

X114 YES. 

18 

XV18 STORE ENTRY BB NO. 

ONEA 

SE1»4 

BBB»1 

SBK2 

SBV5 

XV18 

SE1»4 



F5G21610 

F5G21620 

F5G21630 

F5G21640 

F5G21650 

F5G21660 

F5G21670 

F5G21680 

F5GZ1690 

F5G21700 

F5G21710 

F5G21720 

F5G21730 

F5G21740 

F5G21750 

F5G21760 

F5G21770 

F5G21780 

F5G21790 

F5G21800 

F5G21810 

F5G21820 

F5G21830 

F5G21840 

F5621850 

F5G21860 

F5G21870 

F5G21880 

F5G21890 

F5G21900 

F5G21910 

F5G21920 

F5G21930 

F5G21940 

F5G21950 

F5G21960 

F5G21970 

F5G21980 

F5G21990 

F5G22000 

F5G22010 

F5G22020 

F5G22030 

F5G22040 

F5G22050 

F5G22060 

F5G22070 

F5G22080 

F5G22090 

F5G22100 

F5G22110 

F5G22120 

F5G22130 

F5G22140 



u 



u 



03531 
03532 
03533 
03534 
03535 
03536 
03537 
03540 
03541 
03542 
03543 
03544 
03545 
03546 
03547 
03550 
03551 
©3552 
03553 
03554 
03555 
03556 
03557 
03560 
03561 
03562 
03563 
03564 
03565 
03566 
03567 
03570 
03571 
03572 
03573 
03574 
03575 
03576 
03577 
03600 
03601 
03602 
03603 
03604 
03605 
03606 
03607 
03610 
03611 
03612 
03613 
03614 
03615 
03616 



50000 
32000 
60200 
07400 
50000 
32000 
34000 
02000 
02000 
50000 
40000 
34000 
02000 
02000 
02000 
50000 
76000 
60100 
02000 
50000 
40000 
07400 
50000 
32000 
60100 
50000 
07400 
50000 
32000 
60200 
07400 
50000 
32000 
34000 
02000 
02000 
50000 
40000 
34000 
02000 
02000 
02000 
50000 
12000 
50000 
02000 
50000 
76000 
60100 
02000 
53400 
50000 
34000 
76100 



12533 
00353 
00512 
00055 
15674 
00353 
00513 
03542 
03550 
00512 
00315 
00515 
03533 
03554 
03533 
15674 
00003 
15674 
03542 
00513 
00315 
00067 
12533 
00321 
00515 
00513 
00067 
12533 
00321 
00512 
00044 
16734 
00353 
00606 
03575 
03607 
00512 
00316 
00515 
03566 
03613 
03566 
00550 
03613 
04741 
03520 
16734 
00003 
16734 
03575 
00600 
05035 
00324 
00000 



X109 



X108 



X110 



X222 



X112 



Xlll 



X114 



X113 



X74 



CLA 
ANA 
SLW 
TSX 
CAL 
ANA 
CAS 
TRA 
TRA 
CLA 
ADD 
CAS 
TRA 
TRA 
TRA 
CLA 
SSM 
STO 
TRA 
CLA 
ADO 
TSX 
CLA 
ANA 
STO 
CLA 
TSX 
CLA 
ANA 
SLW 
TSX 
CAL 
ANA 
CAS 
TRA 
TRA 
CLA 
ADO 
CAS 
TRA 
TRA 
TRA 
CLA 
TPL 
CLA 
TRA 
CLA 
SSM 
STO 
TRA 
LXD 
CLA 
CAS 
NOP 



BBBtl 

SBK2 

SBV2 

SE5»4 

PRED»1 

SBK2 

SBV3 IS THIS THE RIGHT TRANSFER 

X108 

X110 YES 

SBV2 ARRANGE TO TRY 

ONEA NEXT PRED. nn 

SBV 5 IS THIS PRED ENTRY IN SAME BB 

X109 
X222 
X109 
PRED»1 SET SIGN 

OF PRED. 
PRED»1 ENTRY NEGATIVE. 
X108 

SBV3 GET INDEX 

ONEA 
SE1»4 OF 

bbb 9 r 

S2K1 

SBV5 

SBV3 

SE1#4 

BBB f 1 

S2K1 

SBV2 

SE6»4 

SUCCtl 

SBK2 

XV18 IS THIS RIGHT SUCC. 

Xlll 

X113 

SBV2 ARRANGE TO TRY NEXT SUCC. 

ONED 

SBY5 IS THIS SUCC IN SAME BB 

X112 
X74 
X112 

LPIND IS THIS 
X?4 A LOOP 
LPLST YES 
X107 

SUCC»1 SET SIGN 
OF SUCC* ENTRY 
SUCCtl NEGATIVE 
Xlll 
XV12»2 

LPLST+S3P1#2 
S3K2 IS IT A BB 



F5G22150 

F5G22160 

F5G22170 

F5G22180 

F5G22190 

F5G22200 

F5G22210 

F5G22220 

F5G22230 

F5G22240 

F5G22250 

F5G22260 

F5G22270 

F5G22280 

F5G22290 

F5G2230O 

F5G22310 

F5G22320 

F5G22330 

F5G22340 

F5G22350 

F5G22360 

F5G22370 

F5G22380 

F5G22390 

F5G22400 

F5G22410 

F5G22420 

F5G22430 

F5G22440 

F5G22450 

F5G22460 

F5622470 

F5G22480 

F5G22490 

F5G22500 

F5622510 

F5G22520 

F5G22530 

F5G22540 

F5G22550 

F5G22560 

F5G22570 

F5G22580 

F5G22590 

F5622600 

F5G22610 

F5G22620 

F5G22630 

F5G22640 

F5G22650 

F5G22660 

F5G22670 

F5G22680 



a'7 



03617 





02000 





03621 




03620 





02000 





03662 




03621 


-0 


73400 


4 


00000 


X122 


03622 


3 


77776 


4 


03624 




03623 





77100 





00022 




03624 





07400 


4 


00067 


X205 


03625 





50000 


1 


12540 




03626 


-0 


73400 


1 


00000 




03627 


-0 


50000 


1 


05263 




03630 





60200 





00605 




03631 





10000 





03655 




03632 


-0 


32000 





00335 




03633 


-0 


60200 





00566 




03634 


-0 


50000 





00404 




03635 


-0 


50100 





00605 




03636 





32000 





00566 




03637 





50000 





00314 




03640 





60100 


1 


05263 




03641 





50000 





00605 




03642 





77100 





00022 




03643 





62100 





00612 


X75 


03644 





07400 


4 


00067 




03645 





50000 





00565 


X101 


03646 





62200 


1 


12540 




03647 





50000 


1 


12540 




03650 


-0 


32000 





00353 




03651 





34000 





00353 




03652 





02000 





03643 




03653 





02000 





03665 




03654 





02000 





03643 




03655 





50000 





00612 


X105 


03656 





07400 


4 


00067 




03657 





50000 





00404 




03660 





62100 


1 


12540 




03661 





02000 





03717 




03662 





77100 





00022 


X80 


03663 





62100 





00612 




03664 





07400 


4 


00067 




03665 


-0 


53400 


2 


00600 


X76 


03666 


1 


77777 


2 


03667 


X140 


03667 


-0 


63400 


2 


00600 




03670 





50000 


2 


05035 


X77 


03671 





34000 





00323 




03672 


1 


00000 





03700 


X219 


03673 





50000 





00336 




03674 





62100 


1 


12540 


X216 


03675 





50000 





00565 




03676 





62200 


1 


12540 




03677 





02000 





03503 




03700 





56000 





00324 


X217 


03701 





04000 





03704 




03702 





77100 





00022 


X215 


03703 


1 


00000 





03674 


X218 


03704 


-0 


63400 


2 


03672 


X220 



TRA X122 

TRA X80 YES 

POX 0*4 

TXH X205»4*-2 IS THE DECR. AN IMPOSSIBLE BB 

ARS 18 

TSX SE1»4 

CLA BBB+5#1 THE 

PDX 0#1 REGION 

CAL REG#1 WORD 

SLW XV17 

TZE X105 HAS THIS REGION ALREADY BEEN RENUMBERED 

ANA LK3 OR THE LX BITS FOR 

ORS XV2 OLD REGION IN NEW REGION WORD. 

CAL XK22 AND THE OLD PHI 

ORA XV17 BITS 

ANS XV2 INTO NEW REGION WORD. 

CLA ZERO CLEAR OLD 

STO REG»1 REGION WORD. 

CLA XV17 GET INDEX OF 

ARS 18 FIRST BB IN REG 

STA XV22 STOREBB NO. 

TSX SE1.4 GET INDEX OF BB 

CLA XVI STORE THE 

STD BBB+5#1 NEW REGION NO. 

CLA BBB*5»1 IS THIS THE 

ANA SBK2 LAST BB 

CAS SBK2 OF THE REGION 

TRA X75 

TRA X76 YES. 

TRA X75 

CLA "AV22 RECORD THAT PREVIOUSLY 

TSX SE1»4 NUMBERED BB 

CLA KK22 WAS LAST 

STA BBB+5tl ONE IN NEW REGION. 

TRA X81 FINISHED RENUMBERING. 

ARS 18 

STA XV22 

TSX SE1»4 

LXD XV12»2 

TXI X140+1»2»-1 

SXD XV12»2 

CLA LPLST+S3P1»2 

CAS S3K1 IS THIS END LOOP LIST 

TXI X217.0*- SEE X217+2 

CLA S5K1 YES 

STA BBB+5»1 RECORD THE NEXT BB NO. 

CLA XVI RECORD THE 

STD BBB+5»1 NEW REGION 

TRA X79 NO. 

LDQ S3K2 

TLQ X220 

ARS 18 NO 

TXI X216»0»- 

SXD X219»2 



F5G22690 
F5G22700 
F5G22710 
F5G22720 
F5G22730 
F5G22740 
F5G22750 
F5G22760 
F5G22770 
F5G22780 
F5G22790 
F5G22800 
F5G22810 
F5G22820 
F5G22830 
F5G22840 
F5G22850 
F5G22860 
F5G22870 
F5G22880 
F5G22890 
F5G22900 
F5G22910 
F5G22920 
F5G22930 
F5G22940 
F5G22950 
F5G22960 
F5G22970 
F5G22980 
F5G22990 
F5G23000 
F5G23010 
F5G23020 
F5G23030 
F5G23040 
F5623050 
F5G23060 
F5G23070 
F5G23080 
F5G23090 
F5G23100 
F5G23110 
F5G23120 
F5G23130 
F5G23140 
F5G23150 
F5G23160 
F5G23170 
F5G23180 
F5G23190 
F5G23200 
F5G23210 
F5G23220 



*■ v * 



U 



u 



03705 

03706 

03707 -0 
03710 
03711 
03712 
03713 
03714 

03715 -0 

03716 1 

03717 

03720 -0 

03721 -0 

03722 

03723 

03724 

03725 -0 

03726 
03727 
03730 
03731 
03732 
©3733 
03734 
03735 

03736 -0 

03737 

03740 -0 

03741 -0 

03742 

03743 

03744 -0 

03745 

03746 -0 

03747 -0 

03750 -0 

03751 

03752 

03753 

03754 -0 

03755 

03756 

03757 -0 

03760 

03761 

03762 -0 

03763 

03764 -0 

03765 

03766 -0 

03767 

03770 

03771 -0 

03772 -0 



07400 

50000 

73400 

50000 

62200 

50000 

07400 

50000 

53400 

00000 

50000 

50100 

53400 

60100 

02000 

53400 

75400 

62200 

62200 

00001 

50000 

07400 

02000 

50000 

10000 

53400 

50000 

63400 

63400 

07400 

50000 

73400 

56000 

53400 

53400 

77300 

16200 

02000 

50000 

10000 

50000 

07400 4 

53400 

50000 

12000 

53400 

50000 

53400 

07400 

53400 

07400 4 

02000 

63400 1 

53400 1 



00070 

12540 

00000 

05263 

03703 

00612 

00067 

03703 

03672 

03702 

00566 X81 

00315 

00565 

05263 

02177 

00342 X61 

00000 X62 

00465 

00470 

03725 

00444 

01466 

03406 

00561 X64 

03457 

00440 

05034 

00577 

00600 

00070 

12540 

00000 

05263 

00577 

00600 

00003 

03753 

03456 

00614 X66 

03762 

04741 

01523 * 

00577 

00511 

03456 

00440 X208 

05034 

00577 

01753 

00577 

01661 

03457 

00577 X67 

00440 



GET REGION WORD 



TSX SE>4 

CLA BBB+5»1 

PDX 0*1 

CLA REG»1 

STD X218 

CLA XV22 

TSX SE1»4 

CLA X218 

LXD X219»2 

TXI X215»-»- 

CLA XV2 

ORA ONEA 

LXD XVI »1 NEW REGION 

STO REG>1 WORD. 

TRA F 

LXA S5K5»1 

PXD 0»1 PLACE APPROPRIATE NOS. 

STD IN1+3#1 IN CORRSEPONDENCE 

STD EN4+3»1 TABLES 

TIX X62»l#l 

CLA S3V5 

TSX S9f4 SET THE ENTRANCE REQUIREMENTS 

TRA X63 

CLA AC1+3»1 IS THIS I.R« 

TZE X59 ACTIVE 

LXD S3V4»4 YES. 

CLA LPLST+S3P1-1»4 GET 

SXD XV11«1 THE 

SXD XV12»2 REGION 

TSX SE>4 WORD 

CLA BBB+5#1 IN 

PDX 0»4 THE 

LDQ REG* 4 MQ« 

LXD XV11#1 HAS THERE 

LXD XV12»2 

RQL 3»2 BEEN AN LX 

TOP X66 FOR THIS X«R* 

TRA X65 YES 

CLA XV24 

TNZ X208 

CLA LPLST 

TSX SA»4 

LXD XVlltl 

CLA ACT 1+3 »1 

TPL X65 

LXD S3V4*4 YES» MARK ALL 

CLA LPLST+S3P1-1»4 BBS IN OPAQUE 

LXD XV11»2 REGION ACTIVE 

TSX SD»4 

LXD XVlltl 

TSX SC»4 MARK SECTION OF LLLST ACTIVE 

TRA X59 

SXD XV11»1 

LXD S3V4#1 GET 



IS THIS SAME REG» AS BEGINS STRING 

YES 

GET ACTIVE INDS# AT START OF STRING 

WAS THIS IR ACTIVE AT START 



F5G23230 
F5G23240 
F5G23250 
F5G23260 
F5G23270 
F5G23280 
F5G23290 
F5G23300 
F5G23310 
F5G23320 
F5G23330 
F5G23340 
F5G23350 
F5G23360 
F5G23370 
F5G23380 
F5G23390 
F5G23400 
F5G23410 
F5G23420 
F5G23430 
F5G23440 
F5G23450 
F5G23460 
F5G23470 
F5G23480 
F5623490 
F5G23500 
F5G23510 
F5G23520 
F5G23530 
F5G23540 
F5G23550 
F5G23560 
F5G23570 
F5G23580 
F5G23590 
F5G23600 
F5G23610 
F5G23620 
F5G23630 
F5G23640 
F5G23650 
F5G23660 
F5G23670 
F5G23680 
F5G23690 
F5G23700 
F5623710 
F5G23720 
F5G23730 
F5G23740 
F5G23750 
F5G23760 



V 



03773 
03774 
03775 
03776 
03777 
04000 
04001 
04002 
04003 
04004 
04005 
04006 
04007 
04010 
04011 
04012 
04013 
04014 
04015 
04016 
04017 
04020 
04021 
04022 
04023 
04024 
04025 
04026 
04027 
04030 
04031 
04032 
04033 
04034 
04035 
04036 
04037 
04040 
04041 
04042 
04043 
04044 
04045 
04046 
04047 
04050 
04051 
04052 
04053 
04054 
04055 
04056 
04057 
04060 



50000 
34000 
76100 
02000 
77100 
62100 
50000 
07400 
50000 
60100 
50000 
60200 
07400 
50000 
32000 
34000 
02000 
02000 
50000 
40000 
02000 
53400 
50000 
77100 
77100 
32000 
34000 
02000 
02000 
00001 
07400 
50000 
77100 4 
60200 1 
53400 4 
50000 
77100 4 
60200 
53400 1 
02000 
50000 
07400 4 
50000 
07400 
50000 
07400 
50000 
73400 
50000 
07400 
63400 
50000 
60200 
32000 



05033 
00324 
00000 
04000 
00022 
00513 
05034 
00070 
12534 
00575 
12533 
00512 
00055 
15674 
00353 
00513 
04015 
04020 
00512 
00315 
04006 
00342 
00575 
00003 
00003 
00350 
00577 
04030 
04032 
04021 
00004 
00377 
00Q03 
15674 
00577 
00340 
00003 
00566 
00577 
03454 
00444 
01245 
00444 
01523 
00444 
00070 
12540 
00000 
05263 
00070 
00601 
12534 
00575 
00402 



X69 



X70 
X72 



CLA LPLST+S3P1-2»1 PRED+ NO 

CAS S3K2 IS THIS A BB 

NOP NO 

TRA X123 

ARS 18 YES»SHIFT BB NO RIGHT. 
X123 STA SBV3 AND STORE IT 

CLA LPLST+S3P1-1»1 GET INDEX OF 
<5 TSX SE*4 THIS BB 

CLA BBB+1»1 GET TO STORE 

STO XV9 PREM. NO. 

CLA BBB*1 GET PRED. NO. 
X68 SLW SBV2 

TSX SE5*4 GET INDEX OF PRED. 

CAL PRED*1 IS THIS THE 

ANA SBK2 RIGHT PRED 

CAS SBV3 

TRA X69 

TRA X70 YES. 

CLA SBV2 

ADD ONE A 

TRA X68 

LXA S5K5»4 SET COUNT TO 3 

CAL XV9 FIND 

ARS 3*4 THE 

ARS 3*4 PERM+ NO. 

ANA S9K3 

CAS XV11 IS THIS THE RIGHT i.R. 

TRA X71 NO* 

TRA X73 YES* 
X71 TIX X72»4»l NOt 

TSX 4*4 DIAGNOSTIC* ERROR. 
X73 CAL XK16 RECORD THAT AN 

ARS 3*4 LX IS 

ORS PRED»1 NECESSARY. 

LXD XV11*4 RECORD 

CAL S5K3 LX 

ARS 3*4 FOR THIS I.R. 

ORS XV2 IN THIS REGION. 

LXD XV11»1 

TRA XI 19 
X33 CLA S3V5 

TSX S5*4 MATCH ENTRANCE REQU. 

CLA S3V5 

TSX SA*4 GET EXIT COND. 

CLA S3V5 

TSX SE*4 GET INDEX OF 

CLA BBB+5»1 B.B. 

PDX 0*1 GET 

CLA REGtl REGION 

TSX SE*4 WORD. 
X40 SXD XV13»1 GET INDEX OF FIRST BB. 

CAL BBB+1»1 CLEAR REGISTER TO 

SLW XV9 CONTAIN PERM. NOS. 

ANA XK20 GET ORIGINAL PERM. NOS. 



F5G23770 
F5623780 
F5G23790 
F5G23800 
F5623810 
F5G23820 
F5G23830 
F5G23840 
F5G23850 
F5G23860 
F5G23870 
F5G23880 
F5G23890 
F5G23900 
F5G23910 
F5G23920 
F5623930 
F5G23940 
F5G23950 
F5G23960 
F5G23970 
F5G23980 
F5G23990 
F5G24000 
F5G24010 
F5G 24020 
F5G24030 
F5G24040 
F5G24050 
F5G24060 
F5624070 
F5G24080 
F5624090 
F5G24100 
F 56241 10 
F5G24120 
F5G24130 
F5G24140 
F5G24150 
F5G24160 
F5G24170 
F5G24180 
F5G24190 
F5G24200 
F5G24210 
F5G24220 
F5G24230 
F5G24240 
F5G24250 
F5624260 
F5G24270 
F5G24280 
F5G24290 
F5G24300 



^ 



V 



h i 



u 



u 



04061 
04062 
04063 
04064 
04065 
04066 
©4067 
04070 
04071 
04072 
04073 
04074 
04075 
04076 
04077 
04100 
04101 
04102 
04103 
04104 
04105 
04106 
04107 
04110 
04111 
04112 
04113 
04114 
04115 
04116 
04117 
04120 
04121 
04122 
04123 
04124 
04125 
04126 
04127 
04130 
04131 
04132 
04133 
04134 
04135 
04136 
04137 
04140 
04141 
04142 
04143 
04144 
04145 
04146 



60200 
53400 
-0 50000 
77100 
77100 
320O0 
73400 
50000 
76700 
76700 
60200 
►0 63400 
50000 
73400 
50000 
34000 
02000 
02000 
34000 
02000 
02000 
34000 
02000 
02000 
53400 
77777 
00001 
50000 
62200 
63000 
50000 
32000 
34000 
02000 
02000 
07400 
02000 
50000 
56000 
04000 
02000 
50000 
63400 
12000 
50000 
10000 
50000 
60100 
53400 
50000 
32000 
34000 
02000 
02000 



O0574 
00342 
00575 
00003 
00003 
00350 
00000 
00470 
00003 
*00003 
00574 
00576 
00470 
00000 
00473 
00336 
04103 
04150 
00333 
04106 
04111 
00430 
04111 
04132 
00576 
04113 
04063 
00574 
12531 
12531 
12535 
00353 
00353 
04124 
04217 
00067 
04055 
00506 
00337 
04135 
04111 
00511 
05664 
04126 
00561 
04111 
00430 
00611 
00576 
12535 
00336 
00611 
05644 
04213 



X34 



X35 



X36 
X42 
X37 



ei u XV8 

LXA S5K5»2 SET COUNT TO 3. 
X38 CAL XV9 GET THE 

ARS 3»2 PERM, 

ARS 3»2 NO. ANO 

ANA S9K3 PUT IT 

POX 0»4 IN 4* 

CLA EN4+3*4 GET THE CORRESPONDENCE 

ALS 3#2 OF THE ENTR* 

ALS 3»2 REQUIREMENTS. 

ORS XV8 FORM NEW PERM. NOS. 

SXD XVlOfl 

CLA EN4+3»4 

PDX 0#1 GET INDEX OF I.R. 

CLA ENl+3»4 

CAS S5K1 IS ENM EMPTY 
. TRA X34 N0» 

TRA X41 YESt 

CAS LK1 NO»IS C(ENM)=E 

TRA X35 N0» 

TRA X36 YESt 

CAS IR1+3»1 C-(ENM)*C(IRN) 

TRA X36 NO 

TRA X43 YES 

LXD XV10»1 NO 

TXI X42+1>1#-1 

TIX X38#2»l COUNT TO 3 

CAL XV8 STORE NEW 

STD BBB-2»1 PERM. NOS. 

STP BBB~2»1 AND ACTIVE INDICATORS 

CLA BBB+2»1 IS THIS 

ANA SBK2 LAST BB IN REGION 

CAS SBK2 

TRA X39 

TRA X45 YES»DONE« 
X39 TSX SE1»4 GET INDEX OF NEXT B»B. 

TRA X40 
X200 CLA EXl+3t4 

LDQ S5K2 

TLQ X130 

TRA X36 
X43 CLA ACTl+3»4 
PWO SXD W2+ltl 

TPL X200 
X130 CLA AC1+3»1 

TZE X36 

CLA IR1+3»1 YES 

STO XV21 

LXD XV10»1 DOES THIS BB CONTAIN THE 

CLA BBB+2»1 SAME TAG IN THIS POSITION 

ANA S5K1 

CAS XV21 

TRA WO 

TRA X44 YES. 



IS CONTENTS OF IR 
AT EXIT 
REAL 
YES 



IS IT ACTIVE AT EXIT 
YES.IS THIS IR ACTIVE 



F5G24310 

F5G24320 

F5G24330 

F5G24340 

F5G24350 

F5G24360 

F5G24370 

F5G24380 

F5G24390 

F5G24400 

F5G24410 

F5G24420 

F5G24430 

F5624440 

F5G24450 

F5G24460 

F5G24470 

F5G24480 

F5G24490 

F5G245O0 

F5G24510 

F5G24520 

F5G24530 

F5G24540 

F5G24550 

F5G24560 

F5G24570 

F5624580 

F5G24590 

F5G24600 

F5G24610 

F5G24620 

F5G24630 

F5G24640 

F5G24650 

F5G24660 

F5G24670 

F5G24680 

F5G24690 

F5G24700 

F5G24710 

F5G24720 

F5G24730 

F5G24740 

F5G24750 

F5G24760 

F5G24770 

F5G24780 

F5624790 

F5G24800 

F5G24810 

F5G24820 

F5G24830 

F5G24840 



04147 02000 05644 



04150 





50000 


1 


00430 


X41 


04151 





60100 





00572 




04152 





76700 





00022 




04153 





40000 


1 


00430 




04154 





60200 





00573 




04155 





50000 


1 


00430 




04156 





56000 





00337 




04157 





04000 





04176 




04160 


-0 


53400 


1 


00601 




04161 





53400 


4 


00342 




04162 


-0 


50000 


1 


12535 


X85 


04163 





76500 





00022 




04164 





34000 





00572 




04165 





02000 





04167 




04166 





02000 





04202 




04167 





50000 





00314 


X82 


04170 





76300 





00022 




04171 





34000 





00572 




04172 





02000 





04174 




04173 





02000 





04206 




04174 


1 


77777 


1 


04175 


X83 


04175 


2 


00001 


4 


04162 


X84 


04176 





50000 





00573 


X201 


04177 


-0 


53400 


1 


00576 




04200 





60100 


1 


12535 




04201 





02000 





04112 




04202 


-0 


50000 





00366 


X86 


04203 





62200 





00573 




04204 





63000 





00573 




04205 





02000 





04167 




04206 


-0 


50000 





00573 


X87 


04207 


-0 


32000 





00401 




04210 





40000 





00333 




04211 





60200 





00573 




04212 





02000 





04174 




04213 


-0 


50000 





00340 


X44 


04214 





77100 


2 


00003 




04215 


-0 


60200 





00574 




04216 





02000 





04112 




04217 





53400 


2 


00342 


X45 


04220 


-0 


63400 


2 


00602 


X56 


04221 





50000 


2 


00470 




04222 


-0 


73400 


4 


00000 




04223 


-0 


63400 


4 


00514 




04224 





50000 


2 


00473 




04225 





34000 





00336 




04226 





02000 





04230 




04227 





02000 





04343 




04230 





34000 





00333 


X46 


04231 





02000 





04233 




04232 





02000 





04307 





TRA WO „ 

CIXV10)* INDEX OF PARTICULAR 
ENTRANCE REQUIREMENT. 

CLA IR1+3»1 

STO XV6 

ALS 18 STORE AWAY THIS 

ADD IR1+3»1 TAG TEMPORARILY. 

SLW XV7 

CLA IRl+Sfl IS THIS 

LDQ S5K2 TAG 

TLQ X201 

LXD XV13»1 

LXA S5K5*4 SET COUNT TO 3. 

CAL BBB+2#1 

LRS 18 

CAS .XV6 IS ENTR. REQU. EQUAL TO TAG 

TRA X82 NO* 

TRA X86 YES. 

CLA ZERO NO. 

LLS 18 

CAS XV6 IS TAG EQUAL TO EXIT COND. 

TRA X83 

TRA X87 YES 

TXI X83+l»l»-l 

TIX X85.4.1 COUNT TO 3. 

CLA XV7 STORE THE 

LXD XV1Q.1 NEW ENTRANCE- 

STO BBB+2»1 EXIT REQUI. 

TRA X42 

CAL XK18 PUT AN E 

STD XV7 IN THE ENTR. REQU. 

STP XV7 

TRA X82 

CAL XV7 PLACE E 

ANA XK19 IN 

ADD LK1 EXIT 

SLW XV7 REQUIREMENT. 

TRA X83 

CAL S5K3 RECORD THIS 

ARS 3*2 I.R. 

ORS XV8 ACTIVE 

TRA X42 

LXA S5K5«2 

SXD XV14»2 

CLA EN4+3.2 

PDX 0.4 GET INDEX 

SXD SBV4.4 OF I.R. 

CLA ENl+3»2 

CAS S5K1 IS ENM EMPTY 

TRA X46 

TRA X223 

CAS LK1 IS THERE HASH IN ENM 

TRA X134 

TRA X55 YES 



F5G24850 

F5G24860 

F5G24870 

F5G24880 

F5G24890 

F5G24900 

F5G24910 

F5G24920 

F5G24930 

F5G24940 

F5G24950 

F5G24960 

F5G24970 

F5G24980 

F5G24990 

F5G25000 

F5G25010 

F5G25020 

F5G25030 

F5G25040 

F5G25050 

F5G25060 

F5G25070 

F5G25080 

F5G25090 

F5G251O0 

F5G25110 

F5G25120 

F5G25130 

F5G25140 

F5G25150 

F5G25160 

F5G25170 

F5G25180 

F5G25190 

F5G25200 

F5G25210 

F5G25220 

F5G25230 

F5G25240 

F5G25250 

F5G25260 

F5G25270 

F5G25280 

F5G25290 

F5G25300 

F5G25310 

F5G25320 

F5G25330 

F5G25340 

F5G25350 

F5G25360 

F5G25370 

F5G25380 



u 



u 



04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 
04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 
04262 
04263 
04264 
04265 
04266 
04267 
04270 
04271 
04272 
04273 
04274 
04275 
04276 
04277 
04300 
04301 
04302 
04303 
04304 
04305 
04306 
04307 
04310 
04311 
04312 
04313 
04314 
04315 
04316 
04317 
04320 



-0 



34000 
02000 
02000 
53400 
50000 
34000 
76100 
02000 
77100 
62100 
50000 
07400 
50000 
60100 
50000 
73400 
53400 
50000 
77100 
60200 
50000 
60200 
07400 
50000 
32000 
34000 
02000 
02000 
50000 
40000 
02000 
53400 
50000 
77100 
77100 
32000 
34000 
02000 
02000 
00001 
07400 
50000 
77100 
60200 
53400 
50000 
1 0000 
07400 
53400 
53400 
50000 
60100 
50000 
12000 



00430 
04236 
04357 
00440 
05033 
00324 
00000 
04244 
00022 
00513 
05034 
00070 
12534 
00575 
12540 
00000 
00602 
00340 
00003 
05263 
12533 
00512 
00055 
15674 
00353 
00513 
04267 
04272 
00512 
00315 
04260 
00342 
00575 
00003 
00003 
00350 
00514 
04302 
04304 
04273 
00004 
00377 
00003 
15674 
00514 
00561 
04313 
01566 
00602 
00514 
00506 
00430 
00511 
04325 



X134 
X47 

X124 



X48 



X49 



X50 
X52 



X51 
X53 

X55 

X135 

X136 



CAS IR1+3.4 DOES CONTENTS OF IR EQUAL CONTENTS OF EN 

TRA X47 NO 

TRA X131 YES 

LXD S3V4tl GET AND 

CLA LPLST+S3P1-2»1 STORE PRED. 

CAS S3K2 BB 

NOP NO. 

TRA X124 

ARS 18 

STA SBV3 

CLA LPLST+S3P1-1»1 GET 

TSX SE»4 BB NO. 

CLA BBB+1.1 STORE THE 

STO XV9 PERM. NOS. 

CLA BBB+5tl 

PDX 0.4 

LXD XV14t2 

CAL S5K3 

ARS 3f2 

ORS REGt4 

CLA BBB»1 GET PRED. NO. 

SLW SBV2 STORE PRED. N0« 

TSX SE5»4 OBTAIN PRED. INDEX* 

CAL PREDtl IS THIS 

ANA SBK2 THE CORRECT 

CAS SBV3 PRED 

TRA X49 

TRA X50 YES. 

CLA SBV2 ARRANGE TO 

ADD ONEA TRY NEXT PREDECESSOR. 

TRA X48 

LXA S5K5»4 1 HAS INDEX OF PRED. 

CAL XV9 EXTRACT 

ARS 3»4 THE 

ARS 3t4 PERM. 

ANA S9K3 NO. 

CAS SBV4 IS THIS THE PERM. NO. 

TRA X51 

TRA X53 YES. 

TIX X52»4»l 

TSX 4»4 DIAGNOSTICt ERROR. 

CAL XK16 GENERATE 

ARS 3*4 THE LX BIT* 

ORS PRED»1 INSERT LX BIT. 

LXD SBV4.1 IS THE 

CLA AC1+3»1 WR* 

TZE X135 ACTIVE 

TSX SB. 4 YES. RECORD SXD NEEDED. 



LXD XV14.2 
LXD SBV4.4 
CLA £Xl+3»2 
STO IRl+3»4 
CLA ACT1+3.2 
TPL X54 



REPLACE IR 
BY EXIT CONDITIONS 
OF THE 
REGION 
IS IR 
ACTIVE AT EXIT 



F5G25390 

F5G25400 

F5G25410 

F5G25420 

F5G25430 

F5G25440 

F5G25450 

F9To25460 

F5G25470 

F5G25480 

F5G25490 

F5G25500 

F5G25510 

F5G25520 

F5G25530 

F5G25540 

F5G25550 

F5G25560 

F5G25570 

F5G25580 

F5G25590 

F5G25600 

F5G25610 

F5G25620 

F5G25630 

F5G25640 

F5G25650 

F5G25660 

F5625670 

F5G25680 

F5G25690 

F5G25700 

F5G25710 

F5G25720 

F5G25730 

F5G25740 

F5G25750 

F5G25760 

F5G25770 

F5G25780 

F5G25790 

F5G25800 

F5G25810 

F5G25820 

F5G25830 

F5G25840 

F5G25850 

F5G25860 

F5G25870 

F5G25680 

F5G25890 

F5G25900 

F5G25910 

F5G25920 



04321 
04322 
04323 
04324 
04325 
04326 
04327 
04330 
04331 
04332 
04333 
04334 
04335 
04336 
04337 
04340 
04341 
04342 
04343 
04344 
04345 
04346 
04347 
04350 
04351 
04352 
04353 
04354 
04355 
04356 
04357 
04360 
04361 
04362 
04363 
04364 
04365 
04366 
04367 
04370 
04371 
04372 
04373 
04374 
04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 
04406 



50000 
76000 
40200 
60100 
53400 
00001 
07400 
•0 50000 
■0 32000 
60200 
53400 
50000 
40200 
10000 
50000 
60200 
00001 
02000 
50000 
56000 
04000 
53400 
34000 
02000 
02000 
00001 
02000 
50000 
60100 
02000 
56000 
50000 
04000 
53400 
07400 
02 000 
50000 
12000 
02000 
50000 
12000 
50000 
34000 
76100 
02000 
77100 
62100 
50000 
07400 
-0 63400 
50000 
60200 
07400 
50000 



00440 
00003 
00316 
00561 
00602 
04220 
02042 
05263 
00404 
05263 
00342 
00430 
00336 
04341 
00410 
05263 
04334 
03077 
00430 
00337 

04325 

1 00342 
00506 
04352 
04354 
04347 
04325 
00333 
00430 
04325 
00506 
00337 
04365 
00514 
01661 

04313 

2 00511 
04313 
04362 
00550 
04416 
04740 
00324 
00000 
04377 
00022 
00513 
04741 
00070 
00574 
12533 
00604 
00055 
15674 



X54 



XY1 

XY2 
X223 

X225 

X224 
X226 

X131 

X133 

X132 

X88 



X125 



X91 



CLA 
SSM 
SUB 
STO 
LXD 
TIX 
TSX 
CAL 
ANA 
SLW 
LXA 
CLA 
SUB 
TNZ 
CAL 
ORS 
TIX 
TRA 
CLA 
LOQ 
TLO 
LXA 
CAS 
TRA 
TRA 
TIX 
TRA 
CLA 
STO 
TRA 
LDQ 
CLA 
TLQ 
LXD 
TSX 
TRA 
CLA 
TPL 
TRA 
CLA 
TPL 
CLA 
CAS 
NOP 
TRA 
ARS 
STA 
CLA 
TSX 
SXO 
CLA 
SLW 
TSX 
CLA 



S3V4 



SET 

ACTIVE 
INDICATOR 



COUNT TO 
3 
PERMUTE REGION WORD 



ONED 

ACl+3#4 

XV14»2 

X56»2»l 

SGt4 

REG* 2 

XK22 

REGf2 

S5K5*4 

IRl+3»4 

S5K1 

XY2 

XK23+3#4 

REG* 2 

XY1*4«1 

X3 

IRl+3t4 

S5K2 

X54 

S5K5»1 

EXl+3tl 

X224 

X226 

X225»l»l 

X54 

LK1 

IRl+3*4 

X54 

EXl+3»2 

S5K2 

XI 32 

SBV4»1 

SC#4 

X135 

ACTl+3#2 

X135 

X133 

LP1ND 

XY3 

LPLST-1 YES 

S3K2 IS LAST LPLST QUANTITY 

NO 
X125 
18 YES 
SBV3 
LPLST 
SE#4 GET 
XV8*1 
BBSfl 

XV16 STORE PRED* 

SE5*4 GET INDEX OF PRED* 
PREDtl IS 



IS CONTENTS OF IR REAL 



YES* SET COUNT TO 3 

IS CONTENTS SAME AS EXIT CONDITIONS 

YES 

COUNT TO 3 

REPLACE IR BY E 



IS THE EXIT 
CONDITION REAL FOR THIS 

NO 



IR 



RECORD PART OF LPLST ACTIVE 

IS THIS IR ACTIVE 
AT EXIT OF REGION 
YES 

IS THIS A LOOP 



A BB 



STORE PRED. NO* 

INDEX OF 1ST BB IN 
STORE INDEX OF 



LOOP* 
1ST BB 



N0< 



F5G25930 
F5G25940 
F5G25950 
F5G25960 
F5G25970 
F5G25980 
F5G25990 
F5G26000 
F5G26010 
F5G26020 
F5G26030 
F5G26040 
F5G26050 
F5G26060 
F5G26070 
F5G26080 
F5G26090 
F5G26100 
F5G26110 
F5G26120 
F5G26130 
F5G26140 
F5G26150 
F5G26160 
F5G26170 
F5G26180 
F5G26190 
F5G26200 
F5G26210 
F5G26220 
F5G26230 
F5G26240 
F5G26250 
F5G26260 
F5G26270 
F5G26280 
F5626290 
F5G26300 
F5626310 
F5G26320 
F5G26330 
F5G26340 
F5G26350 
F5626360 
F5626370 
F5G26380 
F5G26390 
F5626400 
F5G26410 
F5G26420 
F5G26430 
F5G26440 
F 5626450 
F5G26460 



r 



h cc 



U 



u 



04407 
04410 
04411 
04412 
04413 
04414 
04413 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04430 
©4431 
04432 
04433 
04434 
04435 
04436 
04437 
04440 
04441 
04442 
04443 
04444 
04445 
04446 
04447 
04450 
04451 
04452 
04453 
04454 
04455 
04456 
04457 
04460 
04461 
04462 
04463 
04464 
04465 
04466 
04467 
04470 
04471 
04472 
©4473 
04474 



-0 32000 
34000 
02000 
02000 
50000 
40000 
02000 
53400 
07400 
00001 
02000 
63400 
34000 
02000 
02000 
•0 50000 
77100 



-0 53400 1 



60200 
63400 
63400 
50000 
07400 
53400 
53400 
50000 
77100 
60200 
53400 
00000 
53400 



53400 4 



50000 
60100 
50000 
77100 
77100 
32000 
73400 
50000 
77100 
34000 
76100 
02000 
02000 
50000 
10000 
63400 
63400 
07400 
53400 
53400 
7777 7 
0000 1 



00353 

00513 

04413 

04445 

00604 

00315 

04404 

00342^ 

01661 

04417 

03461 

04444 

00430 

04426 

04473 

00340 

00003 

00565 

05263 

00602 

00603 

00604 

00055 

00602 

00603 

00377 

00003 

15674 

04444 

04464 

00574 

00342 

12534 

00575 

00575 

00003 

00003 

00350 

00000 

12535 

00022 

00337 

00000 

04464 

04422 

00561 

04473 

00602 

00603 

01566 

00602 

00603 

04474 

04451 



X90 



XY3 
XY4 



X97 



X98 



X137 
X92 



X95 



X96 



IS CONTENTS OF IRN EQUAL TO CONTENTS OF ENM 



X93 
X94 



ANA SBK2 THIS THE 

CAS SBV3 RIGHT PRED 

TRA X90 

TRA X92 YES 

CLA XV 16 

ADD ONEA 

TRA X91 

LXA S5K5»1 

TSX SC»4 

TIX XY4.1.1 

TRA X89 

SXD X137tl 

CAS IR1+3.1 

TRA X98 

TRA X93 YES 

CAL S5K3 RECORD LX FOR 

ARS 3*1 THIS IR IN THIS 

LXD XVltl REGION. 

ORS REGtl 

SXD XV14.4 GET 

SXD XV15»2 INDEX 

CLA XV16 OF 

TSX SE5.4 PRED. 

LXD XV14»4 

LXD XV15»2 

CAL XK16 RECORD 

ARS 3*4 LX 

ORS PREDtl NECESSARY. 

LXD X137»l 

TXI X96»0>- 

LXD XV8t2 

LXA S5K5t4 SET COUNT TO 3 

CLA BBB+1.2 GET THE WORD WITH 

STO XV9 PERM* NOS. 

CAL XV9 GET 

ARS 3»4 INDEX 

ARS 3»4 OF 

ANA S9K3 THE 

PDX 0«1 I«R* 

CAL BBB+2.2 GET ENTRANCE 

ARS 18 REQUIREMENT. 

CAS S5K2 IS ENM REAL 

NOP 

TRA X96 NO 

TRA X97 YES 

CLA ACl+3tl IS IRN 

TZE X93 ACTIVE 

SXD XV14.2 YES. 

SXD XV15.4 

TSX SB»4 RECORD SXD NECESSARY. 

LXD XV14.2 

LXD XV15»4 

TXI X93+l»2»-l 

TIX X95»4.1 COUNT TO 3 



F5G26470 

F5G26480 

F5G26490 

F5G26500 

F5G26510 

F5G26520 

F5G26530 

F5G26540 

F5G26550 

F5G26560 

F5G26570 

F5G26580 

F5G26590 

F5G26600 

F5G26610 

F5G26620 

F5G26630 

F5G26640 

F5G26650 

F5G26660 

F5G 26670 

F5G26680 

F5G26690 

F5G26700 

F5G26710 

F5G26720 

F5G26730 

F5G26740 

F5G26750 

F5G26760 

F5G26770 

F5G26780 

F5G26790 

F5G26800 

F5G26810 

F5G26820 

F5G26830 

F5G26840 

F5G26850 

F5G26860 

F 56 268 70 

F5G26880 

F5G26890 

F5G26900 

F5G26910 

F5G26920 

F5G26930 

F5G26940 

F5G26950 

F5G26960 

F5G26970 

F5626980 

F5626990 

F5G27000 



*// 



04475 
04476 
04477 
04500 
04501 
04502 
04503 
04504 
04505 
04506 
04507 
04510 
04511 
04512 
04513 
04514 
©4515 
04516 
04517 
04520 
04521 
04522 
04523 
04524 
04525 
04526 
04527 
04530 
04531 
04532 
04533 
04534 
04535 
04536 
04537 
04540 
04541 
04542 
04543 
04544 
04545 
04546 
04547 
04550 
04551 
04552 
04553 
04554 
04555 
04556 
04557 
04560 



56000 
60000 
56000 
60000 
60000 
63400 
50000 
40100 
40100 
40100 
10000 
07400 
02000 
50000 
32000 
40000 
40200 
76700 
40000 
76500 
60000 
22100 
60000 
60100 
50000 
34000 
02000 
02000 
34000 
02000 
02000 
34000 
02000 
02000 
34000 
02000 
02000 
50000 
07400 
53400 
50000 
77100 
32000 
34000 
02000 
02000 
02000 
50000 
76000 
73400 
50000 
76700 



00325 

00440 

00340 

00437 

00521 

00436 

00314 A3 

00556 

00557 

00560 

03461 

01023 

04644 

01122 

00353 

00451 

00332 

00022 

00436 

00065 

00571 

00371 

00567 

00570 

00442 

00322 

04531 

04570 

00376 Al 

045 34 

04614 

00403 A20 

04537 

04614 

00373 A21 

04542 

04570 

00567 A2 

00032 

00570 

05263 

00010 

00372 

00372 

04503 

04554 

04503 

00570 A4 

00006 

00000 

05263 

00000 



ACTIVE PASS. 

FOLLOWS 2 ED LXIN6 PASS* 
LDQ S3K3 INITIALIZE THE 
STQ S3V4 LOOP LIST 
LDQ S5K3 AND 
STQ S3V3 MAKE SURE TAG 

STQ ACIND SET IND. TO SAY THIS IS ACTIVE PASS 
SXD S3V2»0 LOCATION GETS SET 
CLA ZERO ARE 
ADM AC1 THERE 
ADM AC2 ANY 
ADM AC3 ACTIVE I.R.S 
TZE X89 LEFT GO TO RENUMBER. 
TSX S3t4 YES. TRY TO GET NEXT TAG. 
TRA A12 COME HERE IF TAG NOT GOT 
CLA S39 COMPUTE LOCATION OF THIS . 
ANA SBK2 TAGMADDR. FOLLOWING 
ADD S4V1 TIX BLOCK + L(CM)-CM TAG 
SUB S4K3 - INDEX OF TAG*) 
ALS 18 
SBM S3V2 
LRS 53 
STQ XV5 

DVP XK9 FORM LOC/9 AND 
STQ XV3 REMAINDER 
STO XV4 

cla tpe is This 

CAS S2K2 AN LX 

TRA Al 

TRA A5 YES 

CAS XK15 IS IT AN LX PRIME 

TRA A20 

TRA A8 YES 

CAS XK21 15 IT A DED 

TRA A21 

TRA A8 YES. 

CAS XK12 IS IT AN ACTIVE INSTR. 

TRA A2 

TRA A5 YES. 

CLA XV3 GET 



INDEX 



TSX SE4>4 OF STAG ENTRY. 

LXA XV4»2 IS THERE 

CAL STAG»1 AN LX 

ARS 8»2 IN FRONT 

ANA XK11 OF 

CAS XKll THIS INSTR. 

TRA A3 

TRA A4 YES. 

TRA A3 

CAL XV4 GET 

COM THE 

PAX 0»2 S-TAG 

CAL STAG.l IN 

ALS 0»2 DECR. 



F5G27010 
F5G27020 
F5G27030 
F5G27040 
F5G27050 
F5G27060 
F5627070 
F5G27080 
F5G27090 
F5G27100 
F5G27110 
F5G27120 
F5G27130 
F5G27140 
F5627150 
F5G27160 
F5G27170 
F5G27180 
F5G27190 
F5G27200 
F5G27210 
F5G27220 
F5G27230 
F5G27240 
F5G27250 
F5G27260 
F5G27270 
F5G27280 
F5G27290 
F5G27300 
F5G27310 
F5G27320 
F5G27330 
F5G27340 
F5G27350 
F5G27360 
F5G27370 
F5G27380 
F5627390 
F5G27400 
F5G27410 
F5G27420 
F5G27430 
F5G27440 
F5G27450 
F5G27460 
F5G27470 
F5G27480 
F5G27490 
F5G27500 
F5G27510 
F5G27520 
F5G27530 
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QP+1 LPLST MUST START AT SAME PLACE AS QP AND OTHERS. 

STORAGE ASSIGNMENT (TABLES) 
S3P1 SPACE FOR LOOP LIST TABLE 
FP1 SPACE FOR REGION WORDS 
MSIZE-5-REG STORAGE SPACE LEFT 
STL 
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00000 





OOOOO 
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OOOOO 




HTR 


05635 





ooooo 





OOOOO 




HTR 


05636 





ooooo 





OOOOO 




HTR 


05637 





ooooo 





COOOO 




HTR 


05640 





ooooo 





OOOOO 




HTR 


05641 





ooooo 





OOOOO 




HTR 


05642 





ooooo 





OOOOO 




HTR 


05643 





ooooo 





ooooo 




HTR 


05644 





50000 


1 


12535 


WO 


CLA 


05645 





77100 





00022 




ARS 


05646 





40200 





00611 




SUB 


05647 





10000 





04112 




TZE 


05650 





53400 


1 


00342 




LXA 


05651 


-0 


53400 


4 


00601 




LXD 


05652 





50000 


4 


12535 


Wl 


CLA 


05653 





76500 





00022 




LRS 


05654 





40200 





00611 




SUB 


05655 





10000 





05665 




TZE 


05656 





50000 





00314 




CLA 


05657 





76300 





00022 




LLS 


05660 





40200 





00611 




SUB 


05661 





10000 





05665 




TZE 


05662 


1 


77777 


4 


05663 




TXI 


05663 


2 


00001 


1 


05652 


W2 


TIX 


05664 


-3 


OOOOO 





04111 




TXL 


05665 


-0 


63400 


2 


05671 


W3 


SXD 


05666 


-0 


53400 


1 


05664 




LXD 


05667 





07400 


4 


01566 




TSX 


05670 


-0 


53400 


2 


05671 




LXD 


05671 


-3 


OOOOO 





04111 
05672 
04615 
05716 
00420 
12533 
15674 
02100 
01037 
15674 
01037 
16734 


W4 

CMTL 

CMTAG 

B8BL 

BBB 

PRED 

SPAC1 

PREDL 

SUCCL 
SUCC 


TXL 
BSS 
SYN 
BSS 
SYN 
BSS 
SYN 
EQU 
EQU 
BSS 
SYN 
BSS 











15674 


ORG 


15674 





53400 


1 


00362 I 


LXA 


15675 





76000 





00012 


DCT 


15676 





76100 





OOOOO 


NOP 


15677 





50000 





00314 


CLA 



BBB+2tl 

18 

XV21 

X42 

S5K5»1 

XV13#4 

BBB+2»4 

18 

XV21 

W3 

ZERO 

18 

XV21 

W3 

W2*4t~l 

Wl»l#l 

X36#-»- 

W4»2 

W2+l*l 

SB»4 

W4»2 

X36»-t- 

PTL1 SPACE FOR PATCHES 

9*SPACE/20/15*15 

CMTL 

6*SPACE/20/6 

B8BL»6+1 

BBB+8BBL*6+1 

MSIZE-4-PRED 

SPAC1/2-1 

PREDL+1 

PREDL 

SUCCL+1 

EDITOR RECORD NO* 76 
FOR CONTROL CARD INFORMATION. SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART IB 
INITIALIZATION AND PRED LIMIT FOR FAST COMPILING. 

PRED 

FK5#1 CLEAR REG. TABLE 

CLEAR DIVIDE CHECK LIGHT 

IN CASE DIVIDE CHECK IS ON 
ZERO 



F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28960 

F5G28980 

F5G28990 

F5G2900O 

F5G29010 

F5G29020 

F5G2903O 

F5G29040 

F5G29050 

F5G29060 

F5G29070 

F5G29080 

F5G29090 

F5G29100 

F5G29110 

F5G29120 

F5G29130 

F5G29140 

F5G29150 

F5G29160 

F5G29170 

F5G29180 

F5G29190 

F5G29200 

F5G29210 

F5G29220 

F5G29230 

F5G29240 

F 5629250 

F5G29260 

F5G29270 

F5G29280 

F5G29290 

F5G29300 

F5G29310 

F5G29320 

F5G29340 

F5G293S0 

F5G29360 

F5G29370 

F5G29380 

F5G29390 

F5G29400 

F5G29410 



V 



A C 






u 



n 



15700 





60100 


1 


05263 111 


STO 


REGtl 


15701 
15702 
15703 


2 




00001 
76000 
50000 


1 





15700 
00140 
17777 


TIX 
PSE 
CLA 


96 TURN OFF SENSE LIGHTS 
K.EYS+3 INITIALIZE 


15704 





60100 





00042 


STO 


STAGP+5 DRUM ADDR# OF STAG 


15705 





50000 





17775 


CLA 


KEYS+1 


15706 





60100 





00065 


STO 


PREDP+5 


15707 





50000 





17776 


CLA 


KEYS+2 


15710 





60100 





00077 


STO 


BBBP+5 DRUM ADDR. OF BB*B« 


15711 





50000 





17774 


CLA 


KEYS 


15712 





76700 





00022 


ALS 


18 


15713 





60100 





00075 


STO 


BBBP+3 NO* OF BASIC BLOCKS. 


15714 





40200 





00316 


SUB 


ONED 


15715 





07400 


4 


00070 


TSX 


SE«4 


15716 





50000 


1 


12533 


CLA 


BBB»1 


15717 





62200 





00051 


STD 


SUCCP+3 LOCATION OF LAST SUCC 


15720 





76700 





00022 


ALS 


18 


15721 





62200 





00063 


STD 


PREDP+3 LOCATION OF LAST PRED 


15722 





50000 


1 


12534 


CLA 


BBB+ltl 


15723 


-0 


32000 





00326 


ANA 


S3K4 


15724 





60100 





00453 


STO 


S4V3 


15725 





76500 





00043 


LRS 


35 


15726 





22100 





00331 


DVP 


S4K2 COMPUTE 


15727 


-0 


60000 





16005 


STQ 


IV1 THE 


15730 





10000 





15732 


TZE 


11 LOCATION 


15731 





50000 





00315 


CLA 


ONEA WHICH A TAG 


15732 





40000 





16005 11 


ADD 


I VI WOULD HAVE 


15733 





76500 





00043 


LRS 


35 IF IT 


15734 





20000 





00331 


MPY 


S4K2 WERE FIRST IN 


15735 





76300 





00043 


LLS 


35 THE NEXT RECORD* 


15736 





60100 





00452 


STO 


S4V2 


15737 





60100 





00451 


STO 


S4V1 


15740 





50000 


1 


12534 


CLA 


BBB+1#1 DETERMINE NO* 


15741 


-0 


32000 





00326 


ANA 


S3K4 OF ENTRIES IN 


15742 





76500 





00043 


LRS 


35 STAG* 


15743 





22100 





00371 


DVP 


XK9 


15744 


-0 


60000 





16005 


STO 


IV1 


15745 





10000 





15747 


TZE 


110 


15746 





50000 





00315 


CLA 


ONEA 


15747 





40000 





16005 110 


ADD 


IV1 INITIALIZE 


15750 





76700 





00022 


ALS 


16 


15751 





60100 





00040 


STO 


STAGP+3 OF ENTRIES IN STAG 


15752 





76500 





00043 


LRS 


35 COMPUTE 


15753 





22100 





00037 


DVP 


STAGP+2 THE 


15754 





10000 





15766 


TZE 


13 DRUM 


15755 





50000 





00315 


CLA 


ONEA ADDR* 


15756 


-0 


60000 





16006 13 


STQ 


IV2 FOLLOWING 


15757 





40000 





16006 


ADD 


IV2 THE 


15760 





76700 





00022 


ALS 


18 


15761 





40000 





00040 


ADD 


STAGP+3 STAG 


15762 





77100 





00022 


ARS 


18 


15763 





40000 





00042 


ADD 


STAGP+5 TABLE. 


15764 





56000 





16010 


LDQ 


IK1 


15765 





04000 





16004 


TLQ 


17 



F5G29420 

F5G29430 

F5G29440 

F5G29441 

F5G29450 

F5G29460 

F5G29470 

F5G29480 

F5G29490 

F5G29500 

F5G29510 

F5G29520 

F5G29530 

F5G29540 

F5G29550 

F5G29560 

F5G29570 

F5G29580 

F5G29590 

F5G29600 

F5G29610 

F5G29620 

F5G29630 

F5G29640 

F5G29650 

F5G29660 

F5G29670 

F5G29680 

F5G29690 

F5G29700 

F5G29710 

F5G29720 

F5G29730 

F5G29740 

F5G29750 

F5G29760 

F5G29770 

F5G29780 

F5629790 

F5G29800 

F5G29810 

F5G29820 

F5G29830 

F5G29840 

F5G29850 

F5G29860 

F5G29870 

F5G29880 

F5G29890 

F5G29900 

F5G29910 

F5G29920 

F5G29930 

F5G29940 



VM 



15766 
15767 
15770 
15771 
15772 
15773 
15774 
15775 
15776 
15777 
16000 
16001 
16002 
16003 
16004 
16005 
16006 
16007 
16010 
16011 
16012 
16013 
16014 
16015 
16016 
16017 
16020 
16021 
16022 
16023 
16024 
16025 



50000 
34000 
02000 
02000 
60100 
40000 
56000 
60000 
04000 
60100 
50000 
53400 
07400 
02000 
07400 
00000 
00000 
00000 
00000 
07400 
77200 
50000 
10000 
60100 
60100 
60100 
50000 
60100 
53400 
76200 
00001 
02000 



14 



15 



00036 16 

00040 

15772 

16011 

00035 

00037 

00040 

00036 

16000 

00036 

00277 

16007 

00166 

15766 

00004 17 

00000 IV1 

00000 IV2 

77744 1X2 

17777 IK1 

01133 19 

00204 

17775 

04740 

00550 

04740 

04741 

00323 

04742 

00317 

00221 

16023 

02706 



ARE WE THRU STORING S 



I9A 



CLA STAGP+1 

CAS STAGP+3 

TRA 14 

TRA 19 

STO STAGP SET N(0) TO OLD N(l) 

ADO STAGP+2 SET N(l) TO MIN (OLD NU)+N.t 

LDQ STAGP+3 N(LJ 

STQ STAGP+1 

TLQ 15 

STO STAGP+1 

CLA SEK 

LXA I<2#2 

TSX SE26»4 STORE BLOCK OF OS 

TRA 16 

TSX 4»4 TO DIAGNOSTIC 



HTR 
TSX 
REW 
CLA 
TNZ 
STO 
STO 
STO 
CLA 
STO 
LXD 
RTB 
TIX 
TRA 



REWIND THE COMPILED INST TAPE 











04740 




ORG 


04740 


-0 


53400 


1 


00103 


QS 


LXD 


04741 


-3 


00000 


1 


02177 




TXL 


04742 


-0 


53400 


4 


00051 




LXD 


04743 





50000 





00075 




CLA 


04744 


-3 


00000 


4 


02177 


QSO 


TXL 


04745 


1 


77777 


4 


04746 




TXI 


04746 


•0 


63400 


4 


00104 


QS1 


SXD 


04747 





40200 





00316 




SUB 


04750 





07400 


4 


00070 




TSX 


04751 


-0 


53400 


4 


00072 




LXD 


04752 


1 


00417 


4 


04753 




TXI 


04753 


-0 


63400 


4 


04764 


OS2 


SXD 


04754 


-0 


63400 


4 


04766 




SXD 


04755 


-o 


53400 


4 


12533 




LXD 


04756 


-0 


63400 


4 


04772 




SXD 


04757 


-0 


53400 


4 


00104 




LXD 



1-STAGP 

8191 

S4f4 

INSTTP 

KEYS+1 

LPLST-1 

LPIND 

LPLST-1 

LPLST 

S3K1 

LPLST+1 

S1K2*4 SKIP DIAGNOSTICS 

1 AND ANTIP1NGPONG 

I9A»4*1 SIX RECORDS 

F75 

EDITOR RECORD NO. 78 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART 1C 
SUCC LIMIT FOR FAST COMPILING 
LPLST-1 
SE21+2»1 
F»1#0 
SUCCP+3t4 
BBBP+3 
F»4»0 
0Slf4»-l 
SE21+3»4 
ON ED 
SE»4 
BB8P*4 

QS2#4tBBBL-l 
QS4*4 
OS5*4 
BBB»4 
QS8»4 
-SE21+3«4 



F5629950 

F5G29960 

F5G29970 

F5G29980 

F5G29990 

F5G30OO0 

F5G30010 

F5G30020 

F5G30030 

F5G30O40 

F5G30O50 

F5G30060 

F5G30O70 

F5G30080 

F5G30090 

F5G301O0 

F5G30110 

F5G30120 

F5G30130 

F5G30140 

F5G30150 

F5G30160 

F5G30170 

F5G30180 

F5G30190 

F5G302O0 

F5G30210 

F5G30220 

F5G30230 

F5G30240 

F5G30250 

F5G30260 

F5G30270 

F5G30280 

F5G30300 

F5G30310 

F5G30320 

F5G30330 

F5G30340 

F5G30350 

F5G30360 

F5G30370 

F5G30380 

F5630390 

F5G30400 

F5G30410 

F5G30420 

F5G30430 

F5G30440 

F5G30450 

F5G30460 

F5G30470 

F5G30480 

F5G30490 







u 



u 



04-760 


-0 


75400 


4 


ooOoo 


QS3 


04761 





07400 


4 


00044 




04762 





50200 


1 


16734 




04763 





73400 


4 


OOOOO 




04764 


3 


00000 


4 


04767 


QS4 


04765 


1 


00420 


4 


04766 




04766 


3 


00000 


4 


04770 


0S5 


04767 





60100 


1 


16734 


QS6 


04770 


-0 


53400 


4 


00306 


QS7 


04771 





50000 





00072 




04772 


-3 


00000 


4 


04744 


QS8 


04773 


1 


77777 


4 


04760 





04740 
04741 
04742 
04743 
04744 
04745 
04746 
04747 
04750 
04751 
04752 
04753 
04754 
04755 
04756 
04757 
04760 
04761 
04762 
04763 
04764 
04765 
04766 
04767 
04770 
04771 
04772 
04773 



53400 
OOOOO 
53400 
50000 
OOOOO 
77777 
63400 
40200 
07400 
53400 
00417 
63400 
63400 
53400 
63400 
53400 
75400 
07400 
50200 
73400 
OOOOO 
00420 
OOOOO 
60100 
53400 
50000 
OOOOO 
77777 



04740 
00103 
00030 
00063 
00075 
00030 
04746 
00104 
00316 
00070 
00072 
04753 
04764 
04766 
12533 
04772 
00104 
OOOOO 
00056 
15674 
OOOOO 
04767 
04766 
04770 
15674 
00306 
00072 
04744 
04760 



QPU 

QPUO 
QPU1 

QPU2 

QPU3 

QPU4 

0PU5 
0PU6 
0PU7 

0PU8 



04740 
04741 



04740 
-0 53400 1 00103 
•3 OOOOO 1 02177 



QSU 



PXD 0«4 

TSX SE6*4 

CLS SUCC»1 

PAX 0*4 

TXH QS6»4»- 

TXI QS5»4«BBBL 

TXH QS7»4# i - 

STO SUCC»1 * ' 

LXD SEV2»4 

CLA BBBP 

TXL QS0»4t- 

TXl QS3»4#-1 

EDITOR RECORD N0# 80 
FOR CONTROL CARD INFORMATION SEE END OF ASSEMBLY. 

DIAGNOSTIC CALLER FOLLOWS 
PART ID 
PRED UNDO FROM FAST COMPILING 
ORG LPLST-1 
LXD SE21+2»1 
TXL R»lfO 
LXD PREDP+3t4 
CLA BBBP+3 
TXL R#4»0 
TXI QPU1»4»-1 
SXD SE21+3»4 
SUB ONED 
TSX SEf4 
LXD BBBP*4 
TXI QPU2»4»BBBL-1 
SXD 0PU4»4 
SXD 0PU5»4 
LXA BBB»4 
SXD OPU8*4 
LXD SE21+3»4 
PXD 0»4 
TSX SE5+1»4 
CLS PRED*1 
PAX 0t4 
TXH QPU6»4f- 
TXI QPU5»4»BBBL 
TXH 0PU7»4»- 
STO PRED»1 
LXD SEV2»4 
CLA BBBP 
TXL OPU0»4»- 
TXI QPU3*4»-1 

EDITOR RECORD NO* 82 
FOR CONTROL CARD INFORMATIONt SEE END OF ASSEMBLY. 

DIAGNOSTIC CALLER FOLLOWS 
PART IE 
SUCC UNDO FROM FAST COMPILING 

ORG LPLST-1 
LXD SE21+2»1 
TXL Ftl»0 



F5G30500 

F5G30510 

F5G30520 

F5G30530 

F5G30540 

F5G30550 

F5G30560 

F5G30570 

F5G30580 

F5G30590 

F5G30600 

F5G30610 

F5G30620 

F5G30630 

F5G30650 

F5G30660 

F5G30670 

F5G30680 

F5630690 

F5G30700 

F5G30710 

F5G30720 

F5G30730 

F5G30740 

F5G30750 

F5G30760 

F5G30770 

F5G30780 

F5G30790 

F5G30800 

F5G30810 

F5G30820 

F5G30830 

F5G30840 

F5G30850 

F5G30860 

F5G30870 

F5G30880 

F5G30890 

F5G30900 

F5G30910 

F5G30920 

F5G30930 

F5G30940 

F5G30950 

F5G30960 

F5G30970 

F5G30980 

F5G31000 

F5G31010 

F5G31020 

F5G31030 

F5G31040 

F5G31050 



■n 



0*742 


-0 


53400 


4 


00051 




LXO 


04743 





50000 





00075 




CLA 


04744 


-3 


00000 


4 


02177 


OSUO 


TXL 


04745 


1 


77777 


4 


04746 




TXI 


04746 


-0 


63400 


4 


00104 


QSU1 


SXD 


04747 





40200 





00316 




SUB 


04750 





07400 


4 


00070 




TSX 


04751 


-0 


53400 


4 


00072 




LXO 


04752 


1 


00417 


4 


04753 




TXI 


04753 


-0 


63400 


4 


04764 


QSU2 


SXD 


04754 


-0 


63400 


4 


04766 




SXO 


04755 


-0 


53400 


4 


12533 




LXD 


04756 


-0 


63400 


4 


04772 




SXO 


04757 


-o 


53400 


4 


00104 




LXD 


04760 


-0 


75400 


4 


00000 


QSU3 


PXD 


04761 





07400 


4 


00044 




TSX 


04762 





50200 


1 


16734 




CLS 


04763 





73400 


4 


00000 




PAX 


04764 


3 


00000 


4 


04767 


QSU4- 


TXH 


04765 


1 


00420 


4 


04766 




TXI 


04766 


3 


00000 


4 


04770 


0SU5 


TXH 


04767 





60100 


1 


16734 


QSU6 


STO 


04770 


-0 


53400 


4 


00306 


QSU7 


LXD 


04771 





50000 





00072 




CLA 


04772 


-3 


00000 


4 


04744 


QSU8 


TXL 


04773 


1 


77777 


4 


04760 




TXI 











00317 




ORG 


C 


00317 





00000 





77777 


BLV09 


HTR 


-1 


00320 





76200 





00223 


BL12 


RTB 


BLT 


00321 





70000 





00655 


BL13 


CPY 


BLIST 


00322 





02000 





00320 




TRA 


BL12 


00323 





02000 





00325 




TRA 


BL6 


00324 





02000 





00320 




TRA 


BL12 


00325 


-0 


53400 


2 


00332 


BL6 


LXD 


C0N1»2 


00326 





76200 





00223 


BL5 


RTB 


BLT 


00327 





53400 


1 


00332 




LXA 


C0N1»1 


00330 





70000 


1 


00655 


BL1 


CPY 


BLlSTtl 


00331 


1 


77777 


1 


00330 




TXI 


BLl»l»-l 


00332 





00005 





00000 


com 




OtO»5 


00333 





76600 





00333 




IOD 




00334 


-0 


76000 





00012 




RTT 




00335 





02000 





00435 




TRA 


BL4 


00336 





50000 





17774 




CLA 


KEYS 


00337 





40200 





00552 




SUB 


TWO 


00340 





60100 





00566 




STO 


BLV3 


00341 





50000 





00314 




CLA 


ZERO 


00342 





07400 


4 


00032 




TSX 


SE4»4 


00343 





50000 


1 


05263 




CLA 


STAG»1 


00344 





60100 





00602 




STO 


BLV07 



SUCCP+3>4 

BBBP+3 

F*4»0 

QSU1»4#-1 

SE21+3»4 

ONED 

SEt4 

BBBP»4 

QSU2»4#BBBL-1 

0SU4t4 

0SU5#4 

BBB»4 

QSU8»4 

SE2 1+3 »4 

0*4 

SE6»4 

SUCC»1 

0«4 

QSU6»4»- 

QSU5»4»8BBL 

QSU7»4t- 

SUCOl 

SEV2»4 

BBBP 

QSU0»4#- 

0SU3»4»-1 

EDITOR RECORD NO* 84 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART 2 
PERMUTE RESULTS AND COMBINE BB LIST WITH BB TABLE 

BB NO. OF LAST GO TO N 

FIND THE END OF FILE PRECEEDING BB LIST 



COPY BB LIST INTO CS 



ERROR 

O.K. COMPUTE TEST CONSTANT 



STAG WORD 



F5G31060 

F5G31070 

F5G31080 

F5G31090 

F5G31100 

F5G31110 

F5G31120 

F5631130 

F5G31140 

F5G31150 

F5G31160 

F5G31170 

F5G31180 

F5G31190 

F5G31200 

F5G31210 

F5G31220 

F5G31230 

F5G31240 

F5G31250 

F5G31260 

F5G31270 

F5G31280 

F5G31290 

F5G31300 

F5G31310 

F5G31320 

F5G31330 

F5G31350 

F5G31360 

F5G31370 

F5G31380 

F5G31390 

F5G31400 

F5G31410 

F5G31420 

F5G31430 

F5G31440 

F5G31450 

F5G31460 

F5G31470 

F5G31480 

F5G31490 

F5G31500 

F5G31510 

F5G31520 

F5G31530 

F5G31540 

F5G31550 

F5G31560 

F5G31570 

F5G31580 

F5G31590 

F5G31600 



/- 



u 



u 



00345 
00346 
00347 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 
00401 
00402 
00403 
00404 
00405 
00406 
00407 
00410 
00411 
00412 
00413 
00414 
00415 
00416 
00417 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00430 
00431 
00432 



50000 
56000 
04000 
40000 
07400 
50000 
32000 
60100 
50000 
32000 
60100 
50000 
07400 
53400 
50000 
60100 
77777 
63400 
50000 
60100 
63400 
50000 
32000 
40200 
40200 
73400 
63400 
50000 
32000 
60100 
34000 
02000 
02000 
07400 
50000 
60200 
50000 
60200 
32000 
53400 
50000 
77100 
77100 
32000 
73400 
50000 
76700 
32000 
77100 
60200 
00001 
50000 
60100 
50000 



00564 

00566 BL3 

00541 

00315 

00067 

12534 

00554 

00571 4 

12533 

00553 

00570 

00564 

00067 

00565 

00655 

12540 

00366 BL2 

00565 

12534 

00572 

00567 

12534 

00554 

00571 

00315 

00000 

00600 

12533 

00553 

00575 BL9 

00570 

00406 

00440 

00055 BL7 

00555 

00574 

15674 

00573 

00574 

00550 

00572 BL8 

00003 

00003 

00550 

00000 

00573 

00003 

00557 

00003 

00574 

00415 

00574 

15674 

00575 



CLA BLV1 

LDQ BLV3 

TLG BL06 

ADD ONEA 

TSX SE1»4 

CLA BBB+1»1 

ANA RMSK 

STO BLV6 

CLA BBBtl 

ANA 2AMSK 

STO BLV5 

CLA BLV1 

TSX SE1»4 

LXD BLV2t2 

CLA BLIST#2 

STO BB8+5#1 

TXI BL2+1»2»-1 

SXD BLV2t2 

CLA B8B+1»1 

STO BLV7 

SXD BLV4»1 

CLA BBB+1*1 

'ANA RMSK 

SUB BLV6 

SUB ONEA 

PAX 0*2 

SXD BLV05f2 

CLA BBB»1 

ANA 2AMSIC 

STO BLV01 

CAS BLV5 

TRA BL7 

TRA BL01 

TSX SE5»4 

CAL SALM 

SLW BLV9 

CAL PRED»1 

SLW BLV8 

ANS BLV9 

LXD 2LD3»2 

CAL BLV7 

ARS 3»2 

ARS 3»2 

ANA 2LD3 

PDX Ot4 

CAL BLV8 

ALS 3f2 

ANA BITMK 

ARS 3#4 

ORS BLV9 

TIX BL8»2»1 

CLA BLV9 

STO PREDtl 

CLA BLV01 



HAVE WE ALREADY DEALT WITH LAST BB 
YES * GO TO READ IN NEXT PART 

GET UNDEX OF NEXT BB 
STORE THE NO. OF THE 
FIRST TAG IN 
NEXT BB. * 



STORE AWAY NO. OF U1ST PRED IN NEXT BB. 



REPLACE LAST WORD OF BBB ENTRY 
BY THE LOCATION FROM THE BB LIST. 



STORE PERMUTATION NOS. 



GET 

OF 1ST TAG IN BB 

FORM COUNT OF NO. OF TaGS 

COUNT OF NO. OF TAGS INTO 2. 
STORE COUNT OF NO. OF TAGS 



IS THIS PRED IN SAME BB 

YES 

NO 

YESt GET INDEX OF PRED 



STODRE OLD PRED WORD 
INT INITIALIZE NEW PRED WORD 
SET COUNT TO 3 
PLACE THE 
PERMUTATION NO. 
IN REGISTER 4 



PERMUTE 
THE LXD 
AND SXD 
BITS IN THE 
PRED ENTRY 
COUNT TO 3 

STORE PRED ENTRY WITH PERMUTED BITS 
ARRANGE TO CONSIDER 



F5G31610 

F5G31620 

F5G31630 

F5G31640 

F5G31650 

F5G31660 

F5G31670 

F5G31680 

F5G31690 

F5G31700 

F5G31710 

F5G31720 

F5G31730 

F5G31740 

F5G31750 

F5G31760 

F5G31770 

F5G31780 

F5G31790 

F5G31800 

F5G31810 

F 5631820 

F5G31830 

F5G31840 

F5G31850 

F5G31860 

F5G31870 

F5G31880 

F5G31890 

F5G31900 

F5G31910 

F5G31920 

F5G31930 

F5G31940 

F5G31950 

F5G31960 

F5G31970 

F5G31980 

F5G31990 

F5G320O0 

F5G32010 

F5G32020 

F5G32030 

F5G32040 

F5G32050 

F5G32060 

F5G32070 

F5G32080 

F5G32090 

F5G32100 

F5G32110 

F5G32120 

F5G32130 

F5G32140 



00433 
00434 
00435 
00436 
00437 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00520 



40000 
02000 
76400 
00001 
07400 
53400 
00001 
53400 
00001 
63400 
53400 
50000 
60100 
50000 
60100 
50000 
07400 
63400 
50000 
60200 
32000 
60200 
50000 
40000 
60100 
53400 
53400 
63400 
50000 
76700 
60200 
32000 
73400 
50000 
77100 
77100 
32000 
77100 
77100 
60200 
02000 
53400 
50000 1 
77100 
40000 
10000 
50000 
76700 
62200 
50000 
60100 
53400 
50000 
77100 



00315 

00402 

00203 BL4 

00326 

00004 

00600 BL01 

00504 BL03 

00577 

00466 

00600 

00603 

00602 

05263 

00314 

00602 

00576 

00032 

00603 

05263 

00601 

00560 

O0602 

00576 

00315 

00576 

00551 

00600 

00577 BL02 

00601 

00002 

00601 

00550 

00000 

00572 

00003 

00003 

00550 

00012 

00012 

00602 

00441 

00567 BL04 

12533 

00041 

00315 

00516 

00317 

00022 

12534 

00564 

00317 

00550 BL07 

00572 BL09 

00003 



ADD ONE A 
TRA BL9 
BST BLT 
TIX BL5f2»i 
TSX 4#4 THEN 
LXD BLV05»1 
TNX BL04tl»l 
LXD BLV04«2 
TIX BL02*2»1 
SXD BLV05»1 
LXD BLV08t2 
CLA BLV07 
STO ST AG » 2 
CLA ZERO 
STO BLV07 
CLA BLV03 
TSX SE4»4 
SXD BLV08»1 
CAL STAG.l 
SLW BLV06 
ANA LMSK. 
SLW BLV07 
CLA BLV03 
ADD ONEA 
STO BLV03 
LXD 2LD9»2 
LXD BLV05»1 
SXD BLV04f2 
CAL BLV06 
ALS 2 
SLW BLV06 
ANA 2LD3 
PDX 0*4 
CAL BLV7 
ARS 3t4 
ARS 3»4 
ANA 2LD3 
ARS 10»2 
ARS 10f2 
ORS BLV07 
TRA BL03 
LXD BLV4tl 
CLA BBB»1 
ARS 33 
ADD ONEA 
TNZ BL07 
CLA BLV09 
ALS 18 
STD BBB+ltl 
CLA BLV1 
STO BLV09 
LXD 2LD3»2 
CAL BLV7 
ARS 3*2 



NEXT PRED ENTRY 

TAPE CHECK 
TRY 5 TIMES 
START DIAGNOSTIC. 



BACKSPACE TAPE 



IS THERE ANOTHER TAG IN BB 

YES 

HAVE WE EXHAUSTED STAG WORD 

Y*ES« STORE COUNT OF NO. OF TAGS 

STORE 

OLD PERMUTED 

STAG WORD 



GET 

NEXT 

STAG 

WORD 

STORE STAG WORD 

AND 

INITIALIZE NEW STAG WORD 

INCREASE THE 

STAG WORD NO* 



RESET COUNT TO 9 
RESTORE 1 
STORE COUNTER 



EXTRACT TAG 
PERMUTE 



THE 
TAG 



FORM NEW TAG WORD 

GET INDEX OF BB 
IS 

THIS 
A GO N 
NO 

YES* STORE BB NO. 
OF LAST 

GO N ENCOUNTERED 
STORE PRESENT 
BB NO. 
SET COUNT TO 3 



F5G32150 
F5G32160 
F5G32170 
F5G32180 
F5G32190 
F5G32200 
F5G32210 
F5G32220 
F5G32230 
F5G32240 
F5G32250 
F5G32260 
F5G32270 
F5G32280 
F5G32290 
F5G32300 
F5G32310 
F5G32320 
F5G32330 
F5G32340 
F5G32350 
F5G32360 
F5G32370 
F5G32380 
F5G32390 
F5G32400 
F5G32410 
F5G32420 
F5G32430 
F5G32440 
F5G32450 
F5G32460 
F5G32470 
F5G32480 
F5G32490 
F5632500 
F5G32510 
F5G32520 
F5632530 
F5G32540 
F5G32550 
F5G32560 
F5632570 
F5G32580 
F5G32590 
F5632600 
F5632610 
F5G32620 
F5G32630 
F5G32640 
F5G32650 
F5G32660 
F5G32670 
F5G32680 



u 



u 



*> 



00521 
00522 
00523 
00524 
00525 
00526 
00527 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00540 
00541 
00542 
00543 
00544 
00545 
00546 
00547 
00550 
00551 
00552 
00553 
00554 
00555 
00556 
00557 
00560 

00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 
00575 
00576 
00577 
00600 
00601 
00602 
00603 



77100 2 00003 
-0 320O0 00550 
-0 73400 4 00000 

50000 1 12535 

60100 4 00564 

1 77777 1 00527 

2 00001 2 00517 
-0 53400 2 00550 

50000 2 00564 

60100 1 12532 

1 77777 1 00534 

2 00001 2 00531 
50000 00564 
40000 00315 
60100 00564 
02000 00346 
07400 4 00067 
50000 00556 
60100 1 12540 
O 50000 00602 

-0 53400 2 00603 
60100 2 05263 
02000 00030 
00003 00000 
00011 00000 
00000 00002 
00000 77777 
O 00000 7 77777 

-377770077777 

3 77777 7 77777 
00004 4 00000 

-377777000000 

00564 



ARS 3.2 

ANA 2LD3 
PDX 0.4 
CLA 8BB+2tl 
STO EXC0»4 
BL08 TXI BL08+1.1.-1 
TIX BL09.2.1 
LXD 2LD3»2 
BL10 CLA EXC0.2 

STO BBB-1.1 
BL11 TXI BL11+1»1»^1 

TIX BL10.2.1 
BL05 CLA BLV1 
ADD ONE A 
STO BLV1 
TRA BL3 
BL06 TSX SElt4 
CLA EN2MK 
STO BBB+5.1 
CLA BLV07 
LXD BLV08#2 
STO STAG.2 
TRA R 

0*0*3 

0*0*9 

2 

-1 

-1»-1 
OCT -377770077777 
PTH -1»-1»-1 

0*4*4 
OCT -377777000000 
BES 3 



GET PERMUTATION NO, 



PERMUTE 

ENTRANCE-EXIT REQUIREMENTS 

COUNT TO 3 
PLACE PERMUTED 
ENTRANCE-EXIT COND. 
BACK IN BB 

COUNT TO 3 

PREPARE TO DEAL WITH 

WITH NEXT BB 



PUT EDN MARK INTO THE DUMMEY BB 



STORE 

OLD 

STAG WORD 

READ NEXT PART 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 

ooooo 

00000 



00655 OOOOO 



ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 

00604 

ooooo 



2LD3 

2LD9 
TWO 

2AMSK 
RMSK 
SALM 

EN2MK 
BITMK 
LMSK 
EXCO 
BLV1 
BLV2 
BLV3 
BLV4 
BLV5 
BLV6 
BLV7 
BLV8 
BLV9 
BLV01 
BLV03 
BLV04 
BLV05 
BLV06 
BLV07 
BLV08 

BLIST 



BSS PTL2 



ADDRESS MASK 
RI6HT HALF MASK 

MS MASK OUT SXD AND LXD PRED REULTS 
PUT IN LOCATION OF DUMMEY BB 
MASK TO EXTRACT ONE SXD AND LXD BIT 

THE ENTRANCE-EXIT CONDITIONS PERMUTED 
BBNO. 

INDEX IN BB LIST 
TEST CONSTANT 
INDEX OF BB 

1ST PRED NO. IN NEXT BB 
UST TAG IN NEXT BB 
PERMUTTTION NOS. 
OLD PRED ENTRY 
NEW* PERMUTED* PRED ENTRY 
CURRENT PRED. NO. 
NO. OF STAG WORD* INITIALLY ZERO 
COUNTER TO 9* INITIALLY ZERO 
COUNT OF NO. OF TAGS IN BB 
STAG WORD 

NEW* PERMUTED ♦ STAG WORD 
INDEX OF OLD STAG WORD 
SPACE FOR PATCHES 



EDITOR RECORD NO. 86 
FOR CONTROL CARD INFORMATION. SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 



F5G32690 

F5G327O0 

F5G32710 

F5G32720 

F5G32730 

F5G32740 

F5G32750 

F5G32760 

F5G32770 

F5G32780 

F5G32790 

F5G32800 

F5G32810 

F5632820 

F5632830 

F5G32840 

F5G32850 

F5G32860 

F5632870 

F5G32880 

F5632890 

F 5632900 

F5G32910 

F5G32920 

F5G32930 

F5G32940 

F5G32950 

F 5632960 

F5G32970 

F5G32980 

F5G32990 

F 5633000 

F5G33010 

F5G33020 

F5G33030 

F5633040 

F5G33050 

F5G33060 

F5G33070 

F5G33080 

F5633090 

F5G33100 

F5633110 

F5G33120 

F5G33130 

F5633140 

F5G33150 

F5G33160 

F5G33170 

F5G33180 

F5G33190 

F5G33200 

F5G33210 

F5G33230 



<?~ 



00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00340 
00341 
00342 
00343 
00344 
00345 
00346 
00347 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00400 



76200 
70000 
02000 
02000 
02000 
76400 
00001 
07400 
53400 
76200 
70000 
53400 
70000 
77777 
07400 
76600 
76000 
02000 
76200 
76200 
76200 
76600 
63400 
63400 
50000 
56000 
04000 
40000 
07400 
50000 
77100 
62100 
50000 
07400 4 
50000 



60100 



50000 1 
77100 
32000 
60100 
34000 





02000 
02000 
76700 
07400 
50000 
62100 
40000 
07400 



00320 
00222 
00573 
00320 
00330 
00320 
00202 
00331 
00004 
00555 
00222 
00573 
00314 
00647 
00334 
00004 
O0333 
00012 
00325 
00222 
00222 
00222 
00333 
00527 
00541 
00317 
00560 
00520 
00315 
00067 
12533 
00022 
00562 
00317 
00067 
00314 
00563 
12533 
00022 
00552 
00561 
00562 
00373 
00506 
00022 
00044 
16734 
00567 
00315 
00067 



START 



ERR 



RDIN 
AAC2 



AAC1 



AC15 



AC13 



AAC3 



FILE BEFORE ASSIGN CON 



PART 3 
CHANGE LXD AND SXD RESULTS TO BE COMPATIBLE WITH GO TO 
N RESTRICTION. MODIFY ASSIGN CONSTANT TABLE. 
C CONTAINS THE BB NO. OF THE GO TO N 
ORG C+l 
RTB ACTPE LOCATE THE END OF 

CPY ACV12 
TRA START 
TRA RDIN 

TRA START ^^ 

BST ACTPE BACKSPACE TAPE TO TRY AGAIN 

TIX AAC2»2*1 COUNT TO 5 
TSX 4*4 TO DIAGNOSTIC 
3LD3»2 



LXD 
RTB ACTPE 
CPY ACV12 
LXA ZER0»1 
CPY ASC0N»1 
TXI AAC1*1#-1 
TSX 4»4 
IOD 
RTT 

TRA ERR 
RTB ACTPE 
RTB ACTPE 
RTB ACTPE 
IOD 

SXD ACVltl 
SXD AC22»1 
CLA C 
LDO ACK1 
TLQ AC 16 
ADD ONEA 
TSX SE1»4 
CAL BBB»1 
ARS 18 
STA ACV3 
CLA C 
TSX SElt4 
CLA ZERO 
STO ACV4 
CAL BBB»1 
ARS 18 
ANA AMSK 
STO ACV2 
CAS ACV3 
TRA AAC3 
TRA AC14 
ALS 18 
TSX SE6.4 
CAL SUCCtl 
STA ACV8 
ADD ONEA 
TSX SE1»4 



COPY THE EXTRA WORD 



CHECK 



REDUNDANCY BITS 



THERR IS AN ERROR 

O.K. STORE RECORD OF NO. OF ENTRIES 

GET BB NO. OF 1ST GO TO N 
WAS THIS THE LAST GO TO N 
NO 

FIND NO. OF 1ST SUCC IN NEXT BB 

CLEAR THE COMBINED SXDD CASE 

FIND THE NO. OF 1ST SUCC IN THIS BB 



IS THIS SUCC 

YES 

NO 



IN SAME BB 



YES GET BB NO. OF SUCESSOR 



FIN NO. OF 1ST PRED ENTRY NEXT BBB 



F5G33240 
F5G33250 
F5G33260 
F5G33270 
F5G33280 
STANTF5G33290 
F5G33300 
F5G33310 
F5G33320 
F5G33330 
F5G33340 
F5G33350 
F5633360 
F5G33370 
F5G33380 
F5G33390 
F5G33400 
F5G33410 
F5G33420 
F5G33430 
F5G33440 
F5G33450 
F5G33460 
F5G33470 
F5G33480 
F5G33490 
F5G33500 
F5G33510 
F5G33520 
F5G33530 
F5G33540 
F5G33550 
F5G33560 
F5G33570 
F5G33580 
F5G33590 
F5G33600 
F5G33610 
F5G33620 
F5G33630 
F5G33640 
F5633650 
F5G33660 
F5G33670 
F5G33680 
F5G33690 
F5G33700 
F5G33710 
F5G33720 
F5G33730 
F5G33740 
F5G33750 
F5G33760 
F5G33770 



A CI 



u 



u 



00401 





50000 


1 


12533 




CLA 


BBB»1 


00402 





62100 





00565 




STA 


ACV6 


00403 





50000 





00314 




CLA 


ZERO 


00404 





60100 





00571 




STO 


ACV10 


00403 





50000 





00567 




CLA 


ACV8 


00406 





07400 


4 


00067 




TSX 


SE1"»4 


00407 


-0 


50000 


1 


12533 




CAL 


BBB»1 


00410 


-0 


32000 





00552 




ANA 


AMSK 


00411 





62100 





00570 




STA 


ACV9 


00412 





62100 





00566 


AC7 


STA 


ACV7 


00413 





34000 





00565 




CAS 


ACV6 


00414 





02000 





00416 




TRA 


AC4 


00415 





02000 





00444 




TRA 


ACS 


00416 





07400 


4 


00055 


AC4 


TSX 


SE5»4 


00417 


-0 


50000 


1 


15674 




CAL 


PRED»1 


00420 


-0 


32000 





00552 




ANA 


AMSK 


00421 





40200 





00317 




SUB 


C 


00422 


-0 


10000 





00427 




TNZ 


AC5 


00423 


-0 


50000 


1 


15674 




CAL 


PREDtl 


00424 


-0 


60200 





00563 




ORS 


ACV4 


00425 


-0 


50000 





00554 




CAL 


NTMSK 


00426 





32000 


1 


15674 




ANS 


PREDtl 


00427 


-0 


50000 


1 


15674 


AC5 


CAL 


PRED»1 


00430 


-0 


63400 


1 


00572 




SXD 


ACV11»1 


00431 





07400 


4 


00067 




TSX 


SE1»4 


00432 





50000 


1 


12533 




CLA 


BBB»1 


00433 





77100 





00041 




ARS 


33 


00434 





40000 





00315 




ADD 


ONEA 


00435 


-0 


10000 





00441 




TNZ 


AC6 


00436 


-0 


53400 


2 


00572 




LXD 


ACV11»2 


00437 


-0 


50000 


2 


15674 




CAL 


PRED»2 


00440 


-0 


60200 





00571 




ORS 


ACV10 


00441 





50000 





00566 


AC6 


CLA 


ACV7 


00442 





40000 





00315 




ADD 


ONEA 


00443 





02000 





00412 




TRA 


AC 7 


00444 


-0 


50000 





00571 


AC8 


CAL 


ACV10 


00445 


-0 


32000 





00553 




ANA 


TMSK 


00446 





10000 





00503 




TZE 


AC12 


00447 





50000 





00567 




CLA 


ACV8 


00450 





07400 


4 


00067 




TSX 


SE1#4 


00451 





56000 


1 


12533 




LDQ 


BBB»1 


00452 


-0 


77300 





00024 




RQL 


20 


00453 





16200 





00^55 




TOP 


AC 18 


00454 





02000 





00503 




TRA 


AC12 


00455 





50000 





00557 


AC18 


CLA 


LT1 


00456 


-0 


60200 


1 


12533 




ORS 


BBBtl 


00457 





50000 





00570 




CLA 


ACV9 


00460 





62100 





00566 


AC11 


STA 


ACV7 


00461 





34000 





00565 




CAS 


ACV6 


00462 





02000 





00464 




TRA 


AC9 


00463 





02000 





00531 




TRA 


AC19 


00464 





07400 


4 


00055 


AC9 


TSX 


SE5»4 


00465 


-0 


63400 


1 


00572 




SXD 


ACV11»1 


00466 





50000 


1 


15674 




CLA 


PRED»1 



F5G33780 
F5G33790 
F5G33800 
F5G33810 
F5G33820 
F5G33830 
F5G33840 
F5633850 
F5G33860 
F5G33870 
F5G33880 
F5G33890 

N0 F5G33900 

IS THIS THE TRANSFER FROM CURRENTLY C0NSIDEREF5G33910 



PRESET COMBINED LXD CASE TO 
FIND NO. OF 1ST PRED IN THIS BB 



RECORD 1ST PRED FOR FUTURE USE 



IS THIS PRED IN SAME BB 



ED GO TO NP 



IF NOT SKIP THE ORING OF SXD CASE 

OR THE SXD CASE INTO COMBINED SXD CASE 



IS THE BB WHICH IS PREDECESSOR 
A GO TO N 



YES# OR THE LXD XCASE INTO THE 
COMBINED LXD CASE 



IS THE COMBINED LXD CASE ZERO 



NOt HAS THIS BB ALREADY BEEN 

CONSIDERED 

AS A SUCCESSOR TO 

A GO TO N 



RECORD THAT THIS BB HAS BEEN CONSIDERED AS 
ECU.PE PREPARE TO SCAN ALL PRED ENTRYS 

IS THIS PRED IN SAME BB 

NO 

DETERMINE IF THE BB WHICH 

IS THE PREDECESSOR OF THIS ONE 

ISA 60 TON 



F5G33920 

F5G33930 

F5G33940 

F5G33950 

F5G33960 

F5G33970 

F5G33980 

F5G33990 

F5G34000 

F5G34010 

F5634020 

F5G34030 

F5G34040 

F5G34050 

F5G34060 

F5G34070 

F5G34080 

F5G34090 

F5G34100 

F5G34110 

F5G34120 

F5634130 

F5G34140 

F5G34150 

F5G34160 

F5G34170 

F5G34180 

F5G34190 

F5G34200 

F5G 34210 

F5G34220 

F5G34230 

F5G34240 

F5G34250 

F5G34260 

F5G34270 

F5G34280 

F5G34290 

F5G34300 

F5G34310 



00467 07400 4 00067 

00470 50000 1 12533 

00471 77100 00041 

00472 40000 00315 

00473 -0 10000 00500 

00474 -0 53400 2 00572 

00475 50000 00571 

00476 -0 32000 00553 
©0477 --0 60200 2 15674 

00500 50000 00566 

00501 40000 00315 

00502 02000 00460 

00503 50000 00561 

00504 40000 00315 

00505 02000 00367 

00506 50000 00317 

00507 07400 4 00067 

00510 50000 00563 

00511 76700 00017 

00512 63000 1 12534 

00513 50000 1 12534 

00514 77100 00022 

00515 -0 32000 00552 

00516 60100 00317 

00517 02000 00351 

00520 76600 00222 

00521 53400 1 00314 

00522 -0 53400 2 00527 

00523 70000 00573 

00524 -3 00000 2 00030 

00525 70000 1 00647 

00526 1 77777 1 00527 

00527 -3 00000 1 00030 

00530 O20O0 00525 

00531 500O0 00567 

00532 07400 4 00067 

00533 53400 2 00314 

00534 50000 1 12540 

00535 34000 2 00647 

00536 02000 00540 

00537 02000 00543 

00540 -3 00000 2 00542 

00541 -3 00000 2 00503 

00542 1 77777 2 00535 

00543 -0 50000 O 00571 

00544 -0 32000 00553 

00545 77100 00005 

00546 40000 00567 

00547 36100 00556 

00550 60200 2 00647 

00551 02000 00534 

00552 00000 77777 

00553 00000 7 00000 

00554 -377770777777 





TSX 


SE1»4 




CLA 


B8B*1 




ARS 


33 




ADO 


ONEA 




TNZ 


AC 10 




LXD 


ACV11»2 




CLA 


ACV10 




ANA 


TMSK 




ORS 


PRED>2 


AC10 


CLA 


ACV7 




ADO 


ONEA 




TRA 


AC11 


AC12 


CLA 


ACV2 




ADD 


ONEA 




TRA 


AC13 


AC14 


CLA 


C 




TSX 


SE1»4 




CLA 


ACV4 




ALS 


15 




STP 


BBB+1»1 




CLA 


BBB+1#1 




ARS 


18 




ANA 


AMSK 




STO 


C 




TRA 


AC15 


AC16 


WTB 


ACTPE 




LXA 


ZER0»1 




LXD 


ACV1»2 




CPY 


ACV12 




TXL 


R»2»0 


AC17 


CPY 


ASCONtl 




TX1 


ACV1»1»-1 


ACV1 


TXL 


Ril»SET 




TRA 


AC17 


AC19 


CLA 


ACV8 




TSX 


SE1»4 




LXA 


ZERO t 2 


AC25 


CLA 


BBB+5»1 


AC23 


CAS 


ASC0N»2 




TRA 


AC20 




TRA 


AC 24 


AC20 


TXL 


AC21»2tO 


AC22 


TXL 


AC12»2»SET 


AC21 


TXI 


AC23*2»-1 


AC24 


CAL 


ACV10 




ANA 


TMSK 




ARS 


5 




ADD 


ACV8 




ACL 


LXDC 




SLW 


ASC0N»2 




TRA 


AC 25 


AMSK 


HTR 


-1 


TMSK 


HTR 


0»-l 


NTMSK 


OCT 


777770777777 



IT IS A GO TO N 
REPLACE LXD CASE BY THE 
COMBINED L^D CASE 

ARRANGE TO TREAT NEXT PRED ENTRY 



ARRANGE TO TREAT NEXT SUCC ENTRY 

STORE COMBINED 

SXDCASE IN PREFIX 

OF 2ED WORD OF BBB ENTRY 



GET NEXT GO TO N NUMBER 



WRITE ASSIGN CONSTANTS BACK ON TAPE 



IF NO ASSIGN CONST •• GO TO NEXT PART 



IS THIS ASSIGN CONST. EQUAL TO THE 

LOCATION OF 1ST INST IN BB 

YES 



REPLACE ASSIGN CONST. BY NEW 
LOCATION SYMBOL 



F5G34320 
F5G34330 
F5G34340 
F5634350 
F5G34360 
F5G34370 
F5G34380 
F5G34390 
F5G34400 
F5G34410 
F5G34420 
F5G34430 
F5G34440 
F5G34450 
F5G 34460 
F5G34470 
F5G 34480 
F5G34490 
F5G34500 
F5634510 
F5G34520 
F5G34530 
F5G34540 
F5G34550 
F5G34560 
F5G34570 
F5G34580 
F5G34590 
F5G34600 
F5G34610 
F5G34620 
F5G34630 
F5G 34640 
F5G34650 
F5G34660 
F5G34670 
F5G34680 
F5G34690 
F5G34700 
F5G34710 
F5G34720 
F5G34730 
F5G34740 
F5G34750 
F5G34760 
F5G34770 
F5G34780 
F5G34790 
F5G34800 
F5G34810 
F5G34820 
F5G34830 
F5G34840 
F5G34850 



u 



& 



00555 
00556 
00557 
00560 
00561 
00562 
00563 
00564 
00565 
00566 
00567 
00570 
00571 
00572 
00573 
00574 



00005 00000 
+150000000000 

00000 1 00000 
+000000077776 
00000 00000 
00000 
00000 
00000 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



00000 
00000 

ooooo 

00000 

ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 

00647 



3LD3 
LXDC 
LT1 
ACK1 
ACV2 
ACV3 
ACV4 
ACV5 
ACV6 
ACV7 
ACV8 
ACV9 
ACV10 
ACV11 
ACV12 
ACV13 
ASCON 



OCT 
HTR 
OCT 



0#0»5 

150000000000 

0*1 

77776 



THE NUMBER IDENTIFYING THE LOC. OF AN LXD 



NO* OF CURRENT SUCC. OF THIS 8B IN ADDR* 
NO. OF 1ST SUCC IN NEXT BB IN ADDR 
COMBINED SXD CASE LAST OCTAL DIGIT IN DECR 
NO. OF CURRENT PREO IN ADDR 
NO. OF 1ST PRED IN NEXT BB IN ADDR 
MQ. OF CURRENT PRED IN THIS BB IN ADDR 
BB NO. OF SUCCESSOR IN ADDR 

NO. OF 1ST PRED IN THE SUCCESSOR BB IN ADDR 
THE COMBINED LXD CASE 

TEMP. STORE FOR PRED TABLE INDEX AT AC5 
EXTRA WORD FROM ASSIGN CONSTANT RECORD 
TEMP. STORE FOR LOCATION OF 1ST INST* IN BB 
BES PTL3 SPACE FOR PATCHES 
EDITOR RECORD NO. 88 
FOR CONTROL CARD INFORMATION* SEE END OF ASSEMBLY. 
DIAGNOSTIC CALLER FOLLOWS 
PART 4 
COMPILE INSTRUCTIONS FROM PREVIOUS RESULTS 
CONSTANTS 











00317 




ORG 


C 


00317 





OOOOO 





00003 


L3 




3 


00320 





OOOOO 





00004 


L4 




4 


00321 





OOOOO 





00007 


L7 




7 


00322 





OOOOO 





00023 


L19 




19 










00316 


LD1 


SYN 


ONED 


00323 





00002 





OOOOO 


LD2 




0*0*2 


00324 





00003 





OOOOO 


LD3 




0*0*3 


00325 





00004 





ooooo 


LD4 




0*0*4 


00326 





00007 





ooooo 


LD7 




0*0*7 


00327 





00010 





ooooo 


LD8 




0*0*8 


00330 





00011 





ooooo 


LD9 




0*0*9 


00331 





00014 





ooooo 


LD12 




0*0*12 


00332 





OOOOO 


7 


ooooo 


LT7 




0*7 


00333 





OOOOO 





77754 


LM20 




-20 


00334 





ooooo 





77774 


LM4 




-4 


00335 





77777 





OOOOO 


DECMK 




0*0*-l 


00336 


3 


77777 


7 


77777 


ENDMK 


PTH 


-1*-1»-1 


00337 





OOOOO 





77777 


ADDMK 




-1 


00340 


+000000777770 


STMSK 


OCT 


777770 


00341 





OO007 


7 


OOOOO 


PRMK 




0*7*7 


00342 





OOOOO 


7 


77777 


TAGMK 




-1»-1 


00343 


-3 


77777 





OOOOO 


LFTMSK 


MTH 


0*0»~1 










00343 


SMK3 


SYN 


LFTMSK 


00344 


634743000000 


LTPL 


BCD 


1TPL000 


00345 


436747000000 


LLXP 


BCD 


1LXP000 


00346 


627045000000 


LSYN 


BCD 


1SYN000 


00347 


242524000000 


LDED 


BCD 


1DEDO0O 


00350 


635121000000 


LTRA 


BCD 


1TRAO0O 


00351 


636267000000 


LTSX 


BCD 


1TSX000 


00352 


226262000000 


LBSS 


BCD 


1BSS000 



DECREMENT MASK 



MASK FOR PRED RESULTS 
MASK FOR TAU- TAGS 



BSS IN BCD* 



F5G34860 
F5G34870 
F5G34880 
F5G34690 
F5G34900 
F5G34910 
F5G34920 
F5G34930 
F5G34940 
F5G34950 
F5G34960 
F5G34970 
F5G34980 
F5G34990 
F5G35000 
F5G35010 
F5G35020 
F5G35030 
F5G35040 
F5G35060 
F5G35070 
F5G35080 
F5G35090 
F5G35100 
F5G35110 
F5G35120 
F5G35130 
F5G35140 
F5G35150 
F5G35160 
F5G35170 
F5G35180 
F5G35190 
F5G35200 
F5G35210 
F5G35220 
F5G35230 
F5G35240 
F5G35250 
F5G35260 
F5G35270 
F5G35280 
F5G35290 
F5G353Q0 
F5G35310 
F5G35320 
F5G35330 
F5G35340 
F5G35350 
F5G35360 
F5G35370 
F5G35380 
F5G35390 
F5G35391 



^ 



00353 


+076225000000 


LPSE 


OCT 


76225000000 






00354 


+060000000000 


GSYM 


OCT 


60000000000 


GARBAGE SYMBLE 




00355 


00004 00004 


T4SYM 


PZE 


4*0*4 


TAG 4 AND RELATIVE PART 4 




00356 


00000 00004 






4 


4 NUMBERS TO CONVERT S-TAG 




00357 


00000 00002 






2 






00360 


00000 00001 






1 






00361 


00000 00000 


VSTAG 


PZE 









00362 


00009 00001 


RECSC 


HTR 


RECNO 


f ADDR» NO. OF RECS. BROUGHT IN » 


C.I.T. 


00363 


02000 00000 


LCOUT 


TRA 


- 


TRANSFER TO EXIT ROUTINE 




00364 


+035121000000 




OCT 


35121000000 


TRA OP CODE 




00365 


+041104000000 




OCT 


41104000000 


PSE-TRA 




00366 


-033642000000 




OCT 


-33642000000 


DCT-PSE 




00367 


-024000000000 




OCT 


-24000000000 


RTT-DCT 




00370 


+027642000000 




OCT 


27642000000 


MSE-RTT 




00371 


-007100000000 




OCT 


-7100000000 


TZE-MSE 




00372 


-032154000000 




OCT 


-32154000000 


HPR-TZE 




00373 


+031316000000 


LNTOP 


OCT 


31316000000 


TSX-HPR 




00374 


+035121000000 




OCT 


35121000000 






00375 


+001622000000 




OCT 


1622000000 


TXL-TRA 




00376 


-031772000000 




OCT 


-31772000000 


HPR-TXL 




00377 


+031400000000 


LTROP 


OCT 


31400000000 


TTR-HPR 




00400 


-370000000000 


FSTLT 


OCT 


-370000000000 






00401 


-230000000000 


FSTT 


OCT 


-230000000000 






00402 


+170000000000 


PCC 


OCT 


170000000000 


MEANS LOCATION OF THIS INST. 




00403 


-300000000000 


PFXMK 


OCT 


-300000000000 






00404 


+000770000000 


XXPSX 


OCT 


770000000 


CONSTANTS TO TEST PSE ADDR. 




00405 


+000160000000 


XX16X 


OCT 


160000000 






00406 


+000360000000 


XX 360 


OCT 


360000000 






00407 


+000000777777 


SHK1 


OCT 


777777 


CONST. TO EXTRACT R. HALF WORD 






00320 


SHK2 


SYN 


L4 






00410 


+160000000000 


SIK2 


OCT 


160000000000 


I.D. FOR LOCATION OF SXD 




00411 


626724000000 


SIK3 


BCD 


1SXD000 


SXD IN BCD 






00411 


LSXO 


SYN 


SIK3 








00410 


IOSXD 


SYN 


S1K2 






00412 


00000 00144 


SKK1 




LCLST 








00350 


SLKi 


SYN 


LTRA 


TRA IN BCD 




00413 


+150000000000 


SMK1 


OCT 


150000000000 


I»0« FOR LOCATION OF LXD 




00414 


436724000000 


SMJC2 


BCD 


1LXD000 


LXD IN BCD 






00414 


LLXD 


SYN 


SMK2 


FOR SMK3 SEE LFTMSK 




00415 


+140000000000 


SMK4 


OCT 


140000000000 


I.D. FOR TAU-TAG 






00413 


SLK2 


SYN 


SMK1 








00413 


IDLXD 


SYN 


SMK1 








00415 


IDTAG 


SYN 


SMK4 






00416 


-000000000000 


Z1K3 


OCT 


-0 








00416 


MZE 


SYN 


Z1K3 






00417 


77776 00000 


22K1 




0»0»-2 


THE INDEXES NEEDED TO REFER 




00420 


77772 00000 






0»0*-6 


TO THE BOTTOM POSITIONS 




00421 


77766 00000 






Q»0»-10 


IN LlSTlt LIST2# LIST3» RESPT. 




00422 


00007 00003 


Z2K2 


HTR 


3»0»7 


NO. OF LISTS* NO. OF CASES 




00423 


00000 00001 


CASE 


HTR 


1 






00424 


00000 00002 






2 






00425 


00000 00004 






4 






00426 


00000 00003 






3 







F5G35400 
F5G35410 
F5G35420 
F5635430 
F5G35440 
F5G35450 
F5G35460 
F5G35470 
F5G35480 
F5G35490 
F5G35500 
F5G35510 
F5635520 
F 563.5 530 

F5G35540 
F5G35550 
F5G35560 
F5G35570 
F5G35580 
F5G35590 
F5G35600 
F5G35610 
F5G35620 
F5G35630 
F5G35640 
F5G35650 
F5G35660 
F5G35670 
F5G35680 
F5G35690 
F5G35700 
F5G35710 
F5G35720 
F5G35730 
F5G35740 
F5G35750 
F5G35760 
F5G35770 
F5G35780 
F5G35790 
F5G35800 
F5G35810 
F5G35820 
F5G35830 
F5G35840 
F5G35850 
F5G35860 
F5G35870 
F5G35880 
F5G35890 
F5G35900 
F5G35910 
F5G35920 
F5G35930 



/! C 



U 



/ \ 

kj 



00427 
00430 
00431 
00432 
00433 
00434 
00435 
0C436 
00437 
00440 
00441 
00442 

00443 
00444 
00445 
00446 
00447 
00450 
00451 
00452 
00453 
00454 
00455 
00456 
00457 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00470 
00471 
00472 
00473 
00474 
00475 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 



00000 00005 
00000 00006 
00000 00007 
+000032212110 
+000030000000 
00000 00007 
00000 77777 
00000 00000 
00000 01000 
77770 00000 
77764 00000 
77760 00000 

-0 00001 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 
00000 00000 

ooooo o ooooo 
ooooo ooooo 
ooooo ooooo 

-000000000001 
OOOOO ooooo 



o ooooo 
-0 ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 



ooooo ooooo 
ooooo ooooo 
ooooo 

OOOOO 

ooooo 

OOOOO 
OOOOO 
OOOOO 
OOOOO 

ooooo 
ooooo 

OOOOO 

ooooo 



00655 00144 



ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 
ooooo 

00655 

ooooo 



Z2K3 

Z2K4 

Z2K5 

Z4IU 

Z4K2 

LNSXD 

Z7K1 



BBN0 

NXTLOC 

OUTBX 

ERRBX 

BBOX 

BBOXl 

ABOX 

TAG 

STAGN1 

STAGN2 

9CNT 

STGWD 

TMP10 

CIND 

CPIND 
ARG1 
MB0X 
SUCNO 
SXDO 
SXD1 
SXD 2 
SX03 
SAD VI 
SADV2 
SADV3 
SADV4 
SADV5 
SHV1 
SHV2 
SlVl 
SIV2 
SIV3 
SIV4 
SIV5 
SIV6 
SJV1 
SJV2 
SJV3 
CLST 
SKV1 



CONST. TO OETERMINE NO. 1 S IN 3 BITS 



OCT 32212110 
DEC 3B14 
HTR 7 

-1 



NSXD*4 

0»0»-8 

0»0#-12 

0t0»-16 

THE DEFINITION OF TEMP. AND VARIABLE STORAGE LOCATIONS 



INDEX OF ST SXD CASE 

NO. OF SXD IN SXD LIST 

INDEAXES OF ASSOCIATED SXD CASES 



MZE 0.0»1 



DEC -1 



MZE 



DECR.t CURRENT BB NO. BEING SCANNED 
LOCATUON OF 1ST INST OF THE BB 
TEMP. STORAGE OF RETURN INDEXES 
ERROR INDICATOR 

TEMP. STORE FOR INDEXES* MAINLY 2 
ANOTHER OF SAME 
TEMP. STORE » INDEX 1 
TAU-TAG FROM AN INST. 

WORD FROM STAG SHIFTED LEFT MULTIPLE OF I 
SAME WORD SHIFTED BY ONES 
COUNT TO 9» 9 TAGS IN STAG WORD 
NO. OF STAG ENTRY BEING CONSIDERED 
TEMP. STORE » LASTS ONLY 10 INSTRS. 
+ OR - MEANS IR4 ISNT OR IS NECESSARY 
OR - MEANS COMPILE/DONT COMPILE 
U 1ST ARGUMENT FOR SUBROUTINES 
NO. OF TRANSFERS IN GO TO VECTOR 
NO. OF A SUCCESSOR* GOV ROUTINE 
LXD CASE IN DECR.» PRED NO. IN ADDR. 
3 TAU TAGS WHICH MUST BE STORED 
FROM IR1»2*3 
RESPT. 

RETURN INDEX 

LOCATION OF 1ST INST IN SUCCESSOR BB 
NO. OF CURRENT PR ED 
NO. OF 1ST PRED IN SUCCESSOR BB 
THE SUCCESSOR BB NO. 
RETURN INDEX 
ENTRY FROM PRED. 

INDEX OF SXD CASE RELATIVE TO SXST 
RETURN INDEX 

LOCATION OF 1ST INST. IN SXD GROUP 
TEMP. STORE 

STORE FOR INDEX OF TAU TAG IN SXD CASE 
STOER FOR THE TAG 
LXD CASE IN DECR. 
RETURN INDEX 

BES LCLST THE NEW LIST OF COMPILED INST. 

0»0»LCLST INDEX FOR NEXT ENTRY IN CLST 
SKV1 COMES ALREADY INITIALIZED 



F5G35940 

F5G35950 

F5G35960 

F5G35970 

F5G35980 

F5G35990 

F5G360O0 

F5G36010 

F5G36020 

F5G36030 

F5G36040 

F5G36050 

F5G36060 

F5G36070 

F5G36080 

F5G36090 

F5G36100 

F5G36110 

F5G36120 

F5G36130 

F5G36140 

F5G36150 

F5G36160 

F5G36170 

F5G36180 

F5G36190 

F5G36200 

F5G36210 

F5G36220 

F5G36230 

F5G36240 

F5G36250 

F5G36260 

F5G36270 

F5G36280 

F5G36290 

F5G36300 

F5G36310 

F5G36320 

F5636330 

F5G36340 

F5G36350 

F5G36360 

F5G36370 

F5G36380 

F5G36390 

F5G36400 

F5G36410 

F5636420 

F5G36430 

F5G36440 

F5G36450 

F5G36460 

F5G36470 



* " 



00656 
00657 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00670 
00671 
00672 
00673 
00674 
00675 



00715 
00716 
00717 
00720 



00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 
00000 



00000 
00000 
00000 
00000 



01101 -0 00000 



00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00676 

00702 

00706 

00715 

00000 

00000 

00000 

00000 

00735 

01101 

00000 

01102 



SLV1 
SLV2 
SLV3 
SMV1 
SMV2 
SMV3 
SMV4 
Z1V2 
Z1V3 
Z1V5 
Z1V8 
Z2V1 



Z2V2 

Z2V3 

LIST1 

LIST2 

LIST3 

LLIND 

Z4V1 

Z5V1 

Z7V1 

Z7V2 

NDINS 

INST 

SXST 



02125 -0 00000 



01105 SXASO 
01111 SXAS1 
01115 SXAS2 
01121 SXAS3 
01125 SXAS 
00000 SYN 



BSS 
BSS 
BSS 
BES 



RETURN INDEX F5G36480 

LOCATION TO BE ATTACHED TO TRA F5G36490 

+ OR - MEANS ISNT OR IS HANGING TRAO F5G36500 
RETURN INDEX F5G36510 

TAG TO BE COMPILED F5G36520 

STORE INDEX OF QUANTITY IN LIST F5G36530 

LOCATION ♦ TEMP, STORE F5G36540 

NO. OF 1ST PRED. IN NEXT BB F5G36550 

NO* OF PRED BEING CONSIDERED F5G36560 

THE CASES F5G36570 

THE LOO OF 1ST PRED IN BB* USED IN Z4 F5G36580 
IN DECREMENTS* THE INDEXES F5G36590 

THE TOP ENTRIES F5G36600 

IN THE. 3 LXD LISTS F5G36610 

IN ADDR.* NO. OF IS IN DIFFERENCE F5G36620 

IN DECR.» INDEX OF LIST GIVING MIN. DIFFERENCF5G36630 

F5G36640 

F5G36650 

F5G36660 

+ OR - MEANS LIST NOT TO BE OR TOBE COMPILED F5G36670 



BES 12 

BES RECNO*100 

MZE 

BSS 3 



TEMP. STORE » LXD CASE IN ADDR. 

INDEX IN SYN TABLE 

INDEX OF LIST 

+ OR - MEANS 1ST OR 2 ED TIME THRU 

BLOCK FOR 3 EXTRA COMPILED INST. 

THE BLOCK FOR THE COMPILED INSTR 

- OR + MEANS NO SEQUENTIAL TRANSFER OR 



THE SXD INST. ASSOCIATED WITH SEQUENTIAL TRANSFER 



BSS 
BSS 
BSS 
BSS 



BSS 4*NSXD 
MZE 



F5G36680 
F5G36690 
F5G36700 
F5G36710 
F5G36720 
F5G36730 
F5G36740 
F5G36750 
F5G36760 
F5G36770 
F5G36780 
F 56 3 6 790 
F5G36800 
F5G36810 
F5G36820 
F5G36830 



ASSOCIATED WITH LXD CASE 

WITH 1ST LXD LIST 

2ED LIST 

3RD 

THE LIST OF SXD INST. 

SYN CARD TABLE STORED BACKWARD 
WHEN ENTERED WITH PRESENT BB NO. IN ADDR OF AR61 AND BBNO. 

OFA SUCCESSOR BB IN ADDR. OF AC* SAD FIGURES OUT WHAT THE ADF5G3684Q 

DRESS OF CORRESPONDING TRANSFER INST. SHOULD BE AND RETURNS F5G36850 

WITH THE ADDR IN LOGICAL AC F5G36860 

F5G36870 
F5G36880 
F5G36890 
F5G36900 
F5G36910 
F5G36920 
F5G36930 
F5G36940 
F5G36950 
F5G36960 
F5G36970 
F5G36980 
F5G36990 
F5G37OO0 
F5G37010 



02126 


-0 63400 


4 


00471 


SAD 


SXD SADV1*4 


STORE RETURN 


02127 


-0 32000 





00337 




ANA ADDMK 


STORE THE SUCC. NO. 


02130 


60100 





00475 




STO SADV5 




02131 


07400 


4 


00067 




TSX SE1»4 




02132 


50000 


1 


12540 




CLA BBB+5»1 




02133 


60100 





00472 




STO SADV2 




02134 


50000 


1 


12533 




CLA B3B*1 




02135 


-0 32000 





00337 




ANA ADDMK 




02136 


60200 





00474 




SLW SADV4 




02137 


60200 





00473 


SAD1 


SLW SADV3 




02140 


07400 


4 


00055 




TSX SE5»4 




02141 


50000 


1 


15674 




CLA PRED»1 




02142 


-0 32000 





00337 




ANA ADDMK 


IS THIS THE CORRECT 


02143 


40200 





00462 




SUB ARG1 


PRED ENTRY 


02144 


10000 





02150 




TZE SAD2 





YL> 



O 






02145 


-0 


50000 





00473 




CAL 


SADV3 


02146 





40000 





00315 




ADO 


ONEA 


02147 





02000 





02137 




TRA 


SAD1 


02150 


-0 


50000 


1 


15674 


SAD2 


CAL 


PRED»1 


02151 


-0 


32000 





00326 




ANA 


LD7 


02152 





10000 





02160 




TZE 


SAD3 


02153 





50000 





00473 




CLA 


SADV3 


02154 





40200 





00474 




SUB 


SADV4 


02155 





76700 





00012 




ALS 


10 


02156 





40000 





00410 




ADD 


IDSXD 


02157 





02000 





02165 




TRA 


SAD6 


02160 





50000 


1 


15674 


SA03 


CLA 


PREDtl 


02161 


-0 


32000 





00332 




ANA 


LT7 


02162 





10000 





02170 




TZE 


SAD4 


02163 





77100 





00005 




ARS 


5 


02164 





40000 





00413 




ADD 


IDLXD 


02165 





40000 





00475 


SAD6 


ADD 


SADV5 


02166 


-0 


53400 


4 


00471 


SAD5 


LXD 


SADV1>4 


02167 





02000 


4 


00001 




TRA 


1»4 


02170 


-0 


5OO00 





00472 


SAD4 


CAL 


SADV2 


02171 





02000 





02166 




TRA 


SAD5 
THIS ROUTINE 
INDICATES IT 


02172 





50000 





00461 


SCMI 


CLA 


CPIND 


02173 





12000 





02206 




TPL 


SCMI1 


02174 


-0 


63400 


4 


00457 




SXD 


TMP10»4 


02175 





50000 


2 


01101 




CLA 


INST*2 


02176 





07400 


4 


02367 




TSX 


SK»4 


02177 





50000 


2 


01100 




CLA 


INST-1*2 


02200 





07400 


4 


02367 




TSX 


SK»4 


02201 





50000 


2 


01077 




CLA 


INST-2»2 


02202 





07400 


4 


02367 




TSX 


SK»4 


02203 





50000 


2 


01076 




CLA 


INST~3»2 


02204 





07400 


4 


02367 




TSX 


SK»4 


02205 


-0 


53400 


4 


00457 




LXD 


TMP10.4 


02206 


-0 


76000 





00003 


SCMI1 


SSM 




02207 





60100 





00461 




STO 


CPIND 


02210 





02000 


4 


00001 




TRA 


1«4 
DETERMINE AN 


02211 


-0 


63400 


4 


00476 


SH 


SXD 


SHVlt4 


02212 





53400 


4 


00320 




LXA 


SHK2»4 


02213 





56000 





00314 




LOG 


ZERO 


02214 


-0 


60000 


4 


00471 


SHI 


STQ 


SXD0+4#4 


02215 


2 


00001 


4 


02214 




TIX 


SHl»4t 1 


02216 





62100 





00465 




STA 


SXDO 


02217 





07400 


4 


00055 




TSX 


SE5»4 


02220 





50000 


1 


15674 




CLA 


PRED»1 


02221 





60100 





00477 




STO 


SHV2 


02222 





07400 


4 


00067 




TSX 


SE1»4 


02223 


-0 


53400 


4 


00324 




LXD 


LD3»4 


02224 





56000 





00477 


SH2 


LDQ 


SHV2 


02225 


-0 


77300 


4 


00022 




RQL 


18»4 


02226 





16200 





02232 




TOP 


SH3 


02227 





50000 


1 


12535 




CLA 


BBB+2»1 



N0» TRY NEXT RETURN 



IS THE SXD CASE 

YES 

N0» FORM THE SYMBOLIC ADDR. 

AS ID FOR SXD PLUS NO. OF PRED WITHIN 

THE BB * 1024 PLUS BB NO. 



IS THE LXD CASE ZERO 



N0# FORM TH SYMBOLIC ADDR. 

AS 1024* LXD CASE PLUS BB NO. PLUS 

I. D. FOR AN LXD 



COMPILES CURRENT INST) IF INDICATOR IN CPIND 
SHOULD BE 

SHOULD INST. BE COMPILED 

YES» COMPILE THE INST 



RECORD INST SHOULD BE COMPILED 

SXD CASE SUBROUTINE 
STORE RETURN 
CLEAR 
THE 
SXD 

POSITIONS 0-3 
STORE THE PRED NO. 
GET INDEX OF PRED 
GET AND 

STORE PRED ENTRY 
GET INDEX OF BBB TABLE ENTRY 
N0» SET COUNT TO 3 
IS 

SXD REQUIRED 
FOR THIS I.R. 
YES» GET AND 



F5G37020 
F5G37030 
F5G37040 
F5G37050 
F5G37060 
F5G37070 
F5G37080 
F5G37090 
F5G37100 
F5G37110 
F5G37120 
F5G37130 
F5G37140 
F5G37150 
F5G37160 
F5G37170 
F5G37180 
F5G37190 
F5G37200 
F5G37210 
F5G37220 
F5G37230 
F5G37240 
F5G37250 
F5G37260 
F5G37270 
F5G37280 
F5G37290 
F5G37300 
F5G37310 
F5G37320 
F5G37330 
F5G37340 
F5G 37350 
F5G37360 
F5G37370 
F5G37380 
F5G37390 
F5G37400 
F5G37410 
F5G37420 
F5637430 
F5G 37440 
F5G37450 
F5G37460 
F5G37470 
F5G37480 
F5G37490 
F5G37500 
F5G37510 
F5G37520 
F5G37530 
F5G37540 
F5G37550 



r->\ 



02230 


-0 


32000 





00342 


02231 





60100 


4 


00471 


02232 


1 


77777 


1 


02233 SH3 


02233 


2 


OOOOl 


4 


02224 


02234 


-0 


50000 





00477 SH4 


02235 


-0 


32000 





00332 


02236 





76700 





00003 


02237 





62200 





00465 


02240 


-0 


53400 


4 


00476 


02241 





02000 


4 


00001 


02242 


-0 


63400 


4 


00501 SI 


02243 


-0 


63400 


1 


00500 


02244 





07400 


4 


02426 


02245 


-o 


50000 





00443 


02246 





77100 





00022 


02247 





60100 





00657 


02250 





07400 


4 


00067 


02251 





50000 


1 


12533 


02252 


-0 


32QO0 





00337 


02253 





60100 





00503 


02254 


-0 


53400 


1 


00500 


02255 





50000 


1 


01101 


02256 


-0 


32000 





00337 


02257 





40200 





00503 


02260 





76700 





00012 


02261 





40000 





00657 


02262 





40000 





00410 


02263 





60100 


0- 


00657 


02264 


-0 


53400 


2 


00324 


02265 





50000 


1 


01102 512 


02266 





10000 





02305 


02267 


-o 


63400 


1 


00504 


02270 





60100 





00505 


02271 





50000 





00657 


02272 





07400 


4 


02367 


02273 





50000 





00314 


02274 





60100 





00657 


02275 





50000 





00411 


02276 





07400 


4 


02367 


02277 





50000 





00505 


02300 





40000 





00415 


02301 





07400 


4 


02367 


02302 





50000 


2 


00361 


02303 





07400 


4 


02367 


02304 


-0 


53400 


1 


00504 


02305 


1 


77777 


1 


02306 511 


02306 


2 


00001 


2 


02265 


02307 


-0 


53400 


1 


00500 


02310 





50000 


1 


01101 


02311 


-0 


73400 


2 


00000 


02312 


-3 


00000 


2 


02321 


02313 


-3 


00000 


1 


02325 


02314 


3 


77757 


1 


02334 



ANA TAGMK 
STO SXDl+3#4 
TXI SH3+1»1»-1 
TIX SH2»4»1 
CAL SHV2 
ANA LT7 
ALS 3 
STD SXDO 
LXD SHV1»4 
TRA 1»4 

COMPILE AN SXD 
SXD SIV2»4 
SXD SIV1#1 
TSX SL1»4 
CAL BBNO 
ARS 18 
STO SLV2 
TSX SE1»4 
CLA BBBfl 
ANA ADDMK 
STO SIV4 
LXD SIVlfl 
CLA SXST»1 
ANA ADDMK 
SUB SIV4 
ALS 10 
ADD SLV2 
ADD SIK2 
STO SLV2 
LXD LD3»2 
CLA SXST+1»1 
TZE SI1 
SXD SlV5tl 
STO SIV6 
CLA SLV2 
TSX SK*4 
CLA ZERO 
STO SLV2 
CLA SIK3 
TSX SKt4 
CLA SIV6 
ADO SMK4 
TSX SK»4 
CLA VST AG • 2 
TSX SK»4 
LXD SlV5tl 
TXI SIl+ltl«-l 
TIX SI2»2»1 
LXD SIV1#1 
CLA SXST»1 
PDX 0*2 
TXL SI3»2*0 
TXL SI4*1»0 
TXH SI6tlt-16-l 



EXTRACT THE 

EXIT CONDITIONS 

DOWN THE EXIT CONDITIONS 

COUNT TO 3 

GET 

AND STORE 

LXD CASE 



RETURN 
CASE SUBROUTINE 
STORE RETURN 
STORE INDEX OF SXD CASE 
RECORD ANY HANGING TRANSFER 



STORE BB NO. 
GET INDEX OF BB 



STORE LOC. OF 1ST PRED IN BB 

FORM 

LOC. OF THIS PRED - 

LOC. OF 1ST PRED IN BB 



STORE THE LOC. OF 1ST SXD 

IS THIS TAG 

N0» PRESERVE INDEX 1 

PRESERVE THE TAG 

PUT LOCATION WORD ON TAPE 

AND RESET TO 

PUT SXD ON TAPE 

14*2**-5+TAU-TAG IS 
SYMBOLIC ADDRESS 

PUT S-TAG ON TAPE 

COUNT TO 3t FORM N+l 



IS THE LXD CASE 

N0> IS THIS THE ST POSITION 

IS THIS ASSOCIATED WITH A LIST 



F5G37560 

F5G37570 

F5G37580 

F5G37590 

F5f37600 

F5G37610 

F5G37620 

F5G37630 

F5G37640 

F5G37650 

F5G37660 

F5G37670 

F5G37680 

F5G37690 

F5G37700 

F5G37710 

F5G37720 

F5G37730 

F5637740 

F5637750 

F5G37760 

F5G37770 

F5G37780 

F5G37790 

F5G37800 

F5G37810 

F5G37820 

F5G37830 

F5G37840 

F5G37850 

F5G37860 

F5G37870 

F5G37880 

F5G37890 

F5G37900 

F5G37910 

F5G37920 

F5G37930 

F5G37940 

F5G37950 

F5G37960 

F5G37970 

F5G37980 

F5G37990 

F5G38O00 

F5G38010 

F5G38020 

F5G38030 

F5G38040 

F5G38050 

F5G38060 

F5G38070 

F5G38080 

F5G38090 



o 



u 



02315 





77100 





00022 


SI5 


ARS 


18 


02316 





07400 


4 


02403 




TSX 


SL#4 


02317 


-0 


53400 


4 


00501 




LXD 


SIV2»4 


02320 





02000 


4 


00003 




TRA 


3*4 


02321 





50200 





00315 


SI3 


CLS 


ONE A 


Q232Z 


.60100 





00660^ 


^ 


STO 


SLV3 


02323 


-0 


53400 


4 


00501 




LXD 


SIV2»4 


02324 





02000 


4 


000G1 




TRA 


1*4 


02325 





60100 





00465 


SI4 


STO 


SXDO 


02326 





07400 


4 


02336 




TSX 


SJ»4 


02327 





00000 





00000 








02330 





02000 





02334 




TRA 


SI 6 


02331 


-o 


53400 


1 


00500 




LXD 


SIV1»1 


02332 





50000 


1 


01101 




CLA 


SXST»1 


02333 





02000 





02315 




TRA 


SI5 


02334 


-0 


53400 


4 


00501 


SI6 


LXD 


SIV2i4 


02335 





02000 


4 


00002 




TRA 


2t4 
DETERMINE I 


02336 


-0 


63400 


4 


00507 


SJ 


SXD 


SJV2.4 


02337 





50000 





00465 




CLA 


SXDO 


02340 


-0 


32000 





00335 




ANA 


DECMK 


02341 





60100 





00506 




STO 


SJV1 


02342 





10000 





02363 




TZE 


SJ3 


02343 


-0 


53400 


4 


00314 




LXD 


ZERO. 4 


02344 


-0 


53400 


2 


00324 




LXD 


LD3»2 


02345 





50000 


4 


01111 


SJ2 


CLA 


SXASU4 


02346 





12000 





02357 




TPL 


SJ1 


02347 





50000 


2 


00674 




CLA 


Z2Vl+3»2 


02350 


-0 


73400 


1 


00000 




PDX 


0*1 


02351 





50000 


1 


00676 




CLA 


LIST1»1 


02352 





76700 





00022 




ALS 


18 


02353 





40200 





00506 




SUB 


SJV1 


02354 


-0 


10000 





02357 




TNZ 


SJ1 


02355 


-0 


53400 


4 


00507 




LXD 


SJV2»4 


02356 





02000 


4 


00002 




TRA 


2»4 


02357 


1 


77777 


4 


02360 


SJ1 


TXI 


SJ1+1»4»-1 


02360 


2 


00001 


2 


02345 




TIX 


SJ2»2>1 


02361 


-0 


53400 


4 


00507 




LXD 


SJV2»4 


02362 





02000 


4 


00003 




TRA 


3*4 


02363 


-0 


53400 


4 


00507 


SJ3 


LXD 


SJV2»4 


02364 





50000 





01105 




CLA 


SXASO 


02365 





12000 


4 


00003 




TPL 


3»4 


02366 





02000 


4 


00001 




TRA 


1»4 

PUT WORD OF 


02367 


-0 


53400 


1 


00655 


SK 


LXD 


SKV1«1 


02370 





60100 


1 


00655 




STO 


CLSTtl 


02371 


2 


0000 1 


1 


02401 




TIX 


SK1»1»1 


02372 





53400 


1 


00412 




LXA 


SKICltl 


02373 


-0 


63400 


1 


00655 




SXD 


SKV1»1 


02374 





76600 





00223 




WTB 


OTAPE 


02375 





70000 


1 


00655 


SK2 


CPY 


CLST»1 


02376 


2 


00001 


1 


02375 




TIX 


SK2*1»1 


02377 





76600 





00333 




IOD 




02400 





02000 


4 


00001 




TRA 


1*4 



NO 

COMPILE A TRA TO LXD CASE 

RETURN TO LOC. OF TSX + 3 
RECORD THAT THERE IS 
A HANGING TRA TO CASE 

# RETURN TO LOC. OF TSX +1 j 
STORE LXD CASE AS ARG FOR SJ 
IS SXD CASE INST POS» ASSOC* WITH LIST 
SHOULDENT BE WITH CASE 
YES 
NO 

GO TO COMPILE TRA TO LXD CASE 
RETURN TO 2 FOLLOWING TSX WITH 
INDEX OF TOP QUANTITY IN 1 AND LIST INDEX 
F THE SXD CASE IS ASSOCIATED WITH AN LXD LIST 



IS THIS THE LXD CASE 
N0> SET COUNT TO 3 » N TO 1 
2 HAS THE COUNTER 

DOES THE LIST ALREADY HAVE SXD 

NO 

GET INDEX OF TOP QUANTITY 



IS THIS CASE SAME AS CASE HEADUNG LIST N 

YES 

RETURN* INDEX OF TOP OF LIST IN 1 

COUNT TO 3 



COMPILED INST ON TAPE 

STORE THE WORD IN CLST 

COUNT NO OF WORDS IS CLST FULL 

YES 

RESET THE INDEX 

WRITE THE BLOCK ON 

THE OUTPUT TAPE 



F5G38100 
F5G38110 
F5G38120 
F5G38130 
F5G38140 
F5G38150 
F5G38160 
F5G38170 
F5G38180 
F5G38190 
F5G38200 
F5G38210 
F5G38220 
F5G38230 
F5G38240 
F5638250 
IN2F5G38260 
F5G38270 
F5G38280 
F5G38290 
F5G38300 
F5638310 
F5G38320 
F5G36330 
F5G38340 
F5G38350 
F5G38360 
F5G38370 
F5G38380 
F5G38390 
F5G38400 
F5G38410 
F5G38420 
F5G38430 
F5G38440 
F5G38450 
F5G38460 
F5G38470 
F5G38480 
F5G38490 
F5G38500 
F5G38510 
F5G38520 
F5G38530 
F5G38540 
F5G38550 
F5G38560 
F5638570 
F5G38580 
F5G38590 
F5G38600 
F5G38610 
F5G38620 
F5G38630 



fz 1 



02401 
02402 

02403 
02404 
02405 
02406 
02407 
02410 
02411 
02412 
02413 
02414 
02415 
02416 
02417 
02420 
02421 
02422 
02423 
02424 
02425 

02426 
02427 
02430 
02431 
02432 
02433 
02434 
02435 
02436 
02437 

02440 
02441 
02442 
02443 
02444 
02445 
02446 
02447 
02450 
02451 
02452 
02453 
02454 
02455 
02456 
02457 
02460 
02461 
02462 
02463 



•0 63400 1 006 55 SKI 
02000 4 00001 



32000 
76700 
40000 
60100 
50000 
32000 
77100 
60200 
63400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
53400 
02000 

50000 
12000 
63400 
50000 
07400 
50000 
60100 
50000 
60100 
02000 



50000 
12000 
60200 
63400 
50000 
40200 
62200 
62200 
50000 
12000 
00000 
00000 
40000 
60100 
50000 
32000 
76500 
50000 
76300 
40000 



00434 SL 

000 1 2 

00413 

00657 

00443 

00335 

00022 

00657 

00656 

00314 SL2 

02367 

00350 

02367 

00657 

02367 

00314 

02367 

00656 

00001 

00660 SL1 

00001 

00656 

00443 

00070 

12540 

00657 

00314 

00660 

02414 

00715 SM 

00001 

00715 

00661 

00422 

00316 

02453 

02513 

00676 SM6 

02521 

02454 

02455 SMI 

00677 

00662 SM10 

00443 

00335 

00034 

00676 

00012 

00413 



SXD SKV1*1 
TRA it4 

SUBROUTINE 
ANA Z2K5 
ALS 10 
ADD SLK2 
STO SLV2 
CLA BBNO 
ANA DECMK 
ARS 18 
ORS SLV2 
SXD 5LV1#4 
CLA ZERO 
TSX SK»4 
CLA LTRA 
TSX SK»4 
CLA SLV2 
TSX SK#4 
CLA ZERO 
TSX SKt4 
LXD SLV1»4 
TRA 1«4 

SUBROUTINE 
CLA SLV3 
TPL lt4 
SXD SLV1»4 
CLA BBNO 
TSX SE»4 
CLA BBB+5#1 
STO SLV2 
CLA ZERO 
STO SLV3 
TRA SL2 

COMPILE AN 
CLA LLIND»2 
TPL 1»4 
SLW LL1ND»2 
SXD SMV1.4 
CLA Z2Kl+3»2 
SUB ONED 
STD SMI 
STO SMS 
CLA LIST1»1 
TMI SM8 
TXL SM1+1»1»0 
TXL SM10»1»SET 
SBM LIST1+1»1 
STO SMV2 
CLA BBNO 
ANA DECMK 
LRS 28 
CLA LIST1»1 
LLS 10 
ADD SMK1 



STORE INDEX OF NEXT WORD 

FOR COMPILING TRA TO LXD CASE 
FORM 
THE 

ADDRESS 
OF 
THE 

TRA IN 

SLV2 

STORE RETURJ 

PUT LOCATION 

ON TAPE 

PUT SYMB. ADDR. ON TAPE 

PUT SYMB* AODR ON TAPE 

ANOTHER 

FOR PUTTIN6 HANGING TRA ON TAPE 

RETURN IF THERE IS NO HANGING TRAO 

OTHERWISE ♦ STORE RETURN AND 

GET 

THE 

SYMBOLIC LOCATION 

OF 1ST INST IN BB AND 

STORE IN SYNBOLIS ADDR WORD 

SET INDICATOR TO SAY NO HANGING TRA 

LXD LIST 

IMMEDIATELY RETURN IF LIST IS 

ALREADY COMPOLED 

RECORD LIST ALREADY COMPILED 

STORE RETURN 

COMPUTE THE 

INDEX OF SUB BOTTEM 

POSITION OF LIDT 

SET END TEST 

DOES THIS ELEMENT OF LIST REPRESENT AN LXD 

YESt IS ELEMENT IN SUB BOTTOM POS. 

NO 

STORE THE TAG AWAY 

FORN 

THE 

LOCATION 



F5G38640 

F5G38650 

F5G38660 

F5G38670 

F5G38680 

F5G38690 

F5G38700 

F5G38710 

F5G38720 

F5C38730 

F5G38740 

F5G38750 

F5G38760 

F5G38770 

F5G38780 

F5G38790 

F5G38800 

F5G38&10 

F5G38820 

F5G38830 

F5G38840 

F5G38850 

F5G38860 

P5638870 

F5G36880 

F5G38890 

F5G38900 

F5G38910 

F5G38920 

F5G38930 

F5G38940 

F5G38950 

F5G38960 

F5G38970 

F5G38980 

F5G38990 

F5G39000 

F5G39010 

F5G39O20 

F5GS9030 

F5G39040 

F5G39050 

F5639060 

F5G39070 

F5G39080 

F5G39090 

F5G39100 

F5G39110 

F5G39120 

F5G39130 

F5G39140 

F5G39150 

F5G39160 

F5G39170 



u 



u 



©2464 
02465 
02466 
02467 
02470 
02471 
02472 
02473 
02474 
02475 
02476 
02477 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 
02510 
02511 
02512 
02513 
02514 
02515 
02516 
02517 
02520 
02521 
02522 
02523 
02524 



02525 
02526 
02527 
02530 
02531 
02532 
02533 
02534 
02535 
02536 
02537 
02540 
82541 
02542 
02543 
02544 
02545 
02546 
02547 



63400 
60100 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
34000 
02000 
02000 
76700 
77777 
50000 
77100 
40000 
07400 
50000 
07400 
53400 
00000 
00000 
77777 
50200 
60100 
53400 
02000 
10000 
76000 
07400 
02000 



00144 

07400 

50000 

32000 

10000 

53400 

00001 

63400 

50000 

40000 

60100 

07400 

50000 1 

60100 

76700 

60100 

53400 

53400 

63400 



SM3 

SM2 

SM4 



00663 
00664 
02426 
00664 
02367 
00414 
02367 
00443 
00070 
00662 
00320 
02501 
02503 
00001 
02476 
12535 
00022 
00415 
02367 
00662 
02367 
00663 
02514 
02515 
02450 
00315 
00660 
00661 
00001 
02515 
00003 
02403 
02517 



02527 FNDAS 

03472 

01076 2FNDS 

00340 

03336 

00455 CI4 

02547 

00447 

00456 

00315 

00456 

00032 

05263 

00454 

00002 

00453 

00447 

00330 

00455 CI5 



SM5 
SM7 
SM9 
SM8 



SXD SMV3»1 
STO SMV4 
TSX SLlt4 
CLA SMV4 
TSX SK»4 
CLA SMK2 
TSX SK»4 
CLA SBNO 
TSX SE»4 
CLA SMV2 
CAS L4 
TRA SM2 
TRA SM4 
ALS 1 

TXI SM3»lt-l 
CAL BBB+2»1 
ARS 18 
ADD SMK4 
TSX SK*4 
CLA SMV2 
TSX SK*4 
LXD SMV3»1 
TXL SM5+1»1»0 
TXL SM7»1*SET 
TXI SM6»1»-1 
CLS ONEA 
STO SLV3 
LXD SMV1»4 
TRA 1»4 
TZE SM7 



STORE INDEX OF LIST QUANTITY 

RECORD ANY HANGING TRAO 

COMPILE THE LOCATION 

COMPILE LXD 

FIND INDEX OF BB 

IS THIS THE CORRECT ENT. REQUIREMENT 

YES 

NO. SHIFT IT LEFT ONE 

AND INDEX TO NEXT ENRR. REQUIREMENT 

FORM 

AND COMPILE 

THE 

COMPILE THE TAG 

IS THE ELEMENT IN SUB BOTTOM POSITION 



NO* INDEX TO NEXT LIST POS. 
RECORD THAT THERE IS HANGING TRA 



RECORD A TRA TO LXD CASE 



RETURN 

GO TO RECORD HANGING TRA 
SSP 

TSX SL.4 
TRA SM9 

THE METHODS OF BRINGNNG IN BLOCKS OF COMPILED INST* AND 
CHECKING FOR ENDINGS IS THE SAME AS IN PASS 2 OF FLOW ANAL. 
TNX 2FNDS.2.ZINST IS BLOCK OF INST. ALL USED 



TSX RDINS#4 
CAL INST-3.2 
ANA STMSK 
TZE CI7A 
LXD 9CNT»4 
TIX CI5*4,1 
SXD BB0X»2 
CLA STGWD 
ADD ONEA 
STO STGWD 
TSX SE4*4 
CLA STAGil 
STO STAGN2 
ALS 2 

STO STAGN1 
LXD BB0X»2 
LXD LD9»4 
SXD 9CNT»4 



YES* READ IN NEXT BLOCK 
IS THIS INST. TAGGED 



YES 

COUNT TO 9* IS STAG WORD EXHAUSTED 

YES* GET ANOTHER 

INCREASE THE NO. OF CURRENT STAG WORD 



GET INDEX OF NEXT STAG WORD 

GET AND STORE 

THE STAG WORD 

RESTORE INDEX REGISER 2 

RESET COUNT TO 9 



F5G39180 

F5G39190 

F5G39200 

F5G39210 

F5G39220 

F5G39230 

F5G39240 

F5G39250 

F5639260 

F5G39270 

F5G39280 

F5G39290 

F5G39300 

F5G39310 

F5G 39320 

F5G39330 

F5G39340 

F5G39350 

F5G39360 

F5G39370 

F5G39380 

F5G39390 

F5G39400 

F5G39410 

F5G39420 

F5G39430 

F5G39440 

F5G39450 

F5G39460 

F5G39470 

F5G39480 

F5G39490 

F5G39500 

F5G39510 

F5G39520 

F5G39530 

F5G39540 

F5G39550 

F5G39560 

F5G39570 

F5G39580 

F5G39590 

F5G39600 

F5G39610 

F5639620 

F5G39630 

F5639640 

F5G39650 

F5G39660 

F5G39670 

F5G39680 

F5G39690 

F5G39700 

F5G39710 



0- 



/ 



02550 


-0 


50000 


2 


01076 


CAL 


INST-3.2 


02551 


-0 


32000 





00342 


ANA 


TAGMK 


02552 





60100 





00452 


STO 


TAG 


02553 


-0 


50000 





00453 


CAL 


STAGN1 


02554 


-0 


32000 





00324 


ANA 


LD3 


02555 


-0 


73400 


4 


00000 


PDX 


0*4 


02556 


-0 


50000 


4 


00361 


CAL 


VSTAG*4 


02557 





62100 


2 


01076 


STA 


INST-3»2 


02560 





40200 





00320 


SUB 


L4 


02561 


-0 


10000 





02564 


TNZ 


CI5A 


02562 


-0 


76000 





00003 


SSM 




02563 





60100 





00460 


STO 


CIND 


02564 


-0 


50000 





00454 CI5A 


CAL 


STAGN2 


02565 





76700 





00011 


ALS 


9 


02566 


-0 


76000 





00001 


PBT 




02567 





02000 





02602 


TRA 


SKLX 


02570 





50000 





00314 


CLA 


ZERO 


02571 





07400 


4 


02367 


TSX 


SK»4 


02572 





50000 





00414 


CLA 


SMIC2 


02573 





07400 


4 


02367 


TSX 


SK»4 


02574 





50000 





00452 


CLA 


TAG 


02575 


-o 


50100 





00415 


ORA 


SMK4 


02576 





07400 


4 


02367 


TSX 


SKt4 


02577 





50000 


2 


01076 


CLA 


INST-3»2 


02600 


-0 


32000 





00337 


ANA 


ADDMK 


02601 





07400 


4 


02367 


TSX 


SK»4 


02602 


-0 


50000 


2 


01100 SKLX 


CAL 


INST-1»2 


02603 


-0 


32000 





00343 


ANA 


LFTMSK. 


02604 





60200 





00457 


SLW 


TMP10 


02605 





50000 





00457 


CLA 


TMP10 


02606 





34000 





00345 


CAS 


LLXP 


02607 





02000 





02637 


TRA 


CM 


02610 





02000 





02612 


TRA 


SKLY 


02611 





02000 





02637 


TRA 


CI1 


02612 


-0 


50000 





00454 SKLY 


CAL 


STAGN2 


02613 





76700 





00011 


ALS 


9 


02614 


-0 


76000 





00001 


PBT 




02615 





02000 





03462 


TRA 


CI3A 


02616 





50000 


2 


01076 


CLA 


INST-3»2 


02617 





60200 





00461 


SLW 


CPIND 


02620 


-0 


32000 





00337 


ANA 


ADDMK 


02621 





40200 





00320 


SUB 


L4 


02622 


-0 


10000 





02667 


TNZ 


CI6 


02623 


-0 


50000 


2 


01074 


CAL 


INST-5»2 


02624 


-0 


32000 





00343 


ANA 


LFTMSK 


02625 





60200 





00457 


SLW 


TMP10 


02626 





50000 





00457 


CLA 


TMP10 


02627 





40200 





00414 


SUB 


LLXD 


026 30 


-0 


10000 





02667 


TNZ 


CI6 


02631 





50000 


2 


01072 


CLA 


INST-7*2 


02632 


-0 


32000 





00337 


ANA 


AODMK 


02633 





40200 





00320 


SUB 


L4 


02634 


-0 


10000 





02667 


TNZ 


CI6 


02635 





76000 





00141 


PSE 


97 



EXTRACT THE TAG 



EXTRACT THE S-TAG 

CONVERT S-TAG TO 1*2* OR 4 
REPLACE TAU-TAG BY S-TAG 
IS THE TAG 4 



YES* RECORD IR 4 NECESSARY 



IS AN LXD NECESSARY 

NO 

YES 

COMPILE LOCATION OF 

COMPILE LXD 

COMPILE THE SYMB* ADDR* OF THE CELL 



COMPILE THE S-TAG 



IS THIS AN LXP 
YES* 



IS LXD NECESSARY* 

NO* 

YES. IS S-TAG=4« 

RECORD DONT COMPILE* 



NOT 4* 

IS NEXT INSTR 

AN LXD 

WITH REAL 
IR4* 

IF SO* 

TURN ON 



F5G39720 

F5G39730 

F5G39740 

F5G39750 

F5G39760 

F5G39770 

F5G39760 

F5G39790 

F5G39800 

F5G39810 

F5G39820 

F5G39830 

F5639840 

F5G39850 

F5G39860 

F5G39870 

F5G39880 

F5G39890 

F5G39900 

F5G39910 

F5G39920 

F5G39930 

F5G39940 

F5G39950 

F5G39960 

F5G39970 

F5G39980 

F5G39990 

F5G40000 

F5G40010 

F5G40020 

F5G40030 

F5G40031 

F5G40032 

F5G40040 

F5G40041 

F5G40042 

F5G40043 

F5G40044 

F5G40045 

F5G40046 

F5G40047 

F5G40048 

F5640049 

F5G40050 

F5G40051 

F5G40052 

F5G40053 

F5G40054 

F5G40055 

F5G40056 

F5G40057 

F5640058 

F5G40059 



o 



u 



r\ 



02636 





02000 





02667 


02637 





34000 





00347 CI1 


02640 





02000 





02642 


02641 





02000 





03462 


02642 





50000 





00454 CI 2 


02643 





12000 





02667 


02644 





50000 


2 


01101 


02645 





07400 


4 


02367 


02646 





50000 


2 


01100 


02647 





07400 


4 


02367 


02650 





50000 


2 


01C77 


02651 





07400 


4 


02367 


02652 





50000 


2 


01076 


02653 





07400 


4 


02367 


02654 





50000 





00314 


02655 





60100 





00461 


02656 





07400 


4 


02367 


02657 





50000 





00411 


02660 





07400 


4 


02367 


02661 





50000 





00452 


02662 


-0 


50100 





00415 


02663 





07400 


4 


02367 


02664 





50000 


2 


01076 


02665 


-0 


32000 





00337 


02666 





07400 


4 


02367 


02667 


-0 


50000 





00453 CI6 


02670 





76700 





00002 


02671 





60200 





00453 


02672 


-0 


50000 





00454 


02673 





76700 





00001 


02674 





60200 





00454 


02675 





02000 





02700 


02676 


-0 


76000 





00003 CI 7 


02677 





60100 





00461 


02700 





50000 


2 


01101 CKLO 


02701 





10000 





02723 


02702 





50000 


2 


01075 


02703 





40200 





00444 


02704 





10000 





02743 


02705 


-0 


53400 


4 


00327 


02706 


-0 


50000 


2 


01100 


02707 


-0 


32000 





00335 


02710 





40200 


4 


00374 SUBP 


02711 





10O00 


4 


02737 


02712 


2 


00001 


4 


02710 


02713 


-0 


50000 


2 


01100 


02714 


-0 


32000 





00400 6ANA 


02715 





60200 





00457 


02716 





50000 





00457 


02717 





40200 





00401 


02720 





10000 





03162 


02721 





07400 


4 


02172 NOEN 


02722 


1 


00004 


2 


02525 



TRA CI6 

CAS LDED 
TRA CI 2 
TRA CI3A 
CLA STAGN2 
TPL CI6 
CLA INSTt2 
TSX SK»4 
CLA INST-1»2 
TSX SK*4 
CLA INST-2»2 
TSX SK#4 
CLA INST-3»2 
TSX SKt4 
CLA ZERO 
STO CPIND 
TSX SK»4 
CLA SIK3 
TSX SK»4 
CLA TAG 
ORA SMK4 
TSX SK»4 
CLA lNST-3»2 
ANA ADDMK 
TSX SK»4 
CAL STAGN1 
ALS 2 

SLW STAGN1 
CAL STAGN2 
ALS 1 

SLW STAGN2 
TRA CKLOC 
SSM 
STO CPIND 

NOW THE END OF 
CLA INST»2 
TZE TR3S 
CLA INST-4*2 
SUB NXTLOC 
TZE ENDBB 
LXD LD8#4 
CAL INST-1»2 
ANA DECMK 
SUB LNT0P+1*4 
TZE TRTIN+1»4 
TIX SUBP»4»1 
CAL INST-1»2 
ANA FSTLT 
SLW TMP10 
CLA TMP10 
SUB FSTT 
TZE TTYPE 
TSX SCMI»4 
TXI FNDAS»2*4 



SENSE LIGHT* 
IS IT A DED 

YES 

IS SXD REQUIRED 

NEITHER LXP NOR DED* COMPILE THE 

INST. 



YES* COMPILE AN SXD» ZERO LOCATION 

RECORD THAT THIS INST. SHOULDNT BE CONPILED 

SXD IN BCD 

SYMB. ADDR. OF TAU-TAG CELL 

AND TAG WORD 

NO SXD REQUIRED. 



GO TO CHECK FOR ENDINGS 

RECODD LATER COMPILING NECESSARY 
BB IS CHECKED FOR 
IF NO LOCATION SYMBOL . THIS CANT BE 
ENSING OTHER THAN CERTAINTY 
IS THIS LAST INST IN BB 

YESt LOOK FOR TYPE OF ENDING 

N0» CHECK FOR ENDING OF GROUP OF INST 

LOOK AT OP CODE 

COMPARE TO OP CODES OF POSSIBLE 

ENDINGS* TRANSFER WHEN FOUND 

TRY NEXT POSSIBILITY 

NOT FOUND t LOOK FORCONDI TIONAL TRANSFER 



IS A CONDITIONAL TRANSFER 
NOT AN END OD BB COMPILE INST 
IF IT NEEDS TO BE 



F5G40060 

F5G40061 

F5G40062 

F5G40070 

F5G40080 

F5G40090 

F5640100 

F5G40110 

F5G40120 

F5G40130 

F5G40140 

F5G40150 

F5G40160 

F5G40170 

F5G40180 

F5G40190 

F5G40200 

F5G40210 

F5G40220 

F5G40230 

F5G40240 

F5G40250 

F5G40260 

F5G40270 

F5G40280 

F5640290 

F5G40300 

F5G40310 

F5G40320 

F5G40330 

F5G40340 

F5G40350 

F5G40360 

F5G40370 

F5G40380 

F5G40390 

F5G40400 

F5G40410 

F5G40420 

F5G40430 

F5G40440 

F5G40450 

F5G40460 

F5G40470 

F5G40480 

F5G4Q490 

F5G40500 

F5G40510 

F5G40520 

F5G40530 

F5G40540 

F5G40550 

F5G40560 

F5G40570 



02723 





50000 2 01075 


TR3S 


CLA 


INST-4>2 


IS THIS LAST INST IN BB 


02724 





40200 00444 




SUB 


NXTLOC 




02725 





10000 03042 




TZE 


SEQTR 


YES 


02726 





02000 02721 




TRA 


NOEND 
TRANSFER 


NO 
VECTOR SEE SUBP+1 ABOVE 


02727 





02000 03046 




TRA 


GOTOV 


TRA IS OP CODE 


02730 





02000 03115 




TRA 


IF2PS 


PSE 


02731 





02000 03171 




TRA 


IF2CS 


DCT 


02732 





02000 03171 




TRA 


IF2CS 


RTT 


02733 





02000 03125 




TRA 


MSECS 


MSE 


02734 





02000 03226 




TRA 


IF3CS 


TZE 


02735 





02000 03324 




TRA 


STPCSZ 


HPR 


02736 





02000 02721 


TRTIN 


TRA 


NOEND 


TSX 












THE FOLLOWING IS 4 WORD TRANSFER VECTOR* SEE ENDBB BtLUW 


02737 





02000 02752 




TRA 


TRACS 


TRAIS OP CODE 


02740 





02000 03037 




TRA 


DOCS 


TXL 


02741 





02000 03042 




TRA 


PAUSE 


HPR 


02742 





02000 02755 


TRTTR 


TRA 


TRAC3 


TTR 


02743 


-0 


53400 4 00325 


ENDBB 


LXD 


LD4*4 


THIS INST ENDS A BASIC 


02744 





50000 2 01100 




CLA 


INST-li2 


BLOCK LOQKAT OP CODE 


02745 


-0 


32000 00335 




ANA 


DECMK 


FOR TYPE OF ENDING 


02746 





40200 4 00400 


6SUB 


SUB 


LTR0P+1»4 




02747 





10000 4 02743 




TZE 


TRTTR+1*4 


TRANSFER IF IOUND 


02750 


2 


00001 4 02746 




TIX 


6SUB»4*1 


TRY NEXT POSSIBILITY 


02751 





02000 03042 




TRA 


SEQTR 




02752 


-0 


50000 2 01077 


TRACS 


CAL 


INST-2»2 


OP CODE IS TRA SEE IF ADDRESS 


02753 


-o 


32000 00403 




ANA 


PFXMK 


IS IN PROGRAM UNCONDITIONAL TRANSFER 


02754 


-0 


10000 02772 




TNZ 


GOTON 


IF TRANSFER IT IS A GO TO N 


02755 


-0 


63400 2 00447 


TRAC3 


SXD 


BB0X»2 


THIS IS GO TO ALPHA 


02756 


-0 


50000 00443 




CAL 


BBNO 




02757 





77100 00022 




ARS 


18 




02760 





60100 00462 




STO 


ARG1 


STORE BBNO AS ARGUMENT OF SAD 


02761 





07400 4 00067 




TSX 


SE1»4 




02762 


-0 


50000 1 12533 




CAL 


BBBtl 




02763 





07400 4 00044 




TSX 


SE6*4 


GET SUCC* TABLE ENTRY 


02764 
02765 


-0 



50000 1 16734 
07400 4 02126 




CAL 
TSX 


SUCC»1 
SAD»4 


60 TO DETERMINE SYMBOLIC ADDRESS 


02766 


-0 


53400 2 00447 




LXD 


BB0Xf2 




02767 





60200 2 01077 




SLW 


INST-2»2 


TEPLACE SYMBOLIC ADDR« 


02770 





07400 4 02172 




TSX 


SCMI*4 


COMPILE THE INSTR 


02771 


1 


00004 2 03544 




TXI 


BEGBB»2»4 


BEGINNING OF BB» INDEX TO NEXT INSTR 


02772 


-0 


63400 2 00447 


60TON 


SXD 


BB0X»2 




02773 





50000 00443 




CLA 


BBNO 




02774 
02775 






07400 4 00070 
50000 1 12533 




TSX 
CLA 


SE»4 
BBB»1 


CHECK TO MAKE SURE THIS IS GO TO N 


02776 





77100 00041 




ARS 


33 




02777 





40000 00315 




ADD 


ONEA 




03000 





10000 03002 




TZE 


G0N1 




03001 





07400 4 00004 




TSX 


4»4 


DIAGNOSTIC THIS ISNT GO N 


03002 


-0 


50000 1 12534 


G0N1 


CAL 


BBB+1»1 




03003 





77100 00041 




ARS 


33 


PUT SXD CASE IN TMP10 


03004 





60200 00457 




SLW 


TMP10 
NOW ANY 


SXD BEFIR GO TO N ARE COMPILED 


03005 


-0 


53400 2 00324 




LXD 


LD3f2 





F5G40580 

F5G40590 

F5G40600 

F5G40610 

F5G40620 

F5G40630 

F5G40640 

F5G40650 

F5G40660 

F5G40670 

F5G40680 

F5G40690 

F5G40700 

F5G40710 

F5G40720 

F5G40730 

F5G40740 

F5G40750 

F5G40760 

F5G40770 

F5G40780 

F5G40790 

F5G40800 

F5G40810 

F5G40820 

F5G40830 

F5G40840 

F5G40850 

F5G40860 

F5G40870 

F5G40880 

F5G40890 

F5G40900 

F5G40910 

F5G40920 

F5G40930 

F5G40940 

F5G40950 

F5G40960 

F5640970 

F5G40980 

F5G40990 

F5G41000 

F5G41010 

F5G41020 

F5G41030 

F5G41040 

F5G41050 

F5G41060 

F5G41070 

F5G41080 

F5G41090 

F5G41100 

F5G41110 



m 



U 



u 



( 



03006 





50000 


2 


00361 


GON3 


CLA 


VSTAG»2 


03007 


-0 


32000 





00457 




ANA 


TMP10 


03010 





10000 





03032 




TZE 


G0N2 


03011 


-0 


63400 


1 


00451 




SXD 


AB0X»1 


03012 





56000 





00314 




LDQ 


ZERO 


03013 


-0 


53400 


4 


00447 




LXD 


BB0X*4 


03014 





50000 


4 


01101 




CLA 


INST»4 


03015 


-0 


60000 


4 


01101 




STQ 


INST»4 


03016 





07400 


4 


02367 




TSX 


SK»4 


03017 





50000 





00411 




CLA 


LSXD 


03020 





07400 


4 


02367 




TSX 


SK«4 


03021 


-0 


53400 


1 


00451 




LXD 


AB0X»1 


03022 


-0 


50000 


1 


12535 




CAL 


BBB+2tl 


03023 


-0 


32000 





00342 




ANA 


TAGMK 


03024 


-0 


50100 





00415 




OR A 


IDTAG 


03025 





07400 


4 


02367 




TSX 


SK»4 


03026 


-0 


50000 





00457 




CAL 


TMP10 


03027 


-0 


32000 


2 


00361 




ANA 


VSTAGt2 


03030 





07400 


4 


02367 




TSX 


SKf4 


03031 


-0 


53400 


1 


00451 




LXD 


AB0X*1 


03032 


1 


77777 


1 


03033 


GON2 


TXI 


G0N2+1»1*-1 


03033 


2 


00001 


2 


03006 




TIX 


G0N3»2»1 


03034 


-0 


53400 


2 


00447 




LXD 


BB0X*2 


03035 





07400 


4 


02172 




TSX 


SCMI*4 


03036 


1 


00004 


2 


03544 




TXI 


BEGBB#2»4 


03037 


-0 


75400 





00000 


DOCS 


PXD 


0*0 


03040 





60100 





01101 




STO 


SXST 


03041 





02000 





02755 




TRA 


TRAC3 


03042 


-0 


75400 





00000 


PAUSE 


PXD 


0*0 










03042 


SEQTR 


SYN 


PAUSE 


03043 





60100 





01101 




STO 


SXST 


03044 





07400 


4 


02172 




TSX 


SCMI»4 


03045 


1 


00004 


2 


03544 




TXI 


BEGBB»2#4 


03046 





07400 


4 


02172 


GOTOV 


TSX 


SCMIt4 


03047 





50000 


2 


01076 




CLA 


INST-3»2 


03050 





40200 





00316 




SUB 


LD1 


03051 





62200 





00463 




STD 


MBOX 


03052 





50000 





004.43 




CLA 


BBNO 


03053 





77100 





00022 




ARS 


18 


03054 





60100 





00462 




STO 


ARG1 


03055 


1 


00004 


2 


03056 


G0V4 


TXI 


G0V4+1»2#4 


03056 


-0 


63400 


2 


00450 




SXD 


BB0X1«2 


03057 





07400 


4 


00067 




TSX 


SE1»4 


03060 





50000 


1 


12533 




CLA 


BBB»1 


03061 





60200 





00464 




SLW 


SUCNO 


03062 


-0 


53400 


2 


00450 




LXD 


BB0X1>2 


03063 


-2 


00144 


2 


03065 


13TNX 


TNX 


G0V1»2»ZINST 


03064 





07400 


4 


03472 




TSX 


RDINS»4 


03065 


-0 


63400 


2 


00450 


G0V1 


SXD 


BB0X1»2 


03066 


-0 


50000 





00464 




CAL 


SUCNO 


03067 





07400 


4 


00044 




TSX 


SE6»4 


03070 





50000 


1 


16734 




CLA 


SUCC*1 


03071 





07400 


4 


02126 




TSX 


SAD»4 


03072 


-0 


53400 


2 


00450 




LXD 


BB0X1»2 



DOES THIS THIS IR NEED SXD 



YES 

REPLACE LOCATION BY AND 

PUT LOCATION ON THE 

SXD INST. 

SXD1NST 



COMPILE THE INST 



T RECORD THERE IS SEOUDNTIAL TRANSFER 
OTHERWISE DO EXACTLY AS FOR TRA TRANSFER 



RECORD SEQUENTIAL TRANSFER 



COMPILE INST IF NECESSARY 
FIND NO* OF BRANCHES IN VECTOR 



STORE BBNO FOR SAD ROUTINE 



STORE NO OF 1ST SUCCESSOR 

IS BLOCK OF INST ALL USED 
T READ NEXT BLOCK 



FINF NEW SYMBOLIC ADDR FOR THIS TRANSFER 



F5G41120 

F5G41130 

F5G41140 

F5G41150 

F5G41160 

F5G41170 

F5641180 

F5G41190 

F5G41200 

F5G41210 

F5G41220 

F5G41230 

F5G41240 

F5G41250 

F5G41260 

F5G41270 

F5G41280 

F5G41290 

F5G41300 

F5G41310 

F5G41320 

F5G41330 

F5G41340 

F5G41350 

F5G41360 

F5G41370 

F5G41380 

F5G41390 

F5G41400 

F5G41410 

F5G41420 

F5G41430 

F5G41440 

F5G41450 

F5G41460 

F5G41470 

F5641480 

F5G41490 

F5641500 

F5G41510 

F5G41520 

F5G41530 

F5G41540 

F5G41550 

F5G41560 

F5G41570 

F5G41580 

F5G41590 

F5G41600 

F5G41610 

F5G41620 

F5G41630 

F5G41640 

F5G41650 



/'- I 



03073 





60200 





00457 


03074 


-0 


53400 


4 


00463 


03075 


2 


00001 


4 


03101 


03076 





50000 


2 


01077 


03077 





40200 





00444 


03100 





10000 





03104 


03101 





50000 





00457 GOV2 


03102 





60100 


2 


OA077 


03103 





07400 


4 


02172 


03104 


1 


00004 


2 


03105 G0V3 


03105 


-0 


50000 





00464 


03106 





40000 





00316 


03107 





60200 





00464 


03110 


-0 


53400 


4 


00463 


03111 


1 


77777 


4 


03112 G0V5 


03112 


-0 


63400 


4 


00463 


03113 


3 


00000 


4 


03063 


03114 





02000 





03544 


03115 





50000 


2 


01076 IF2PS 


03116 


-0 


32000 





00404 


03117 





40200 





00405 


03120 





10000 





03125 


03121 





50000 


2 


01076 


03122 


-0 


32000 





00335 


03123 





40200 





00406 


03124 


-0 


10000 





02721 


03125 





07400 


4 


02172 PSTCS 
03125 MSECS 


03126 


1 


00004 


2 


03127 PS1 


03127 


-0 


63400 


2 


00450 


03130 


-0 


50000 





00443 


03131 





77100 





00022 


03132 





60100 





00462 


03133 





07400 


4 


00067 


03134 


-0 


50000 


1 


12533 


03135 





60100 





00464 


03136 





40000 





00316 


03137 





07400 


4 


00044 


03140 





50000 


1 


16734 


03141 





07400 


4 


02126 


03142 


-0 


53400 


2 


00450 


03143 





60200 


2 


01077 


03144 





07400 


4 


02172 


03145 


1 


00004 


2 


03146 PS2 


03146 





50000 


2 


01077 


03147 





40200 





00444 


03150 





10000 





03307 


03151 


-0 


63400 


2 


00450 


03152 





50000 





00464 


03153 





07400 


4 


00044 


03154 





50000 


1 


16734 


03155 





07400 


4 


02126 


03156 


-0 


53400 


2 


00450 


03157 





60200 


2 


01077 



SLW TMP10 

LXD MB0X»4 

TIX G0V2*4fl 

CLA INST-2*2 

SUB NXTLOC 

TZE G0V3 

CLA TMP10 

Sib INST-2»2 

TSX SCMI»4 

TXI G0V3+l*2t4 

CAL SUCNO 

ADD ONED 

SLW SUCNO 

LXD MB0X»4 

TXI G0V5+1#4«-1 

SXD MB0Xt4 

TXH 13TNX»4»0 

TRA BEGBB 

CLA INST-3»2 

ANA XXPSX 

SUB XX16X 

TZE PSTCS 

CLA INST-3#2 

ANA DECMK 

SUB XX 360 

TNZ NOENO 

TSX SCMI*4 

SYN PSTCS 

TXI PS1+1»2»4 

SXO 8B0X1»2 

CAL BBNO 

ARS 18 

STO ARG1 

TSX SE1*4 

CAL BBB#1 

STO SUCNO 

ADO L01 

TSX SE6»4 

CLA SUCC»1 

TSX SAD #4 

LXD BB0X1»2 

SLW INST-2t2 

TSX SCMI»4 

TXI PS2+1»2#4 

CLA INST-2t2 

SUB NXTLOC 

TZE PS3 

SXD BB0X1#2 

CLA SUCNO 

TSX SE6»4 

CLA SUCC»1 

TSX SAD* 4 

LXD BB0X1»2 

SLW INST-2»2 



STORE SYMBOLIC ADDR. 

IS THIS THE LAST TRANSFER 

1ST INST IN NEXT BBt IS IT 

NO 

COMPILE THE INXT 



IS THIS LAST TRA OF VECTOR 

YES 

THIS IS PSE LOOK AT ADDRESS TO 

SEE IF IT IS 164-6 

YESt IT IS A TEST 

NO* SEE IF ADDR IS 360 

N0» THIS ISNT BB END 

THIS IS A PSE TEST INST 

OR AN MSE INST 

INEDX TO CONSIEER 1ST TRANSFER 



STORE BBNO AS ARGUMENT FOR SAD 

GETNUMBER OF 1ST SUCCESSOR 
GET THE SECOND SUCC ENTRY 

REPLACE SYMBOLIC ADDRESS 

INCREASE INSTR INDEX 

IS THIS A SEQUENTIAL TRANSFER 

YES* SKIP COMPILING THE INST 
NO 

DETERMINE THE SYMBOLIC ADDRESS 
REPLACE SYMBOLIC ADDRESS 



F5G41660 

F5G41670 

F5G41680 

F5G41690 

F5G41700 

F5G41710 

F5G41720 

F5G41730 

F5G41740 

F5G41750 

F5G41760 

F5G41770 

F5G41780 

F5G41790 

F5G41800 

F5G41810 

F5G41820 

F5G41830 

F5G41840 

F5G41850 

F5G41860 

F5G41870 

F5G41880 

F5G41890 

F5G41900 

F5641910 

F5G41920 

F5641930 

F5G41940 

F5G41950 

F5G41960 

F5G41970 

F5641980 

F 564 1990 

F5G42000 

F5G42010 

F5G42020 

F5G42030 

F5G42040 

F5G42050 

F5G42060 

F5G42070 

F5G42080 

F5G42090 

F5G42100 

F5G42110 

F5G42120 

F5G42130 

F5G42140 

F5G42150 

F5G42160 

F5G42170 

F5G42180 

F5G42190 



n 



O 



U 



03160 
03161 
03162 
03163 
03164 
03165 
03166 
03167 
03170 
0*3171 
03172 
03173 
03174 
03175 
03176 
03177 
03200 
03201 
03202 
03203 
03204 
03205 
03206 
03207 
03210 
03211 
03212 
03213 
03214 
03215 
03216 
03217 
03220 
03221 
03222 
03223 
03224 
03225 
03226 
03227 
03230 
03231 
03232 
03233 
03234 
03235 
03236 
03237 
03240 
03241 
03242 
03243 
03244 
03245 



07400 
00004 
50000 
34000 
05000 
02000 
40200 
10000 
02000 
07400 
00004 
63400 
50000 
77100 
60100 
07400 
50000 
60100 
07400 
50000 
07400 
53400 
60200 
07400 
00004 
50000 
40200 
10000 
63400 
50000 
40000 
07400 
50000 
07400 
53400 
60200 
07400 
00004 
63400 
50000 
77100 
60100 
07400 
50000 
60100 
40000 
07400 
50000 
07400 
53400 
60200 
07400 
00004 
50000 



4 02172 TSX 

2 03544 TXI 
2 01077 TTYPE CLA 

2 01101 CAS 

03166 TRA 

02721 TRA 
00402 TTYP1 SUB 

02721 TZE 

03173 TRA 
4 02172 IF2CS TSX 
2 03173 RT1 TXI 
2 00450 CNDTR SXD 

00443 CAL 

00022 ARS 

00462 STO 
4 00067 TSX 

1 12533 CAL 

00464 STO 
4 00044 TSX 

1 16734 CLA 
4 02126 TSX 

2 00450 LXD 
2 01077 SLW 
4 02172 TSX 
2 03211 RT2 TXI 
2 01077 CLA 
00444 SUB 
03307 TZE 
2 00450 SXD 
00464 CLA 

00316 ADD 
4 00044 TSX 

1 16734 CLA 
4 02126 TSX 

2 00450 LXD 
2 01077 SLW 
4 02172 TSX 
2 03544 TXI 
2 00450 IF3CS SXD 
00443 CAL 
00022 ARS 

00462 STO 
4 00067 TSX 

1 12533 CAL 
00464 STO 

00316 ADD 
4 00044 TSX 

1 16734 CLA 
4 02126 TSX 

2 00450 LXD 
2 01077 SLW 
4 02172 TSX 
2 03245 IF1 TXI 
2 01100 CAL 



SCMI.4 

BEGBB»2*4 

INST-2»2 

INST»2 

TTYP1 

NOEND 

PCC 

NOEND 

CNDTR 

SCMI.4 

RT1+1*2«4 

BB0X1»2 

BBNO 

18 

ARG1 

SE1»4 

BBB»1 

SUCNO 

SE6*4 

SUCOl 

SAD#4 

BB0X1»2 

INST-2»2 

SCMU4 

RT2+1»2»4 

INST-2»2 

NXTLOC 

PS3 

BB0X1»2 

SUCNO 

LD1 

SE6*4 

SUCC»1 

SAD»4 

BB0X1#2 

INST-2»2 

SCMI#4 

BEGBB»2»4 

BB0X1»2 

BBNO 

18 

ARG1 

SElf4 

BBB»1 

SUCNO 

LD1 

SE6i4 

SUCC»1 

SAD #4 

BB0XU2 

INST-2»2 

SCMI»4 

1F1+Iff2t4 

INST-1»2 



COMPILE THE INST. 

IS THIS TRANSFER TO NEXT INST. 

YES 

* YES 

N0» IS CONDITIONAL TRANSFER 
THIS IS OCT OR RTT 
INDEX TO CONSIDER 1ST TRANSFER 
STORE BBNO. AS ARGUMENT 
STORE BBNO AS ARGUMENT 
OF SAD 



GET THE 1ST SUCC ENTRY 

REPLACE SYMBOLIC ADDRESS 
COMPILE THE INST 

IS THIS A SEQUENTIAL TRANSFER 
YES* SKIP COMPILING THE INST 



DETERMINE THE SYMBOLIC ADDR 

COMPILE THE TRANSFER 

THIS IS A TZE INST I. E. AN IF 

STORE BB NO. FOR SUBROUTINE 

ARGUMENT 



GET THE SUCC ENTRY 
FOR THE TZE 



REPLACE THE SYMBOLIC ADDREAS 
COMPILE THE TZE 

CHECK NEXT INST TO SEE 



F5G42200 

F5G42210 

F5G42220 

F5G42230 

F5G42240 

F5642250 

F5G42260 

F5G42270 

F5G42280 

F5G42290 

F5G42300 

F5G42310 

F5G42320 

F5G42330 

F5G42340 

F5G42350 

F5G42360 

F5G42370 

F5G42380 

F5G42390 

F5G42400 

F5G42410 

F5G42420 

F5G42430 

F5G42440 

F5G42450 

F5G42460 

F5G42470 

F5G42480 

F5G42490 

F5G42500 

F5G42510 

F5G42520 

F5G42530 

F5G42540 

F5G42550 

F5G42560 

F5G42570 

F5G42580 

F5642590 

F5G42600 

F5642610 

F5G42620 

F5G42630 

F5G42640 

F5G42650 

F5G42660 

F5G42670 

F5G42680 

F5G42690 

F5G42700 

F5G42710 

F5G42720 

F5G42730 



Y 



?/ 



03246 
03247 
03250 
03251 
03252 
03253 
03254 
03255 
03256 
03257 
03260 
03261 
03262 
03263 
03264 
03265 
03266 
03267 
03270 
03271 
03272 
03273 
03274 
03275 
03276 
03277 
03300 
03301 
03302 
03303 
03304 
03305 
03306 
03307 
03310 
03311 
03312 
03313 
03314 
03315 
03316 
03317 
03320 
03321 
03322 
03323 
03324 
03325 
03326 
03327 
03330 
03331 
03332 
03333 



32000 

60200 

50000 

40200 

10000 

07400 

50000 

40200 

10000 

50000 

40200 

10000 

75400 

60100 

00010 

63400 

50000 

07400 

50000 

07400 

53400 

60200 

07400 

00004 

50000 

32000 

60200 

50000 

40200 

10000 

50000 

40200 

10000 

75400 

60100 

00004 

63400 

50000 

40000 

07400 

50000 

07400 4 

534O0 2 

6O200 

07400 

00004 

50000 

40200 

10000 

50000 

40200 

10000 

07400 4 

00004 2 



00343 

00457 

00457 

00344 

03254 

00004 

01077 

0044%' 

03265 

01073 

00444 

03265 

00000 

01101 

03544 

00450 

00464 

00044 

16734 

02126 

00450 

01077 

02172 

03276 

01100 

00343 

00457 

00457 

00350 

03253 

01077 

00444 

03312 

00000 

01101 

03544 

00450 

00464 

00323 

00044 

16734 

02126 

00450 

01077 

02172 

03544 

01074 

00350 

02721 

O1101 

01073 

02721 

02172 

03334 



IFHPR 
16CLA 



IF2 



IF3 



PS3 



IF4 



STPCS2 



STPCS 
STP1 



ANA LFTMSK 
SLW TMP10 
CLA TMP10 
SUB LTPL 
TZE 16CLA 
TSX 4»4 
CLA INST-2»2 
SUB NXTLOC 
TNZ IF2 
CLA INST-6»2 
SUB NXTLOC 
TNZ IF2 
PXD 0#0 
STO SXST 
TXI BE6BB»2*8 
SXD B80X1»2 
CLA SUCNO 
TSX SE6»4 
CLA SUCCfl 
TSX SAD. 4 
LXD BB0X1»2 
SLW INST-2»2 
TSX SCMI»4 
TXI IF3+1»2»4 
CAL INST-1»2 
ANA LFTMSK 
SLW TMP10 
CLA TMP10 
SUB LTRA 
TNZ IFHPR 
CLA INST-2.2 
SUB NXTLOC 
TNZ IF4 
PXD 0*0 
STO SXST 
TXI BEGBB»2«4 
SXD BB0X1»2 
CLA SUCNO 
ADD LD2 
TSX SE6»4 
CLA SUCCrl 
TSX SADt4 
LXD BB0X1»2 
SLW INST-2#2 
TSX SCMU4 
TXI BEGBB»2«4 
CLA INST-5*2 
SUB LTRA 
TNZ NOEND 
CLA !NSTf2 
SUB INST-6»2 
TNZ NOEND 
TSX SCMI»4 
TXI STPl+l»2t4 



IF IT IS TPL 



IF NOT* DIAGNOSTIC 

DOES THIS EXIT GO TO NEXT BB 



YES* DOES NEXT ONE ALSO 



YES» RECORD SEQUENTIAL TRANSFER 



COMPILE THE TPL 



FIND AND 
REPLACE 
SYMBOLIC ADDRESS 



IS THIS TRA 



IF NOT * STOP 

YES IT IS IS THIS A 

SEQUENTIAL TRANSFER 

YES* RECORD THAT 



CONPILE THE TRA 



IF NECESSARY 
MODIFY THE 
SYMBOLIC 
ADDRESS 



COMPILE THE TWO INXT 
AND GO TO STAET BB 



F5G42740 

F5G42750 

F5G42760 

F5G42770 

F5G42780 

F5G42790 

F5G42800 

F5G42810 

F5G42820 

F5G42830 

F 5642 840 

F5G42850 

F5G42860 

F5G42870 

F5G42880 

F5G42890 

F5G42900 

F5G42910 

F5G42920 

F5G42930 

F5G42940 

F5G42950 

F5G42960 

F 56429 70 

F5G42980 

F5G42990 

F5G43000 

F5G43010 

F5G43020 

F5G43030 

F5G43040 

F5643050 

F5G43060 

F5643070 

F 5643 080 

F 5643090 

F5643100 

F5G43110 

F5643120 

F5G43130 

F 5643 140 

F5643150 

F 5643160 

F5G43170 

F 5643 180 

F5G4319Q 

F 5643200 

F5643210 

F5643220 

F5643230 

F5643240 

F5643250 

F5643260 

F5643270 



u 



u 



033 3 4 
03335 



03336 
03337 
03340 
03341 
03342 
03343 
03344 
03345 
03346 
03347 
03350 
©3351 
03352 
03353 
03354 
03355 
03356 
03357 
03360 
03361 
03362 
03363 
03364 
03365 
03366 
03367 
03370 
03371 
03372 
03373 
03374 
03375 
03376 
03377 
03400 
03401 
03402 
03403 
03404 
03405 
03406 
03407 
03410 
03411 
03412 
03413 
03414 
03415 
03416 
03417 



07400 4 02172 

1 00004 2 03544 



50000 
32000 
60200 
50000 
40200 
10000 
50000 
32000 
40200 
10000 
50000 
12000 
50000 
O 32000 
60200 
50000 
40200 
10000 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
00010 
50000 
07400 
50000 
07400 
50000 
07400 
50000 
07400 
02000 
50000 2 
32000 
60200 
50000 
40200 
10000 



01100 C17A 
00343 
00457 
00457 
00411 
03412 
01076 
00337 
00320 
03412 
00460 
03401 
01074 
00343 
00457 
00457 
00351 
03412 
01101 
02367 
00411 
02367 
00354 
02367 
00355 
02367 

01075 CMTSX 
02367 CMTS1 
01074 
02367 
01073 
02367 
01072 
02367 
02525 CI7B 

01101 DLSXD 
02367 
00352 
02367 
00314 
02367 
00314 
02367 
03370 

01100 CI7C 
00343 
00457 
00457 
00414 
02676 



TSX 
TXI 



CAL 
ANA 
SLW 
CLA 
SUB 
TNZ 
CAL 
ANA 
SUB 
TNZ 
CLA 
TPL 
CAL 
ANA 
SLW 
CLA 
SUB 
TNZ 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
TXI 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
CLA 
TSX 
TRA 
CAL 
ANA 
SLW 
CLA 
SUB 
TNZ 



SCMI*4 

8 THIS*R0UTINE ELIMINATES EXTRA SXD AND LXD INXT AROUND 
SUBROUTINE CALL SEQUENCES 



INST-1»2 

LFTMSK 

TMP10 

TMP10 

LSXD 

CI7C 

INST-3»2 

ADDMK 

L4 

CI7C 

CIND 

OLSXD 

INST-5»2 

LFTMSK 

TMP10 

TMP10 

LTSX 

CI7C 

INST»2 

SK»4 

LSXD 

SKi4 

GSYM 

SK*4 

T4SYM 

SK»4 

INST-4»2 

SiCf4 

INST-5*2 

SK»4 

INST-6»2 

SK»4 

IN5T-7*2 

SIC»4 

FNDAS»2»8 

INST»2 

SK#4 

LBSS 

SK.»4 

ZERO 

SK»4 

ZERO 

SK#4 

CMTSX 

INST-1>2 

LFTMSK 

TMP10 

TMP10 

LLXD 

CI7 



IS THIS AN SXD INST 



YES* DOES IT HAVE TAG 4 



YES* IS IR4 NECESSARY 

YES* IS THE NEXT INST A TSX 



YES* COMPILE AN SXD INSTR » TAG 4* TO 
SPECIAL TEMP. STORAGE LOC* 



COMPILE THE TSX INST 



LOOK AT NEXT INST LXF 
IR4 NOT NECESS* COMPILE BSS 0« 



IS THIS AN LXD 



NO* GO TO COMPILE THE INST 



F5G43280 

F5G43290 

F5G43300 

F5643310 

F5G43320 

F5G43330 

F 564 3340 

F5G43350 

F5G43360 

F5G43370 

F5G43380 

F5G43390 

F5G43400 

F5G43410 

F5G43420 

F5G43430 

F5G43440 

F5G43450 

F5G43460 

F5G43470 

F5G43480 

F5G43490 

F5G43500 

F5G43510 

F5G43520 

F5643530 

F5G43540 

F5G43550 

F5G43560 

F5G43570 

F5643580 

F5G43590 

F5G43600 

F5G43610 

F5G43620 

F5G43630 

F5G43640 

F5G43650 

F5643660 

F5G43670 

F5G43680 

F5G43690 

F5G43700 

F5G43710 

F5G43720 

F5G43730 

F5G43740 

F5G43750 

F5G43770 

F5G43780 

F5G43790 

F5G43800 

F5G43810 

F5G43820 



£?"> 



03420 
03421 
03422 
03423 
03424 
03425 
03426 
03427 
03430 
03431 
03432 
03433 
03434 
03435 
03436 
03437 
03440 
03441 
03442 
03443 
03444 
03445 
03446 
034*7 
03450 
03451 
03452 
03453 
03454 
03455 
03456 
03457 
03460 
03461 
03462 
03463 
03464 
03465 
03466 
03467 
03470 
03471 



03472 
03473 
03474 
03475 
03476 
03477 
03500 
03501 
03502 
03503 



50000 

32000 

40200 

10000 

50000 

12000 

76000 

02000 

76000 

02000 

50000 

32000 

60200 

50000 

40200 

10000 

50000 

32000 

40200 

10000 

50000 

40200 

10000 

00010 

50000 

07400 

50000 

07400 

50000 

07400 

50000 

07400 

60100 

02000 

50000 

60200 

32000 

40200 

10000 

75400 

60100 

02000 



01076 

00337 

00320 

02676 

00460 

03460 

00141 

03432 

00003 

03460 

01074 CI7C1 

00343 

00457 

00457 

00411 

03450 

01072 

00337 

00320 

03450 

01075 

00444 

03450 

02525 

00314 CI7D 

02367 

00414 

02367 

00354 

02367 

00355 

02367 

00461 CI7E 

02700 

01076 CI3A 

00461 

00337 

00320 

02667 

00000 

00460 

02667 



YES. IS THE TAG 4 



00445 RDINS 

00320 

00446 

00447 

00331 

00735 D1CLA 



63400 4 

50000 

60100 

63400 1 

53400 4 

50000 4 

60100 4 01101 

00001 4 03477 

76200 00224 D1RDS 

53400 1 00362 



N0# GO TO COMPILE THE INST. 

YES. IS IR4 NECESSARY. 

NO. GO TO REPRESS LATER COMPILING OF INST 

CHECK FOR LXP WHICH WAS LXD-D. 

NO SUCH. 

THERE WAS. SUPPRESS LATER COMPILING 

OF INST* 

IS FOLLOWING INSTR AN SXD. 



YES. IS THE TAG A 4 



IS SXD FIRST INSTR 
Of NEXT B8. 
YES. COMPILE LX. 

NO — DELETE LX. SX. 

CLMPILE THE LXD WITH GARBAGE 
SYMBOL ADDEAA AND TAG 4 



CAL INST-3.2 

ANA ADDMK 

SUB L4 

TNZ CI 7 

CLA CIND 

TPL CI7E 

MSE 97 

TRA CI7C1 

SSP 

TRA CI7E 

CAL INST-5.2 

ANA LFTMSK 

SLW TMP10 

CLA TMP10 

SUB LSXD 

TNZ CI7D 

CAL INST-7.2 

ANA ADDMK 

SUB L4 

TNZ CI7D 

CLA INST-4.2 

SUB NXTLOC 

TZE CI7D 

TXI FNDAS»2.8 

CLA ZERO 

TSX SK.4 

CLA LLXD 

TSX SK»4 

CLA GSYM 

TSX SK.4 

CLA T4SYM 

TSX SK.4 

STO CPIND 

TRA CKLOC 

CLA INST-3.2 

SLW CPIND 

ANA ADDMK 

SUB L4 

TNZ CI6 

PXD 0.0 

STO CIND 

TRA CI6 SINCE LXP OR DED* SKIP COMPILING INST. 

THIS ROUTINE READS ANOTHER BLOCK OF COMPILED INST INTO CS 
AND SHIFTS THE EXTRA INST TO THE BEGINNING OF BLOCK 

SXD OUTBX.4 SAVE RETURN INDEX 

CLA L4 SET ERRBX FOR 5 TRIES 

STO ERRBX 

SXD BBOX.l SAVE INDEX 1 

LXD LD12.4 SHIFT EXTRA INST FROM END 

CLA NDINS.4 OF BLOCK TO BEGINNING 

STO INST.4 

TIX D1CLA.4.1 IS BLOCK SHIFTED 

RTB INSTTP SELECT INST TAPE 

LXA RECSC.l YES. SET INDEX FOR NO. OF RECORDS 



SURPRESS LATER COMPILING INST SET ♦ 

IS THE S-TAG EQUAL TO 4 

RECORD INST. NOT TO BE COMPILED 



YES. RECORD IR4 NOT NECESSARY 



F5643830 
F 5643840 
F5G43850 
F5G43860 
F5G43870 
F5G43880 
F5G43881 
F 5643882 
F5G43883 
F5G43864 
F5G43885 
F5G43900 
F5643910 
F5G43920 
F5G43930 
F5G43940 
F5G43950 
F5G43960 
F5G43970 
F5643980 
F 5643990 
F5G440O0 
F5G44010 
F5G44020 
F5G44030 
F5G44040 
F5644050 
F5G44060 
F5644070 
F5644080 
F5644090 
F5644100 
F 5644110 
F5644120 
F5G44130 
F5644140 
F5644150 
F 5644 160 
F 5644 170 
F 5644 180 
F5644190 
F5G44200 
F5G44210 
F5G44220 
F5G44230 
F5644240 
F5G44250 
F5G44260 
F5G44270 
F5G44280 
F5G44290 
F5G44300 
F5G44310 
F 5644 320 






u 



u 



03504 
03505 
03506 
03507 
03510 
03511 
03512 
03513 
03514 
03515 
03516 
03517 
03520 
03521 
03522 
03523 
03524 
03525 
03526 
03527 
03530 
03531 
03532 
03533 
03534 
03535 
03536 
03537 
03540 
03541 
03542 
03543 

03544 
03545 
03546 
03547 
03550 
03551 
03552 
03553 
03554 
03555 
05556 
03557 
03560 
03561 
03562 
03563 
03564 
03565 
03566 
03567 
03570 



70000 
00001 
02000 
00001 
76200 
02000 
76600 
76000 
02000 
00143 
75400 
40000 
62200 
50000 
60100 
50000 
60100 
53400 
53400 
02000 
50000 
10000 
40200 
60100 
76400 
00001 
00001 
02000 
07400 
53400 
77200 
00145 

63400 
50000 
40000 
60100 
77100 
40200 
40000 
10000 
50000 
12000 
50000 
60100 
50000 
07400 
50000 
77100 
40200 
60100 
50000 
60100 
50000 



4 01065 D1CPY CPY INST-12»4 

4 03504 TXI D1CPY»4*1 

03516 TRA D2END 

1 03512 TNX D1BCK»1»1 
00224 RTB INSTTP 

03504 TRA 01CPY 

00333 D1BCK IOD 

00012 RTT 

03530 TRA INERR 

4 03525 TXH D1XX*4»ZINST-1 

4 00000 D2END PXD 0*4 

00327 ADD LD8 

02525 5TD FNDAS INTO MAIN 

00363 CLA LCOUT 

02526 STO FNDAS+1 

00336 CLA ENDMK 

4 01065 STO INST-12»4 

4 00445 D1XX LXD 0UTBX»4 

1 00447 LXD BB0X»1 
4 00001 TRA 1*4 

00446 INERR CLA ERRBX 

03540 TZE HTRD2 

00315 SUB ONEA 

00446 STO ERRBX 

00204 D2BST BST INSTTP 

1 03536 TXI D2TIX»1»1 

1 03534 D2TIX TNX D2BST* 1»RECN0 
03502 TRA D1RDS 

4 00004 HTRD2 TSX 4*4 

2 00331 PASS2 LXD LD12»2 
00203 REW OTAPE 

2 03544 1TXI TXI 1TXI+1 »2 *ZINST+ 

INITIALIZE FOR 

2 00450 BE6BB SXD BB0X1»2 

00316 CLA ONED 

00443 ADD BBNO 

00443 STO BBNO 

00022 ARS 18 

17774 SUB KEYS 

00315 ADD ONEA 

04413 TZE LSTBB 

01101 CLA SXST 

03560 TMI BEGBBY 

00337 CLA ADDMK 

01101 STO SXST 

00443 BEGBBY CLA BBNO 
4 00070 TSX SE«4 

1 12535 CAL BBB+2»1 
00022 ARS 18 

00340 SUB STMSK 

00460 STO CIND 

00315 CLA ONEA 

00660 STO SLV3 

00443 CAL BBNO 



COPY BLOCK OF INST 

SET FOR NEXT WORD 

END OF FILE 

END OF RECORD IS IT END OF LAST RECORD 

HOt READ NEXT RECORD 

TEST FOR TAPE ERROR 

ERROR 

IF 3RD FULL REC. NOT END OF FILE 
REACHED END OF INSTR 
PUT TEST FOR LAST INST 
ROUTINE 

PUT ADDR OF FINAL EXIT INTO MAIN 
ROUTINE 



NO ERROR* RESTORE INDEX REGISTERS 

RETURN TO MAIN ROUTINE 

ERROR IN READING IS THIS 1ST TRY 

TO READ IN 

YES* STORE INDICATION AND TRY AGAIN 

BACKSPACE OVER RECORDS JUST READ 



TAPE BACKSPACED TRY AGAIN 
ERROR ON 5TH TRY DIAGNOSTIC 



START OF 3B 

STORE INDEX OF POSITION ON ONST TABOE 



WAS THIS THE LAST BB 

YES* GL GO WRITE PARTIAL BLOLK 
NO 



GET ENTRANCE REQUIREMENT 

FOR IR4 

STORE + OR - IF IR4 

ISNT OR IS NECESSARY 

RECORD THERE ISNT HANGING TRA 

FIND THE 1ST INST IN NEXT 



F5G44330 

F5G44340 

F5G44350 

F5G44360 

F5G44370 

F5G44380 

F5G44390 

F5G44400 

F5G44410 

F5G44420 

F5G44430 

F5644440 

F5G44450 

F5G44460 

F5G44470 

F5G44480 

F5G44490 

F5G44500 

F5G44510 

F5G44520 

F5644530 

F5G44540 

F5G44550 

F5G44560 

F5G44570 

F5G44580 

F5G44590 

F5G44600 

F5G44610 

F5G44620 

F5G44630 

F5G44640 

F5G44650 

F5G44660 

F5644670 

F5G44680 

F5644690 

F5G44700 

F5G44710 

F5G44720 

F5G44730 

F5G44740 

F5G44750 

F5G44760 

F5G44770 

F5G44780 

F5G44790 

F5G44800 

F5G44810 

F5G44820 

F5G44830 

F5G44840 

F 5644850 

F5G44860 



<1 



/ 



03571 
03572 
03573 
03574 

03575 
03576 
03577 
03600 
03601 
03602 
03603 
03604 
03605 
03606 
03607 
03610 
03611 
03612 
03613 
03614 
03615 
03616 
03617 
03620 
03621 
03622 
03623 
03624 
03625 



03626 
03627 
03630 
03631 
03632 
03633 
03634 
03635 
03636 
03637 
03640 
03641 
03642 
03643 
03644 
03645 
03646 
03647 
03650 
03651 
03652 
03653 



40000 
07400 
50000 
60100 



56000 
60000 
50000 
62100 
50000 
07400 
50000 
62100 
62100 
50000 
34000 
02000 
02000 
07400 
50000 
32000 
76700 
73400 
50000 
77100 
60200 
50000 
40000 
62100 
02000 



00316 
4 00070 

1 12540 
00444 



00314 

00667 

1 12533 
00665 
00443 
00070 
12533 
00666 
00670 
00666 
00665 
03612 
03626 
00055 
15674 
00332 
00003 
00000 
00416 
00007 
00667 
00666 
00315 
00666 
03607 



11 



56000 
53400 
60000 
50000 
40200 
60100 
00001 
53400 
50000 
60100 
00001 
53400 
56000 
50000 
73400 
77300 
16200 
50000 
60100 
53400 
56000 
50000 



215 



Z12 



00314 
00422 
00715 
00422 
00316 
00674 
03630 
00331 
00416 
00712 
03637 
00422 
00667 
00432 
00000 
00007 
03711 
00434 
00674 
00422 
00314 
00674 



ADO 
TSX 
CLA 
STO 

LDQ 
STQ 
CLA 
STA 
CAL 
TSX 
CAL 
STA 
STA 
CLA 
CAS 
TRA 
TRA 
TSX 
CLA 
ANA 
ALS 
PDX 
CAL 
ARS 
ORS 
CLA 
ADD 
STA 
TRA 



Z2 LDQ 
LXA 

Z21 STO 
CLA 
SUB 
STO 
TIX 
LXD 
CLA 

Z28 STO 
TIX 
LXD 

Z25 LDQ 
CLA 
PAX 
ROL 
TOP 
CLA 
STO 
LXA 
Z23 LDQ 
CLA 



ONED 

SE#4 

BBB+5«1 

NXTLOC 
DETERMINE 

ZERO 

Z1V5 

8BB*1 

Z1V2 

BBNO 

SEt4 

BBB*1 

Z1V3 

Z1V8 

Z1V3 

Z1V2 

Z12 

12 

SE5»4 

PRED#1 

LT7 

3 

0*4 

Zl<3 

7»4 

Z1V5 

Z1V3 

ONE A 

Z1V3 

Z15 
THIS OPEN 
Z1V5 BY Zl 

ZERO 

Z2K2tl 

LLIND»1 

Z2K1+3»1 

ONED 

Z2Vl+3fl 

Z21*l*l 

LD12tl 

MZE 

LIST1+12»1 

Z28»l»l 

Z2K2»1 

Z1V5 

CASE+7»1 

0*2 

7*2 

Z26 

Z2K5 

Z2V2 

Z2K2»2 

ZERO 

Z2Vl+3#2 



BB 



WHICH LXD CASES EXIST » RESULT IN Z1V5 
INITIALIZE THE EXISTENCE 
INDICATOR WORD 

GET AND STORE NO. OF 1ST PRED IN 
NEXT BB 



STORE THE NO OF 
1ST PRED IN 
THIS BB 

IS THIS PRED IN SAME BB 

YES 

NO 

DETERMINE THE 
LXD CASE 



STORE BIT AS INDICATOR 
FOR THIS 
LXD CASE 

ARRANGE TO DEAL WITH NEXT 
PRED 

S. R. FORMS THE LXD LISTS FROM TNE INFO LEFT IN 



SET THE 3 INDEXDS TO THE SUB 
BOTTOM POSITIONS 
IN THE 3 LISTS AND ALL 
INDICATORS TO SAY COMPILED 



PLACE -0 S IN THE 
LXD LISTS 

SET TO BEGINNING OF CASE LIST 

DID 

THIS 

CASE 

OCCURR 

YES* SET NO OF ONES IN 
DIFFERENCE TO HIGH NUMBER 
INITIALIZE TO 1ST LIST 
IS P004 



F5G44870 

F5G44880 

F5G44890 

F5G44900 

F5G44910 

F5G44920 

F5G44930 

F5G44940 

F5G44950 

F5644960 

F5G44970 

F5G44980 

F5G44990 

F5G45000 

F5G45010 

F5G45020 

F5G45030 

F5G45040 

F5G45050 

F5G45060 

F5G45070 

F5G45080 

F5G45090 

F5G45100 

F5G45110 

F5G45120 

F5G45130 

F5G45140 

F5G45150 

F5G45160 

F5G45170 

F5G45180 

F5G45190 

F5645200 

F5G45210 

F5G45220 

F5G45230 

F5G45240 

F5G45250 

F5G45260 

F5G45270 

F5G45280 

F5G45290 

F5G45300 

F5G45310 

F5G45320 

F5G45330 

F5G45340 

F5G45350 

F5G45360 

F5G45370 

F5G45380 

F5G45390 

F5G45400 



o 



u 



03654 
03655 
03656 
03657 
03660 
03661 
03662 
03663 
03664 
03665 
03666 
03667 
03670 
03671 
03672 
03673 
03674 
03675 
03676 
03677 
03700 
03701 
03702 
03703 
03704 
03705 
03706 
03707 
03710 
03711 

03712 
03713 
03714 
03715 
03716 
03717 
03720 
03721 
03722 
03723 
03724 
03725 
03726 
03727 
03730 
03731 
03732 
03733 
03734 
03735 
03736 
03737 
03740 



73400 
50000 
32000 
40000 
10O00 
50000 
40200 
76500 
20000 
62100 
50000 
77100 
32000 
34000 
02000 
02000 
60100 
63400 
00001 
53400 
50000 
73400 
50000 
000 J 1 
60100 
75400 
60100 
50000 
60100 
00001 



50000 
40000 
10000 
50000 
32000 
10000 
34000 
02000 
02000 
34000 
02000 
02000 
60100 
76000 
60100 
02000 
76000 
60100 
02000 
76000 
60100 
02000 
50000 



00000 
00676 
00432 
00676 
03676 
00432 
. 00676 
<? 00025 
00433 
03667 
00432 
00000 
00434 
00674 
03676 
03676 
00674 
00675 
03652 
00675 
00674 
00000 
00432 
03704 
00676 
00000 
00674 
00416 
00715 
03642 



R004 PDX 
CLA 
ANA 
5BM 
TNZ 
CLA 
SUB 
LRS 
MPY 
ST A 
CLA 

Z22 ARS 
ANA 
CAS 
TRA 
TRA 
STO 
SXD 

Z27 TIX 
LXD 
CLA 
PDX 
CLA 

Z24 TXI 
STO 
PXD 
STO 
CLA 
STO 

226 TIX 



00434 
00700 
04003 
00700 
00704 
03766 
00700 
03723 
03760 
00704 
03726 
03763 
00701 
00003 
00705 
04015 
00003 
00711 
04015 
00003 
00701 
04015 
00704 



Z3 



Z31 
Z32 

Z38 
Z39 
Z300 



0*4 QUANTITY 

LlSTlt4 

CASE+7#1 

LIST1»4 

Z27 

CASE+7»1 

LIST1»4 

21 

Z2K4 

Z22 LOGICAL 

Z2K3 

SET 

Z2K5 

Z2V2 

Z27 

Z27 

Z2V2 ' 

Z2V3*2 

Z23»2»l 

Z2V3»2 

Z2Vl+3*2 

0»4 

CASE+7*1 

Z24+1>4»1 

LIST1»4 

0*4 

Z2Vl+3t2 

MZE 



IN THE LIST 

IS THE TOP 

YES* DETERMINE 

CONTAINED IN THIS 

CASE 

YES* DETERMINE 

THE NO. 

OF ONES 

IN THE 

DIFFERENCE 



IS THE NUMBER OF ONES IN THE 
DIFFERENCE LESS THAN OR EQUAL TO 
THE PREVIOUS MINIMUM* NO 

YES* STORE NEW MIN 

STORE INDEX OF LIST OF GIVING NEW MIN 

COUNT TO 3 LISTS ARE WE THRU 

UES* GET INDEX OF LIST WITH MIN DIFF 

STIRE 

THIS 

CASE AT TOP OF 

THAT LIST 



CLA 
SBM 
TZE 
CLA 
ANA 
TZE 
CAS 
TRA 
TRA 
CAS 
TRA 
TRA 
STO 
SSM 
STO 
TRA 
SSM 
STO 
TRA 
SSM 
STO 
TRA 
CLA 



LLIND»2 
Z25*l»l 
EXPAND 
Z2K5 
LI ST 1+2 
Z307 
LI ST 1+2 
LIST2+2 
Z35 

LIST1+2 
Z31 
Z33 

LIST2+2 
Z32 
Z34 
LIST1+3 

LIST2+3 
Z306 

LIST3+3 
Z306 

LlSTl+3 

Z306 

LIST2+2 



STORE INDEX OF TOP 
POSITION IN THAT LIST 
STORE INDICATION THAT THE 
LIST IS TO BE COMPILED 
COUNT THE 7 CASES 
TNE LXD LISTS 
IS THE 

BOTTOM ENTRY OF 
LIST1 A CASE 7 
NO* DO THE BOTTOMS 
OF LISTS 1 AND 2 HAVE 
A NON ZERO INTERSECTION 
YES. DOES INTERSECTION EQUAL 1 

YES 

IS IT EQUAL TO BOTTOM OF 2 

YES 

STORE INTERSECTION IN SUB1 
POSITITON AND -(INTER.) IN 
SUB2 POS« 

ENTER -INTER1 AND 3 
IN SUB3 POS* 

ENTER - INTER 1 AND 3 
INSUV1 POS. 

DO BOTTOM ENTRIES 



F5G45410 

F5G45420 

F5G45430 

F5G45440 

F5G45450 

F5G45460 

F 5645470 

F5G45480 

F5G45490 

F5G45500 

F5645510 

F5G45520 

F5G45530 

F5G45540 

F5G45550 

F5G45560 

F5G45570 

F5G45580 

F 5645 590 

F 5645 600 

F5G45610 

F5G45620 

F5G45630 

F 5645 640 

F 5645 650 

F5G45660 

F5G45670 

F5645680 

F5G45690 

F5G45700 

F5645710 

F5G45720 

F5645730 

F5645740 

F5G45750 

F 5645 760 

F5G45770 

F5645780 

F5645790 

F5G45800 

F5G45810 

F5645820 

F5645830 

F5645840 

F5645850 

F5645860 

F5645870 

F5G45880 

F5645890 

F 5645 9 00 

F5645910 

F5645920 

F5645930 

F5G45940 



<,-> 1 



Y 



03741 


-0 


32000 


00710 




ANA 


LIST3+2 


03742 





10000 


04015 




TZE 


Z306 


05743 





34000 


00704 




CAS 


LIST2+2 


03744 





02000 


03746 




TRA 


Z301 


03745 





02000 


03755 




TRA 


Z303 


03746 





34000 


00710 


Z301 


CAS 


LIST3+2 


03747 





02000 


03751 




TRA 


Z302 


03750 





02000 


04013 




TRA 


Z304 


03751 





60100 


00711 


Z302 


STO 


LIST3+3 


03752 


-0 


76000 


00003 




SSM 




03753 





60100 


00705 




STO 


LIST2+3 


03754 





02000 


04015 




TRA 


Z306 


03755 


-0 


76000 


00003 


Z303 


SSM 




03756 





60100 


00711 




STO 


LIST3+3 


03757 





02000 


04015 




TRA 


Z306 


03760 


-0 


76000 


00003 


Z33 


SSM 




03761 





60100 


00705 




STO 


LIST2+3 


03762 





02000 


04015 




TRA 


Z306 


03763 


-0 


76000 


00003 


Z34 


SSM 




03764 





60100 


00701 




STO 


LI ST 1+3 


03765 





02000 


04015 




TRA 


Z306 


03766 





50000 


00700 


Z35 


CLA 


LIST1+2 


03767 


-0 


32000 


00710 




ANA 


LIST3+2 


03770 





10000 


03740 




TZE 


Z300 


03771 





34000 


00700 




CAS 


LIST1+2 


03772 





02000 


03774 




TRA 


Z36 


03773 





02000 


03732 




TRA 


Z38 


03774 





34000 


00710 


Z36 


CAS 


LIST3+2 


03775 





02000 


03777 




TRA 


Z37 


03776 





02000 


03735 




TRA 


Z39 


03777 





60100 


00711 


Z37 


STO 


LIST3+3 


04000 


-0 


76000 


00003 




SSM 




04001 





60100 


00701 




STO 


LlSTl+3 


04002 





02000 


04015 




TRA 


Z306 


04003 


-0 


63400 


00671 


Z307 


SXD 


Z2V1»0 


04004 





50000 


00321 




CLA 


L7 


04005 





60100 


00676 




STO 


LIST1 


04006 





50000 


00317 




CLA 


L3 


04007 





60100 


00677 




STO 


LIST1+1 


04010 





50000 


00315 




CLA 


ONEA 


04011 





60100 


00700 




STO 


LIST1+2 


04012 





02000 


04053 




TRA 


24 


04013 


-0 


76000 


00003 


Z304 


SSM 




04014 





60100 


00705 


Z305 


STO 


LIST2+3 


04015 


-0 


53400 2 


00324 


Z306 


LXO 


L03»2 


04016 





53400 1 


00314 




LXA 


ZEROfl 


04017 





50000 1 


00700 


Z309 


CLA 


LIST1+2»1 


04020 





10000 


04031 




TZE 


Z308 


04021 





40200 


00315 




SUB 


ONEA 


04022 


-0 


32000 1 


00700 




ANA 


LIST1+2»1 


04023 





10000 


04031 




TZE 


Z308 


04024 





60100 


00457 




STO 


TMP10 


04025 





50000 1 


00701 




CLA 


LIST1+3»1 


04026 


-0 


10000 


04031 




TNZ 


Z308 



OF 2 AND 3 HAVE 
NONZERO INTERSECTION 
YES# IS INTRE 2 AND 3 

YES 

IS INTERSECTION EQUAL TO BOTTOM OF LIST 3 

YES 

STORE INTER 2 AND 3 I£ SUB 3 POS. 

AND -INTER IN 

SUB 2 POS* 

ENTER -(INTER 2 AND 3 ) 
IN SUB 3 POS. 

ENTER -(INTER 1 AND 2 ) 
IN SUB 2 POS* 

STORE -(INTER 1 AND 2 > 
IN SUB 1 POS. 

DO BOTTOM ENTRIES IN 

1 AND 3 HAVE NONZERO 

INTERSECTION 

YES* IS IT EQUAL TO BOT. 1 

YES 

TO THE BOTTOM ENTRY IN 3 

YES 

ENTER INTER 1 AND 3 IN SUB 
3 PQS» AND -( INTER ) IN 
SUB1 POS* 

CREATE THE LIST 



ENTER - INTER 2 AND 3 

INSUB2 POS« 

SET COUNT TO 3 

SET TO INSPECT 1ST LIST 

IS THE BOTTOM ENTRY ZERO 

NO 

DOES IT HAVE TWO ONES 

YES 

IS THE SUB BOTTOM 

ENTRY ZERO 



F 5045950 

F 5645960 

F5645970 

F5G45980 

F5G45990 

F5G46000 

F5G46010 

F5G46020 

F5G46030 

F5G46040 

F5G46050 

F5G46060 

F5G46070 

F5G46080 

F5G46090 

F5646100 

F5G46110 

F5G46120 

F5G46130 

F 5646140 

F5G46150 

F5646160 

F5G46170 

F5646180 

F5G46190 

F5646200 

F5G46210 

F5G46220 

F5G46230 

F5G46240 

F5G46250 

F5G46260 

F5G46270 

F5G46280 

F5G46290 

F 5646300 

F5G46310 

F5G46320 

F 5646330 

F5646340 

F 5646 350 

F5646360 

F5646370 

F5646380 

F 5646 390 

F 5646400 

F 5646410 

F5646420 

F5646430 

F5646440 

F 5646450 

F5646460 

F5646470 

F5646480 



'">/ 



/ 



o 



u 



0*027 





50000 





00457 


0*030 





60100 


1 


00701 


04031 


1 


77774 


1 


04032 Z308 


04032 


2 


00001 


2 


04017 


04033 





50000 





00434 


04034 


-0 


40000 





00677 


04035 


-0 


10000 





04053 


04036 





50000 





00700 


04037 





40200 





00315 


04040 


-0 


32000 





00700 


04041 


-0 


10000 





04053 


04042 





50000 





00700 


04043 





60100 





00701 


04044 





50000 





00434 


04045 





40200 





00700 


04046 





60100 





00700 


04047 





40200 





00315 


04050 





32000 





00700 


04051 


-0 


50000 





00701 


04052 


-0 


60200 





00700 


04053 





56000 





00416 24 


04054 


-0 


60000 





01125 


04055 





53400 


4 


00322 


04056 


-0 


60000 


4 


01125 Z411 


04057 


2 


00001 


4 


04056 


04060 





50000 





01101 


04061 


-0 


12000 





04140 


04062 


-0 


50000 





00443 


04063 





77100 





00022 


04064 





40200 





00315 


04065 





60100 





00457 


04066 





50000 





00670 


04067 





60100 





00666 Z49 


04070 





07400 


4 


00055 


04071 


-0 


50000 


1 


15674 


04072 


-0 


32000 





00337 


04073 





40200 





00457 


04074 





10000 





04100 


04075 


-0 


50000 





00666 


04076 





40000 





00315 


04077 





02000 





04067 


04100 





50000 





00666 2410 


04101 





07400 


4 


02211 


04102 





50000 





00466 


04103 





40000 





00467 


04104 





40000 





00470 


04105 





10000 





04117 


04106 





53400 


4 


00320 


04107 





50000 


4 


00471 Z41 


04110 





60100 


4 


01105 


04111 


2 


00001 


4 


04107 


04112 





53400 


1 


00314 


04113 





07400 


4 


02242 



CLA TMP10 
STO L1ST1+3»1 
TXI Z308+l»l*-4 
TIX Z309»2»l 
CLA Z2K5 
SBM LIST1+1 
TNZ Z4 . 
CLA LI ST 1+2 
SUB ONEA 
ANA LIST1+2 
TNZ Z4 
CLA LIST1+2 
STO LIST1+3 
CLA Z2IC5 
SUB LIST1+2 
STO LIST1+2 
SUB ONEA 
ANS LIST1+2 
CAL LIST1+3 
ORS LIST1+2 

DETECT AND 
LDQ MZE 
STQ SXAS 
LXA L19»4 
STQ SXST+20#4 
TIX Z4ll»4*l 
CLA SXST 
TMI Z5 
CAL BBNO 
ARS 18 
SUB ONEA 
STO TMP10 
CLA Z1V8 
STO Z1V3 
TSX SE5»4 
CAL PRED»1 
ANA ADDMK. 
SUB TMP10 
TZE Z410 
CAL Z1V3 
ADD ONEA 
TRA Z49 
CLA Z1V3 
TSX SH»4 
CLA SXD1 
ADD SXD2 
ADD SXD3 
TZE Z44 
LXA L4»4 
CLA SXDl+3»4 
STO SXST+4»4 
TIX Z4l»4»l 
LXA ZER0»1 
TSX SI«4 



YES 

PREPARE FOR NEXT LIST 
COUNT TO 3 



COMPILE ANY SEQUENTIAL TRANSFER 
PUT MINUS ZEROS IN 
THE ASSOXIATED 
SXDP0SIT10NS 



IS THERE A SEQUENTIAL TRANSFER 
YES 



PUT NO OF PREV. BB IN TMP10 
INITIALIZE 1ST PRED NO THIS BB 



IS THIS THE SEQUENTIAL 
TRANSFERS PRED ENTRY 

NO* TRY NEXT ONE 



GET THE PRED NO 
FORM THE SXD CASE 



IS THIS A SXD CASE 

ISNT SXD CASE 

RECORD SXD CASE 

IN POSITION ASSOCIATED 

WITH SEQUENTIAL TRANSFER 

COMPILE THE SXD 

INST. WITH 



F5646490 

F5G46500 

F5G46510 

F5G46520 

F5G46530 

F5G46540 

F5646550 

F5G46560 

F5646570 

F5G46580 

F5G46590 

F5G46600 

F5G46610 

F5G46620 

F5G46630 

F5G46640 

F5G46650 

F5G46660 

F5646670 

F5G46680 

F5G46690 

F5G46700 

F5G46710 

F5G46720 

F5G46730 

F5G46740 

F5G46750 

F5G46760 

F5G46770 

F5G46780 

F5G46790 

F5G46800 

F5G46810 

F5G46820 

F5G46830 

F5G46840 

F5G46850 

F5G46860 

F5646870 

F5G46880 

F5G46890 

F5G46900 

F5G46910 

F5G46920 

F5G46930 

F5G46940 

F5G46950 

F5G46960 

F5G46970 

F5G46980 

F5G46990 

F5G47000 

F5G47010 

F5G47020 



* 



04114 


02000 04140 




TRA Z47 


04115 


07400 4 02440 


Z42 


TSX SM*4 


04116 


02000 04140 




TRA Z47 


04117 


-0 53400 4 00465 


Z44 


LXD SXD0»4 


04120 


-3 00000 4 04136 




TXL Z46»4*0 


04121 


-0 75400 4 00000 




PXD 0»4 


04122 


77100 00022 




ARS 18 


04123 


60100 00715 




STO Z4V1 


04124 


-0 53400 2 00324 




LXD LD3»2 


04125 


50000 2 00674 


Z45 


CLA Z2Vl+3#2 


04126 


-0 73400 1 00000 




PDX 0»1 


04127 


50000 1 00676 




CLA LISTltl 


04130 


40200 00715 




SUB Z4V1 


04131 


10000 04115 




TZE Z42 


04132 


2 00001 2 04125 




TIX Z45*2»l 


04133 


50000 00715 




CLA Z4V1 


04134 


07400 4 02403 




TSX SL»4 


04135 


02000 04140 




TRA Z47 


04136 


50200 00315 


Z46 


CLS ONEA 


04137 


60100 00660 


Z48 


STO SLV3 




04140 


Z47 


SYN Z48+1 

FORM THE 


04140 


50000 00316 


Z5 


CLA ONED 


04141 


60100 00716 




STO Z5V1 


04142 


50000 00670 




CLA Z1V8 


04143 


60100 00666 


Z53 


STO Z1V3 


04144 


40200 00665 




SUB Z1V2 


04145 


10000 04263 




TZE Z6 


04146 


50000 01101 




CLA SXST 


04147 


-0 12000 04153 




TMI Z51 


04150 


-0 32000 00337 




ANA ADOMK 


04151 


40200 00666 




SUB Z1V3 


04152 


10000 04213 




TZE Z55 


04153 


50000 00666 


Z51 


CLA Z1V3 


04154 


07400 4 02211 




TSX SHf4 


04155 


50000 00466 




CLA SXD1 


04156 


40000 00467 




ADD SXD2 


04157 


40000 00470 




ADD SXD3 


04160 


10000 04213 




TZE Z55 


04161 


53400 1 00314 




LXA Z£R0»1 


04162 


50000 1 01101 


Z503 


CLA SXSTtl 


04163 -0 32000 00335 




ANA DECMK 


04164 


60100 00457 




STO TMP10 


04165 


50000 00"S5 




CLA SXDO 


04166 -0 32000 00335 




ANA DECMK 


04167 


40200 00457 




SUB TMP10 


04170 - 


-0 10000 04216 




TNZ Z54 


04171 


50000 1 01102 




CLA SXST+1»1 


04172 


40200 00466 




SUB SXD1 


04173 - 


-0 10000 04216 




TNZ Z54 


04174 


50000 1 01103 




CLA SXST+2»1 


04175 


40200 00467 




SUB SXD2 


04176 - 


•0 10000 04216 




TNZ Z54 


04177 


50000 1 01104 




CLA SXST+3tl 



(1) ASSOCIATED SXD WITH LXD CASE 
C2IASS0CIATED WITH AN LXD LIST 
(31 NOT ASSOCIATED { TRA COMPILED ) 

DOES IT HAVE A LXD CASE 

NO 

LXD CASE TO AC (ADDR) 

SET COUNT TO 3 » N*l 

GET INDEX 

OF TOP QUANTITY IN LIST N 

IS THE LXD CASE OF THIS SXD 

CASE THE SAME AS 

THE TOP QUANTITY IN LIST N 

N0# COUNT TO 3 

COMPILE A 

TRA <LXD ) 

RECORD THAT THERE 

IS A HANGING TRA OCASE 

SXD LIST AND THE SYN CARD LIST 
SET INDEX IN SYN TABLE 

RESET 1 ST PRED IN BB 

IS THIS PRED IN SAME BB 

NO* ADD FINISHED 

YES 

WAS THERE A SEQUENTIAL TRANSFER 

YES* EXTRACT ADDRESS 

HAS PRED ALREDY BEEN CONSIDERED 

AS A SEQUENTIAL TRANSFER 

NO 

GENERATE SXD CASE 

IS THE 

SXD CASE 

ZERO 

NOt PREPARE TO SCAN SXD LIST 
IS SUBSXDO 



THIS SXD CASE 



SAME AS 



THE ONE ALREADY 



F5G47030 

F5G47040 

F5G47050 

F5G47060 

F5G47070 

F5G47080 

F5G47090 

F5G47100 

F5G47110 

F5G47120 

F5G47130 

F5G47140 

F5G47150 

F5G47160 

F5G47170 

F5G47180 

F5G47190 

F5G47200 

F5G47210 

F5G47220 

F5G47230 

F5G47240 

F5G47250 

F5G47260 

F5G47270 

F5G47280 

F5G47290 

F5G47300 

F5G47310 

F5G47320 

F5G47330 

F5G47340 

F5G47350 

F5G47360 

F5G47370 

F5G47380 

F5G47390 

F5G47400 

F5G47410 

F5G47420 

F5G47430 

F5G47440 

F5G47450 

F5G47460 

F5G47470 

F5G47480 

F5G47490 

F5G47500 

F5G47510 

F5G47520 

F5G47530 

F5G47540 

F5G47550 

F5G47560 



w 



U 



U 



n 



o 



04200 
04201 
04202 
04203 
04204 
04205 
04206 
04207 
04210 
04211 
04212 
04213 
04214 
04215 
04216 
04217 
04220 
04221 
04222 
04223 
04224 
04225 
04226 
04227 
04230 
04231 
04232 
04233 
04234 
04235 
04236 
04237 
04240 
04241 
04242 
04243 
04244 
04245 
04246 
04247 
04250 
04251 

04252 
04253 
04254 
04255 
04256 
04257 
04260 
04261 
04262 



40200 
10000 
50000 
53400 
32000 
60100 
50000 
76700 
62200 
00001 
63400 
50000 
40000 
02000 
50000 
12000 
53400 
00000 
77773 
77767 
77763 
77757 
07400 
50000 
60100 
02000 
77774 
50000 
32000 
10000 
07400 
02000 
00001 
00001 
50000 
73400 
50000 
77100 
40200 
10000 
07400 
02000 



50000 
60100 
50000 
60100 
50000 
60100 
50000 
60100 
02000 



00470 
04216 
01101 
00716 
00337 
02125 
00465 
00022 
02125 
04212 
00716 
00666 
00315 
04143 
01101 
04232 
00324 
04232 
04233 
04242 
04241 
04240 
04252 
00416 
01105 
04213 
04162 
00465 
00335 
04232 
04252 
04213 
04241 
04242 
00674 
00000 
00465 
00022 
00676 
04232 
04252 
04213 



252 
Z55 

Z54 



£502 

Z504 



Z505 
Z506 
Z507 



00465 Z500 

1 01101 

00466 

1 01102 

00467 

1 01103 

00470 

1 01104 
4 00001 



04263 53400 1 00333 Z6 



SUB 
TNZ 
CLA 
LXD 
ANA 
STO 
CLA 
ALS 
STD 
TXI 
SXD 
CLA 
ADD 
TRA 
CLA 
TPL 
LXD 
TXL 
TXH 
TXH 
TXH 
TXH 
TSX 
CLA 
STO 
TRA 
TXI 
CAL 
ANA 
TNZ 
TSX 
TRA 
TIX 
TIX 
CAL 
PDX 
CLA 
ARS 
SUB 
TNZ 
TSX 
TRA 

CLA 
STO 
CLA 
STO 
CLA 
STO 
CLA 
STO 
TRA 

LXA 



SXD3 
Z54 
SXST*1 
Z5V1»2 
ADDMK 
SYN* 2 
SXDO 
18 

SYN* 2 
Z52+l*2»l 
Z5V1»2 
Z1V3 
ONE A 
Z53 

SXST*1 
Z502 
LD3*2 
Z502*l*0 
Z504»l»-4-l 
Z507»l»-8-l 
Z506*l*-12-1 
Z505»l*-16-1 
Z500»4 
MZE 

SXST+4»1 
Z55 

Z503*l*-4 
SXDO 
DECMK 
Z502 
Z500*4 
Z55 

Z505+l»2*l 
Z506+l»2*l 
Z2Vl+3>2 
0*4 
SXDO 
18 

LIST1»4 
Z502 
Z500»4 
Z55 
SUBROUTINE 

SXDO 

SXST»i 

SXD1 

SXST+1>1 

SXD2 

SXST+2«1 

SXD3 

SXST+3»1 

1*4 

COMPILE THE 
LM20»1 



STORED 

YES* STORE INDICATION 

SYN* 2 CARD 
IN THE 
SYN 
LIST 



PREPARE TO DEAL WITH NEXT PRED 



IS THIS SXD POS. EMPTY 

YES 

IS THIS ST CASE 

NO* IS THIS LIST CASE 

NO 1ST 

2ED 

3RD 
ENTER THE SXD CASE IN THE LIST 

STORE END MARK FOR SYN CAEDS 

EXAMINE NEXT SXD CASE 
ZERO LIST CASE 
IS THE LXD CASE 

YES* ENTER SXD CASE IN 
ASSOCIATED POSITION 
GENERATE INDEX OF LIST 

IS 

THE 

LXD 

CASE THE - 

SAME 

YES 

FOR ENTERING SXD CASE IN SXD LIST 



SXD LIST 

SET TO START OF SXD LIST 



F5G47570 

F5G47580 

F5G47590 

F5G47600 

F5G47610 

F5G47620 

F5G47630 

F5G47640 

F5G47650 

F5G47660 

F5G47670 

F5G47680 

F5647690 

F5G47700 

F5G47710 

F5G47720 

F5G47730 

F5G47740 

F5G47750 

F5G47760 

F5G47770 

F5G47780 

F5G47790 

F5G47800 

F5G47810 

F5G47820 

F5G47830 

F5G47840 

F5G47850 

F 5647860 

F5G47870 

F5G47880 

F5G47890 

F5G47900 

F5G47910 

F5G47920 

F5G47930 

F5G47940 

F5G47950 

F5G47960 

F5G47970 

F5G47980 

F5G47990 

F5G48000 

F5G48010 

F5G48020 

F5G48030 

F5G48040 

F5G48050 

F5G48060 

F5G48070 

F5G48080 

F5G48090 

F5G48100 



>':! 



04264 
04265 
04266 
04267 
04270 
04271 
04272 
04273 

04274 
04275 
04276 
04277 
04300 
04301 
04302 
04303 
04304 
04305 
04306 
04307 
04310 
04311 
04312 
04313 
04314 
04315 
04316 
04317 
04320 
04321 
04322 
04323 
04324 
04325 
04326 
04327 
04330 
04331 
04332 
04333 
04334 
04335 
04336 
04337 
04340 
04341 
04342 
04343 
04344 
04345 
04346 
04347 
04350 




-0 
-0 





3 
-0 

1 

-0 


-0 


-0 










"0 


-0 


-0 
-0 






-0 

2 




*0 


-0 










•0 


■0 


-0 










-0 





50000 



50000 
12000 
63400 
07400 
76100 
00000 
53400 
77774 

53400 
50000 
73*00 
50000 
12000 
10000 
50000 
10000 
12000 
50000 
12000 
50000 
73400 
50000 
63400 
12000 
07400 
02000 
02000 
53400 
00001 
50200 
60100 
12000 
50000 
12000 
53400 
07400 
02000 
02000 
02000 
53400 
50000 
12000 
50000 
73400 
50000 
77100 
07400 
02000 
50000 
73400 
07400 
02000 



01101 Z61 

04274 

04271 

02242 

00000 

0C000 26V1 

04271 

04264 



0C324 
0C422 
OCOOO 
0C676 
0*350 
0*320 
0C677 
04350 
04350 
0C72O 
04320 
0C443 
OCOOO 
01101 
00717 
04344 
02242 
04317 
04333 
00717 
04275 
00720 
00720 
04274 
011C5 
04353 
00334 
02242 
04353 
04353 
04353 
00717 
00715 
04344 
00443 
00000 
01101 
00022 
024C3 
04317 
00674 
00000 
02440 
04317 
00720 



27 
Z72 



276 



Z71 
273 



277 



274 



275 



CLA 
TMI 
SXD 
TSX 
NOP 
TXH 
LXD 
TXI 

LXD 
CLA 
PDX 
CLA 
TMI 
T2E 
CLA 
TZE 
TPL 
CLA 
TMI 
CLA 
PDX 
CLA 
SXD 
TMI 
TSX 
TRA 
TRA 
LXD 
TIX 
CLS 
STO 
TMI 
CLA 
TMI 
LXA 
TSX 
TRA 
TRA 
TRA 
LXD 
CLA 
TMI 
CLA 
PDX 
CLA 
ARS 
TSX 
TRA 
CLA 
PDX 
TSX 
TRA 
CLA 



SXSTtl 

27 

26V1*1 

SIf4 

0»0»SET 

26V1*1 

Z61»l»-4 

COMPILE TNE 
LD3»2 
22Kl+3»2 
0*1 

LlSTlfl 
Z75 
Z73 

LIST1+1»1 
Z75 
Z75 
Z7V2 
273 

27K1+3.2 
0»1 

SXSTtl 
Z7V1*2 
274 
SI»4 
271 
Z77 

Z7V1»2 
272*2*1 
Z7V2 
27V2 
Z7 

SXASO 
Z8 

LM4»1 
SI»4 
Z8 
Z8 
Z8 

Z7Vlt2 
Z4V1*2 
Z74 

Z7Kl+3*2 
0*1 

SXSTtl 
18 

SL*4 
Z71 

Z2Vl+3»2 
0*1 
SMf4 
Z71 
Z7V2 



IS THIS SXD POSITION EMPTY 

NO 

COMPILE THE SXD CASE WITH 

CD LXD CASE* OR 

(21 THIS RETURN CANT OCCURR 

(3 i TRA ALREADY CONPILED 

LXD LISTS AND ASSOCIATED SXD S 
SET TO BEGIN SCAN OF LISTS 

PUT INDEX OF BOTTOM POSITION IN 1 

YES* IS IT A TRA(O) CASE 
IS THE LIST FILLED 
PERHAPS. IS IT A FOR SURE 

IT IS IF EITHER THE SUB BOTTOM 
ENTRY IS -0 OR POSITIVE 

IS THIS 1ST TIME THRU 

YES 

IS THERE ASSOCIATED 

SXDLIST 



YES. COMPILE SXD CASE 
COMPILE 

COUNT TO 3 

IS THIS 1ST TIME THRU 

YES* GO BACK CLASXST 

IS THERE A ASSOCIATED SXD CASE 

YES 

COMPILE SXD CASE 



COMPILE THE LXD LIST 



IS THIS 1ST TIME THRU 



F5G48110 

F5648120 

F5648130 

F5648140 

F5G48150 

F5G48160 

F5G48170 

F5G481fr?> 

F5G48190 

F5G48200 

F5G48210 

F5G48220 

F5G48230 

F5G48240 

F5G48250 

F5G48260 

F5G48270 

F5G48280 

F5G48290 

F5G48300 

F5G48310 

F5G48320 

F5G48330 

F5G48340 

F5G48350 

F5G48360 

F5G48370 

F5G48380 

F5G48390 

F5G48400 

F5G48410 

F5G48420 

F5G48430 

F5648440 

F5G48450 

F5G48460 

F5G48470 

F5G48480 

F5G48490 

F5G48500 

F5G48510 

F5G48520 

F5G48530 

F5G48540 

F5G48550 

F5G48560 

F5G48570 

F5G48580 

F5G48590 

F5G48600 

F5G48610 

F5G48620 

F5G48630 

F5G48640 



y^y 



U 



U 



o 



n 



04331 
04352 

04353 
04354 
04355 
04356 
04357 
04360 
04361 
04362 
04363 
Q4364 
04365 
04366 
04367 
04370 
04371 
04372 
04373 
04374 
04375 
04376 
04377 
04400 
04401 
04402 
04403 
04404 
04405 
04406 
04407 
04410 
04411 
04412 



04413 
04414 
04415 
04416 
04417 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04430 
04431 
04432 
04433 



-0 12000 04307 
02000 04320 



50000 
77100 
60100 
07400 
50000 
32000 
76700 
40200 
40200 
60100 
53400 
00001 
00001 
50000 
32000 
77100 
40200 
07400 
50000 
07400 
50000 
32000 
76700 
40200 
07400 
50000 
07400 
02000 
53400 
50000 
60100 
02000 



76200 
70000 
02000 
02000 
07400 
53400 
53400 
76200 
70000 
77777 
02000 
76600 
76000 
02000 
63400 
00000 
50000 



00443 ZB 

00022 

00457 

00067 

12533 

O0337 

00012 

00457 

00410 

00457 

00716 

04407 Z81 

04370 282 

02125 

00335 

00010 

00457 

02367 

00346 

02367 

02125 

00337 

00012 

00457 

02367 

00314 

02367 

04366 

00450 283 

00416 

01101 

02525 



00224 LSTBB 

00457 

04420 

04413 

00004 

00325 EF3 

00337 EFRTB 

00224 

04516 EFCPY 

04423 

04436 

00333 

00012 

04451 

04432 

04421 EFTXL 



-{IDSXD)-{BBN0)+(1ST PRED)*2**25 



SET TO START OF SYN LIST 
ARE WE THRU 
DECREASE INDEX 

COMPILE THE SYN CARD 



TMI Z76 NO* 2ED TIME 

TRA 273 YES 

COMPILE ANY SYN CARDS 

CAL BBNO FORM 

ARS 18 AND 

STO TMP10 STORE 

TSX SE1#4 

CAL BBB»1 

ANA ADDMK 

ALS 10 

SUB TMP10 

SUB IDSXD 

STO TMP10 

LXD Z5V1»2 

TXL Z83»2»l 

TIX Z82+l»2*l 

CAL SYN*2 

ANA DECMK 

ARS 8 

SUB TMP10 

TSX SK»4 

CLA LSYN 

TSX SK>4 

CAL 5YN»2 

ANA ADDMK 

ALS 10 

SUB TMP10 

TSX SK»4 

CLA ZERO 

TSX SK»4 

TRA Z81 

LXD BB0X1»2 

CLA MZE 

STO SXST 

TRA FNDAS 

WRITE TH E LAST BLOCK OF C.I. T. ON TAPE 

AFTER PUTTING RELATIVE CONSTANT ROUTINES AT END 

RTB IN5TTP AN END OF 

CPY TMP10 FILE SEPARATES RELATIVE CONST. ROUTINES 

T RA EF3 END FILE ALREADY READ 

TRA LSTBB READ END FILE 

TSX 4#4 DIAGNOSTIC* ERROR 



GET INDEX OF COMPILED INDT 
RECORD NO SEQUENTIAL TRANSFER 



04516 



LXD LD4»4 

LXA ADDMKO 

RTB INSTTP 

CPY RELSR»1 

TXI EFCPY.lt-1 

TRA EFREW 

IOD 

RTT 

TRA EFERR 

SXD EFTXL»1 

TXL EFRTB. 2. SET 

CLA RELSR»2 



TRY 4 TIMES 
READ IN NEXT RECORD 
OF RELATIVE CONSTANT SUBROUTINES 



END OF FILE » END OF INST. 



STORE END TEST 

COMPILE THE INSTRUCTIONS 



F5G48650 
F5G48660 
F5G48670 
F5G48680 
F5G48690 
F5G48700 
F5G48710 
F5G48720 
F5G48730 
F5G48740 
F5G48750 
F5G48760 
F5G48770 
F5G48780 
F5G48790 
F5G48800 
F5G48810 
F5G48820 
F5G48830 
F5G48840 
F5G48850 
F5648860 
F5G48870 
F5G48880 
F5G48890 
F5G48900 
F5G48910 
F5G48920 
F5G48930 
F5G48940 
F5G48950 
F5G48960 
F5G48970 
F5G48980 
F5G48990 
F5G49000 
F5G49010 
F5G49020 
F5G49030 
F5G49040 
F5649050 
F5G49060 
F5G49070 
F5G49080 
F5G49090 
F5G49100 
F5G49110 
F5G49120 
F5G49130 
F5G49140 
F5G49150 
F5G49160 
F5G49170 
F5649180 



04434 





07400 4 


02367 




TSX 


SK*4 






04435 


1 


77777 2 


04432 




TXI 


EFTXL»2*-1 






04436 





77200 


00204 


EFREW 


REW 


INSTTP 


REWIND THE TAPE 


04437 





53400 1 


00412 




LXA 


SKKltl 


SET 1 TO LENGTH OF CS BLOCK 


04440 


-0 


53400 4 


00655 




LXD 


SKV1*4 


INDEX OF NEXTCLST POSITION 


04441 


-0 


63400 4 


04444 




5XD 


LSTXL»4 






04442 


3 


00143 4 


04447 




TXH 


LSWEF»4»LCLST-1 




IS BLOCK EMPTY 


0*^443 





76600 


00223 




~ WTB 


OTAPE 


NO) 


► WRITE 


04444 


-3 


OOOOO 1 


04447 


LSTXL 


TXL 


LSWEF*1»- 


IT 


ON TAPE 


04445 





70000 1 


00655 




CPY 


CLST»1 






04446 


1 


77777 1 


04444 




TXI 


LSTXL»1*-1 






04447 





77000 


00203 


LSWEF 


WEF 


OTAPE 


WRITE AN END FILE 


04450 





02000 


00030 




TRA 


R 






04451 





76400 


00204 


EFERR 


BST 


INSTTP 






04452 


2 


00001 4 


04421 




TIX 


EFRTB»4»1 






04453 





07400 4 


00004 




TSX 


4*4 4TH ERROR* 


TO 


DIAGNOSTIC 








04454 




BS5 


PTL4 SPACE FOR PATCHES 


04516 





OOOOO 


OOOOO 


RELSR 






START OF REL. CONST. ROUTINES 








OOOOO 




ORG 









00000 





00004 


00030 




HTR 


R*0*4 




CONTROL CARD PART !• 


00001 





OOOOO 


05715 
OOOOO 




HTR 
0R6 


CMTAG-1 







OOOOO 





15674 


15674 




HTR 


PRED*0*PRED 




CONTROL CARD PART 1B« 


00001 





OOOOO 


16025 
OOOOO 




HTR 
ORG 


I9A+2 







OOOOO 





04740 


04740 




HTR 


GS»0*GS 




CONTROL CARD* PART 1C« 


00001 





OOOOO 


04773 
OOOOO 




HTR 
ORG 


QS8+1 







ooooo 





04740 


04740 




HTR 


GPU*0*QPU 




CONTROL CARD ♦ PART ID. 


00001 





OOOOO 


04773 
OOOOO 




HTR 
ORG 


QPU8+1 







OOOOO 





04740 


04740 




HTR 


QSU»0»QSU 




CONTROL CARD* PART IE* 


00001 





OOOOO 


04773 
OOOOO 




HTR 
ORG 


QSU8+1 







OOOOO 





00320 


00317 




HTR 


BLV09*0«BL12 




CONTROL CARD* PART 2# 


00001 





OOOOO 


00655 
OOOOO 




HTR 
ORG 


BLIST 







OOOOO 





00320 


00320 




HTR 


START#0*START 




CONTROL CARD* PART 3. 


00001 





OOOOO 


00647 




HTR 


ASCON 






OOOOO 





03541 


OOOOO 
00317 




ORG 

HTR 



L3*0*PASS2 




CONTROL CARD* PART 4# 


00001 





OOOOO 


04516 




HTR 


RELSR 












03541 


— 


END 


PASS2 




■-•*■'" . " * 



F5G49190 
F5G492O0 
F5649210 
F5G49220 
F5G49230 
F5G49240 
F5G4.9250 
F5G49260 
F5G49270 
F5G49280 
F5G49290 
F5G49300 
F5G49310 
F5G49320 
F5G49330 
F5G49340 
F5G49350 
F5G49360 
F5G49370 
F5G49371 
F5G49372 
F5G49373 
F5G49374 
F5G49375 
F5G49376 
F5G49377 
F5G49378 
F5G49379 
F5G49380 
F5G49381 
F5G49382 
F5G49383 
F5G49384 
F5G49385 
F5G49386 
F5G49387 
F5G49388 
F5G49389 
F5649390 
F5G49391 
F 5649392 
F5G49393 
F5649394 



~J 



if' 



o 



o 



